pass username and password in VBScript

[awreneau]

New to VBS, not even script kiddie.

I have a batch file I want to convert to VBS. The batch file maps a network drive using provided credentials. Works great. However I need to have it in VBS now.

The VBS I've got so far is below.

Option Explicit
On Error Resume Next

Dim wshNetwork, wshShell, wshSysEnv, colDrives, nReturnCode
Dim sGroupDrive, sGroupShare


Set wshNetwork = WScript.CreateObject("WScript.Network")
Set wshShell = WScript.CreateObject("WScript.Shell")
Set wshSysEnv = wshShell.Environment("SYSTEM")

'Define drives & shares
sGroupDrive = "S:"
sGroupShare = "\\servername\share"

If (wshSysEnv("OS") = "Windows_NT") Then

'Disconnect drives if they exists
wshNetwork.RemoveNetworkDrive sGroupDrive

'Map Drive
wshNetwork.MapNetworkDrive sGroupDrive, sGroupShare


Else

WScript.Echo "This WSH logon script supports only Windows NT." & vbNewLine & "Exiting..."
Set wshNetwork = Nothing
Set wshShell = Nothing
WScript.Quit(1)

End If

Set wshNetwork = Nothing
Set wshShell = Nothing
WScript.Quit(nReturnCode)

 

[awreneau]

I submitted the post w/o finishing

My question is how do I pass credentials via the VBS script.


Thanks


P.S. Search was disabled at the time of this post, browsing didnt turn up anything.

 

[Roadki11]

This is what i use:

WSHNetwork.MapNetworkDrive "F:", "\\hostname\Share", "False", "username", "password"

 

[awreneau]

Kewl, I banged around on google and also found this.

The link below provides some logic in case the drive is already mapped.

Thanks for your input, I appreciate it.

http://www.computerperformance.co.uk/Logon/Logon_HomeDirLoop.htm

 

[mrmovie]

not a very clever example to be honest.
it disconnects the drive letter without first checking if it is actually already connected to the correct share

 

[stevio]

awreneau,

If your main hurdle is passing credentials, then try this website, I've used it successfully

http://internet.cybermesa.com/~bstewart/passdlg/