objNetwork = CreateObject("WScript.Network") objNetwork.MapNetworkDrive "I:", "\\Aseserver\I", True objNetwork.MapNetworkDrive "J:", "\\Aseserver\J", True