ON ERROR RESUME NEXT

Dim WshNetwork

Set WshNetwork = WScript.CreateObject("WScript.Network")

WshNetwork.MapNetworkDrive "q:", "\\apps2\hsapps",False
wscript.quit