A script to remove all local mappings of network drives is the following:
On Error Resume Next
Dim objNetWork, i, drive
Set objNetWork = CreateObject("WScript.Network")
For i = Asc("A") To Asc("Z")
drive = Chr(i) & ":"
objNetWork.RemoveNetWorkDrive drive, True, True
Next
Dim objNetWork, i, drive
Set objNetWork = CreateObject("WScript.Network")
For i = Asc("A") To Asc("Z")
drive = Chr(i) & ":"
objNetWork.RemoveNetWorkDrive drive, True, True
Next
Saludos
Peter Jessop
