(view source code of login_connect_network_drives.vbs as plain text)
Set wshNetwork = CreateObject( "WScript.Network" )
On Error Resume Next
With wshNetwork
.MapNetworkDrive "G:", "\\CompanyServer\Dept"
If Err Then
WScript.Echo "Error " & Err & " mapping drive G:"
WScript.Echo "(" & Err.Description & ")"
End If
.MapNetworkDrive "H:", "\\CompanyServer\" & .UserName
If Err Then
WScript.Echo "Error " & Err & " mapping drive H:"
WScript.Echo "(" & Err.Description & ")"
End If
End With
On Error Goto 0
Set wshNetwork = Nothing
page last modified: 2024-04-16; loaded in 0.0046 seconds