On Error Resume Next Set objNetwork = CreateObject("WScript.Network") objNetwork.MapNetworkDrive "I:", "\\Aseserver\I", True objNetwork.MapNetworkDrive "J:", "\\Aseserver\J", True objNetwork.MapNetworkDrive "K:", "\\Aseserver\k", True objNetwork.MapNetworkDrive "H:", "\\Aseserver\k", True objNetwork.MapNetworkDrive "S:", "\\Shopserver\Data (D)", TrueThis code will unmap all drives:
On Error Resume Next Set objNetwork = CreateObject("WScript.Network") Set colDrives = objNetwork.EnumNetworkDrives i = 0 For i = 0 to colDrives.Count-1 Step 2 strDrive = colDrives.Item(i) objNetwork.RemoveNetworkDrive strDrive, True, True NextThanks