1: 2: 3: 4: 5:
Dim wshNetwork Set wshNetwork = CreateObject("Wscript.Network") wshNetwork.MapNetworkDrive "z:", "\\server\share" wshNetwork.MapNetworkDrive "y:", "\\server\share2" WSCript.Quit