vbs script map drives

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