VPN - Map Drives with Credentials

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

VPN - Map Drives with Credentials

Logged in as: Guest

arrSession:exec spGetSession 2,16,52469

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> VPN - Map Drives with Credentials
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

VPN - Map Drives with Credentials - 10/5/2007 1:21:48 AM

mcds99

Posts: 424
Score: 4
Joined: 2/28/2006
Status: offline

With my new job I have VPN access to support the application I support.

The company does not use laptops, because "they're a security risk" I don't make the rules.
We get a VPN client to install on our PC's at home (not a big deal).
I run XP64bit at home, the installer for the VPN client has some 16 bit code in it, because it would not install on XP64bit

I installed Microsoft Virtual PC, XP Pro, and the VPN software Works Great!

Sense the computer is not a member of the domain the drives need to be mapped with credentials "manually".

This script askes for username and password, maps the drives, and displays what drives have been mapped.

<HTML>
<head><title>Get Drive</Title>
<HTA:Application
   Application="GetDrive"
   Scoll="No"
   Singleinstance="Yes"
   ShowInTaskbar="Yes"
   Caption="Yes">
</Head>
<Script Language="VBSCRIPT" Type = "text/vbscript">
Sub Window_Onload
Window.resizeTo 475,400
End Sub
'### This script is for mapping drives when at home VPNed to the office.
Sub CloseWindow
  self.close
End Sub
FUNCTION MapDrives(uName, pWord)
'### Build Account Details  (put your domain name in place of "domain"
 aName = "domain\" & uName.value
 aWord = pWord.value
'### Build Home Drive Path
 xD = "H:"
'### Sets the path to the home drive where the username is the hidden share
 sName = "\\servername\" & uName.value & "$"
'### Map Drives
 Set objNet = CreateObject("Wscript.Network")
 objNet.MapNetworkDrive xD, sName,  , aName, aWord
'### Map other drives needed from remote office set the drive letters to your needs.
 'objNet.MapNetworkDrive "G:", "\\servername\sharename",  , aName, aWord
 'objNet.MapNetworkDrive "I:", "\\servername\sharename",  , aName, aWord
 'objNet.MapNetworkDrive "O:", "\\servername\sharename",  , aName, aWord
 'objNet.MapNetworkDrive "S:", "\\servername\sharename",  , aName, aWord
 'objNet.MapNetworkDrive "T:", "\\servername\sharename",  , aName, aWord
 call ShowDrives
END FUNCTION
FUNCTION ShowDrives
DispDrives.value = ""
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
For Each objDrive in colDrives
  If objDrive.IsReady = True Then
     DispDrives.value = DispDrives.value & vbcrlf & objDrive.path & " \ " & objDrive.sharename
  End If  
Next
END FUNCTION
</Script>
<body>
<Table>
<TR><td>Enter Your Username: </td><td><input type="text" name="uName"></td></TR>
<TR><td>Enter Your Password: </td><td><input type="PASSWORD" name="pWord"></td><TR>
<TR><td><input type="BUTTON" value="Map Drives" onclick="MapDrives uName, pWord"></td><TR>
<TR><td><input type="BUTTON" value="Quit" onclick="CloseWindow"></td><TR>
<TR></TR>
</Table>
<Table>
<TR><td><textarea name="DispDrives" rows="12" cols=45></textarea></td></tr>
</Table>
</body>
</html>

< Message edited by mcds99 -- 10/5/2007 1:33:36 AM >

_____________________________

Sam

Keep it Simple Make it Fun KiSMiF

Revisions: 1 | Post #: 1

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> Post a VBScript >> VPN - Map Drives with Credentials

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts