This is a basic vbscript that maps 2 network drives
on error resume next
Set WshNetwork = WScript.CreateObject("WScript.Network")
DriveMapper "z:", "\\vsrpmain\BusApps"
DriveMapper "o:", "\\vsrpmain\common"
Sub DriveMapper(Drive, Share)
WshNetwork.MapNetworkDrive Drive, Share
End Sub