‎12-31-2014 03:29 AM
Solved! Go to Solution.
‎01-01-2015 03:29 PM
‎01-03-2019 09:55 PM
‎01-01-2015 11:20 PM
‎01-01-2015 03:29 PM
‎01-01-2015 06:04 AM
‎12-31-2014 10:42 AM
Dim objNetwork
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "I:", "PATH_OF_SHARE","True","jdoe","jdoepassword"
objNetwork.RemoveNetworkDrive "I:"
Dim objNetwork
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "", "PATH_OF_SHARE","True","jdoe","jdoepassword"
Set objDrives = objNetwork.EnumNetworkDrives
If objDrives.Count > 0 Then
For i = 0 To objDrives.Count-1 Step 2
If objDrives.Item(i+1) = "PATH_OF_SHARE" Then
objNetwork.RemoveNetworkDrive "PATH_OF_SHARE", True, True
i=objDrives.Count-1
End If
Next
End If
Experience Lansweeper with your own data. Sign up now for a 14-day free trial.
Try Now