Hallo brauch bitte Hilfe??
Was passiert im einzelnen
dim text
dim scriptkopf
dim cUser
scriptkopf = "KNK_MAP_Home.vbs"
set wshnetwork=wscript.createobject("wscript.network")
on error resume next
cUser=wshnetwork.UserName
wshnetwork.mapnetworkdrive "H:", “\\vzfs301\home\â€& cUser “$â€
errchecku err.number
Sub ErrCheckU (nr)
Select Case nr
Case 0
text = " H mit \\vzfs301\home$%Username% verbunden" & vbCRLF ' kein Fehler
Case - 2147024829
WScript.Echo "Fehler: Netzwerkressource existiert nicht"
Case - 2147024843
text = " Fehler: Syntaxfehler"
Case - 2147024811
text = " Laufwerk H bereits belegt"
Case Else
WScript.Echo "Fehler: " + CStr(nr)
End Select
wscript.timeout = 2msgbox text,vbinformation, scriptkopf
End Sub
