The Code

First, here's the code for mapping a network drive:

Dim net
Set net = CreateObject("WScript.Network")
net.MapNetworkDrive "Z:", "\\server\share"

And here's code for unmapping a network drive:

Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.RemoveNetworkDrive "Z:"