MapADDrive()

' -----------------------------------------------
' MapADDrive()
' Connects a network device against a share in the AD
' domain.
' -----------------------------------------------
Sub MapADDrive(strDrive, strUNC)
on error resume next
WScript.StdOut.Write "Connects device " & strDrive & " ..."

objWshNet.MapNetworkDrive strDrive, strUNC, False

If Err.Number <> 0 Then
WScript.StdOut.WriteLine "Failed!"
'DisplayText "Error: " & Err.Description 'Do we need the error number???
WScript.StdOut.WriteLine "Error: " & Err.Description & "Err#: " & Err.Number
Else
WScript.StdOut.WriteLine "done!"
End If
End Sub

MapADDrive("M:", "\\w2ksrv1\share1")