Stjerner når der skal skrives kode

Hej

Her på teknisk gymasium skal vi bruge nedenstående vbs script til at connete til nettet, hvordan kan jeg fixe stjerner på kode feltet:

Dim oNet, x, y, name
Set oNet = CreateObject("WScript.Network")

name = inputbox("Skriv dit Brugernavn her.","Windows adgangskontrol")
If name = "" Then
    wscript.quit
End If
x = "sts-uve\" & name
y = inputbox("Skriv din adgangskode her.","Windows adgangskontrol")
If y = "" Then
    wscript.quit
End If

on error resume next

'''''Mapning af Drev
    oNet.MapNetworkDrive "H:", "\\10.10.20.10\elevfiler\" & name , ,x,y
    oNet.MapNetworkDrive "I:", "\\10.10.20.10\htx" , ,x,y



Set onet = Nothing
Set oDrives  = Nothing