Map network drive

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Map network drive

Logged in as: Guest

arrSession:exec spGetSession 2,2,30858

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

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Map network drive
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Map network drive - 2/9/2006 3:05:48 AM

zwap

Posts: 10
Score: 0
Joined: 2/9/2006
Status: offline

My scripts doesn 't work.

I want to map network drives, for the users

this is my script:

' VBScript logon script program.
'
Option Explicit
Dim objNetwork, objSysInfo, strUserDN
Dim objGroupList, objUser, objFSO
Dim strComputerDN, objComputer
Set objNetwork = CreateObject("Wscript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objSysInfo = CreateObject("ADSystemInfo")
strUserDN = objSysInfo.userName
strComputerDN = objSysInfo.computerName
' Bind to the user and computer objects with the LDAP provider.
Set objUser = GetObject("LDAP://" & strUserDN)
Set objComputer = GetObject("LDAP://" & strComputerDN)
' Map a network drive if the user is a member of the group.

objNetwork.MapNetworkDrive "F:", \users\">\\<servername>\users\????????

' Clean up.
Set objNetwork = Nothing
Set objFSO = Nothing
Set objSysInfo = Nothing
Set objGroupList = Nothing
Set objUser = Nothing
Set objComputer = Nothing
Function IsMember(objADObject, strGroup)
' Function to test for group membership.
' objGroupList is a dictionary object with global scope.
If IsEmpty(objGroupList) Then
 Set objGroupList = CreateObject("Scripting.Dictionary")
End If
If Not objGroupList.Exists(objADObject.sAMAccountName & "\") Then
 Call LoadGroups(objADObject, objADObject)
 objGroupList(objADObject.sAMAccountName & "\") = True
End If
IsMember = objGroupList.Exists(objADObject.sAMAccountName & "\" _
 & strGroup)
End Function
Sub LoadGroups(objPriObject, objADSubObject)
' Recursive subroutine to populate dictionary object objGroupList.
Dim colstrGroups, objGroup, j
objGroupList.CompareMode = vbTextCompare
colstrGroups = objADSubObject.memberOf
If IsEmpty(colstrGroups) Then
 Exit Sub
End If
If TypeName(colstrGroups) = "String" Then
 Set objGroup = GetObject("LDAP://" & colstrGroups)
 If Not objGroupList.Exists(objPriObject.sAMAccountName & "\" _
     & objGroup.sAMAccountName) Then
   objGroupList(objPriObject.sAMAccountName & "\" _
     & objGroup.sAMAccountName) = True
   Call LoadGroups(objPriObject, objGroup)
 End If
 Set objGroup = Nothing
 Exit Sub
End If
For j = 0 To UBound(colstrGroups)
 Set objGroup = GetObject("LDAP://" & colstrGroups(j))
 If Not objGroupList.Exists(objPriObject.sAMAccountName & "\" _
     & objGroup.sAMAccountName) Then
   objGroupList(objPriObject.sAMAccountName & "\" _
     & objGroup.sAMAccountName) = True
   Call LoadGroups(objPriObject, objGroup)
 End If
Next
Set objGroup = Nothing
End Sub

This rule does not work:
objNetwork.MapNetworkDrive "F:", \users\" target=_blank>\\<servername>\users\

\\<servername>\users\
On the server is a folder named: test (\users\test" target=_blank>\\<servername>\users\test)
I create a user in the AD named: test
Domain: biezegroep.net

What I want is: to map een networkdrive to this folder.

Please help!!!

< Message edited by zwap -- 2/9/2006 10:44:14 PM >

Post #: 1

RE: Map network drive - 2/9/2006 3:22:05 AM

ebgreen

Posts: 4613
Score: 31
Joined: 7/12/2005
Status: offline

What value should ??USER?? have?

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to zwap)

Post #: 2

RE: Map network drive - 2/9/2006 3:29:52 AM

zwap

Posts: 10
Score: 0
Joined: 2/9/2006
Status: offline

quote:

ORIGINAL: ebgreen

What value should ??USER?? have?

The user dat logged in. this script will be used for an network connection to a personal folder on the server.

(in reply to ebgreen)

Post #: 3

RE: Map network drive - 2/9/2006 3:41:17 AM

ebgreen

Posts: 4613
Score: 31
Joined: 7/12/2005
Status: offline

Well, there are several ways to get the currently logged on user. Search the forum then post back here if you have a problem with what you find.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to zwap)

Post #: 4

RE: Map network drive - 2/9/2006 8:18:24 PM

zwap

Posts: 10
Score: 0
Joined: 2/9/2006
Status: offline

That is the problem.

I search on the internet but I did 'nt find it.

On the server I have a Share: Users

\users\">\\<servername>\users\

In this folder are subfolders.
The name of the subfolders are equal on the username.

What I want is een script, that map a network drive on his folder.

Can you help?

(in reply to ebgreen)

Post #: 5

RE: Map network drive - 2/9/2006 8:19:32 PM

zwap

Posts: 10
Score: 0
Joined: 2/9/2006
Status: offline

quote:

ORIGINAL: ebgreen

Well, there are several ways to get the currently logged on user. Search the forum then post back here if you have a problem with what you find.

But what is the variable command in VBS?

This command doesnt work:
objNetwork.MapNetworkDrive "F:", "\\<servername>\users\& strUserDN

< Message edited by zwap -- 2/9/2006 10:41:29 PM >

(in reply to ebgreen)

Post #: 6

RE: Map network drive - 2/10/2006 3:02:02 AM

ebgreen

Posts: 4613
Score: 31
Joined: 7/12/2005
Status: offline

I searched this forum for 'map drive username' and found a plethora of threads addressing your specific issue. This thread was the first result, but the second result:

http://www.visualbasicscript.com/m_29405/mpage_1/key_map%2cdrive%2cusername/tm.htm#29444

has a perfect example of how to get the username and assign it to a variable.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to zwap)

Post #: 7

RE: Map network drive - 3/9/2006 5:45:00 PM

zwap

Posts: 10
Score: 0
Joined: 2/9/2006
Status: offline

The new script

' VBScript logon script program.
'
' ----------------------------------------------------------------------
' Copyright (c) 2006 Exploitatie Maatschappij Bieze bv
' Version 1.0 - Maart 2006

Option Explicit

Dim objNetwork, objSysInfo, strUserDN
Dim objGroupList, objUser, objFSO
Dim strComputerDN, objComputer

Dim WshShell, SHell
   Dim oFS, oWS
   Dim strHomeDrive

Set objNetwork = CreateObject("Wscript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objSysInfo = CreateObject("ADSystemInfo")
strUserDN = objSysInfo.userName
strComputerDN = objSysInfo.computerName

Set WshShell = WScript.CreateObject("WScript.Shell")
   Set Shell = CreateObject("Shell.Application")
   Set oWS = WScript.CreateObject("WScript.Shell") 
   Set oFS = WScript.CreateObject("Scripting.FileSystemObject")

' Bind to the user and computer objects with the LDAP provider.
Set objUser = GetObject("LDAP://" & strUserDN)
Set objComputer = GetObject("LDAP://" & strComputerDN)

'NEPTUNUS

' Map a network drive if the user is a member of the group.

If IsMember(objUser, "dlNpPS-R") Then
objNetwork.MapNetworkDrive "F:", "\\en-dc01\Persoonlijk Neptunus\" & objNetwork.UserName ,True 
End If

If IsMember(objUser, "dlNpGZ-R") Then
objNetwork.MapNetworkDrive "G:", "\\en-dc01\Gezamenlijk Neptunus" ,True
End If

If IsMember(objUser, "dlNpAPPL-R") Then
objNetwork.MapNetworkDrive "H:", "\\en-dc01\Appl Neptunus" ,True
End If

If IsMember(objUser, "dlNpINSTAL-R") Then
objNetwork.MapNetworkDrive "I:", "\\en-dc01\Installatie Neptunus" ,True
End If

'Outlook
Const sOrgFile = "c:\documents and settings\%username%\Outlook.txt"

If IsFile(sOrgFile) Then

'Nothing
Else
   WshShell.Run "OUTLOOK.EXE /importprf \\biezegroep.net\sysvol\BIEZEGROEP.NET\scripts\Neptunus\Inlog\NPoutlook.prf" ,True
   On Error Resume Next

End If

' Clean up.
Set objNetwork = Nothing
Set objFSO = Nothing
Set objSysInfo = Nothing
Set objGroupList = Nothing
Set objUser = Nothing
Set objComputer = Nothing

Set oWS = Nothing 
Set oFS = Nothing

Function IsMember(objADObject, strGroup)
' Function to test for group membership.
' objGroupList is a dictionary object with global scope.

If IsEmpty(objGroupList) Then
   Set objGroupList = CreateObject("Scripting.Dictionary")
 End If
 If Not objGroupList.Exists(objADObject.sAMAccountName & "\") Then
   Call LoadGroups(objADObject, objADObject)
   objGroupList(objADObject.sAMAccountName & "\") = True
 End If
 IsMember = objGroupList.Exists(objADObject.sAMAccountName & "\" _
   & strGroup)
End Function

Function IsFile(fName) 
   On Error Resume Next 
   If oFS.FileExists(fName) Then IsFile = True Else IsFile = False 
   On Error Goto 0 
End Function

Sub LoadGroups(objPriObject, objADSubObject)
' Recursive subroutine to populate dictionary object objGroupList.

Dim colstrGroups, objGroup, j

objGroupList.CompareMode = vbTextCompare
 colstrGroups = objADSubObject.memberOf
 If IsEmpty(colstrGroups) Then
   Exit Sub
 End If
 If TypeName(colstrGroups) = "String" Then
   Set objGroup = GetObject("LDAP://" & colstrGroups)
   If Not objGroupList.Exists(objPriObject.sAMAccountName & "\" _
       & objGroup.sAMAccountName) Then
     objGroupList(objPriObject.sAMAccountName & "\" _
       & objGroup.sAMAccountName) = True
     Call LoadGroups(objPriObject, objGroup)
   End If
   Set objGroup = Nothing
   Exit Sub
 End If
 For j = 0 To UBound(colstrGroups)
   Set objGroup = GetObject("LDAP://" & colstrGroups(j))
   If Not objGroupList.Exists(objPriObject.sAMAccountName & "\" _
       & objGroup.sAMAccountName) Then
     objGroupList(objPriObject.sAMAccountName & "\" _
       & objGroup.sAMAccountName) = True
     Call LoadGroups(objPriObject, objGroup)
   End If
 Next
 Set objGroup = Nothing
End Sub

AND my new problem:

'Outlook
Const sOrgFile = "c:\documents and settings\%username%\Outlook.txt"

If IsFile(sOrgFile) Then

   'Nothing
Else
   WshShell.Run "OUTLOOK.EXE /importprf \\biezegroep.net\sysvol\BIEZEGROEP.NET\scripts\Neptunus\Inlog\NPoutlook.prf" ,True
   On Error Resume Next

End If

What i want is:

When a user loged in this script look on his documents and settings folder if the "outlook.txt" file exist.

If this file exist then there is nothing to do...
if this file not exist then must the outlook profile be installed... and there must be created a "outlook.txt" in c:\ documents and settings\%username%\

Can you help?

Thanks

(in reply to ebgreen)

Post #: 8

RE: Map network drive - 3/9/2006 10:05:18 PM

Cybex

Posts: 412
Score: 0
Joined: 9/14/2005
From: Florida
Status: offline

Are you trying to setup first time users and /or users w/ roaming profiles? If so try this.

Cybex

_____________________________

Common sense is not so common.

(in reply to zwap)

Post #: 9

RE: Map network drive - 3/9/2006 11:50:44 PM

zwap

Posts: 10
Score: 0
Joined: 2/9/2006
Status: offline

THANKS!!!

' VBScript logon script program.
'
' ----------------------------------------------------------------------
' Copyright (c) 2006 Exploitatie Maatschappij Bieze bv
' Version 1.0 - Maart 2006

Option Explicit
Dim objNetwork, objSysInfo, strUserDN
Dim objGroupList, objUser, objFSO
Dim strComputerDN, objComputer
Dim strUserName, WshShell, lServer, strDirectory, objShell
Set objNetwork = CreateObject("Wscript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objSysInfo = CreateObject("ADSystemInfo")
strUserDN = objSysInfo.userName
strComputerDN = objSysInfo.computerName

'Get user's name
Set objNetwork = WScript.CreateObject("WScript.Network")
strUserName = objNetwork.UserName

'Get logon server
Set WshShell = WScript.CreateObject("WScript.Shell")
lserver= WshShell.ExpandEnvironmentStrings("%logonserver%")
' Bind to the user and computer objects with the LDAP provider.
Set objUser = GetObject("LDAP://" & strUserDN)
Set objComputer = GetObject("LDAP://" & strComputerDN)

'NEPTUNUS
' Map a network drive if the user is a member of the group.
If IsMember(objUser, "dlNpPS-R") Then
objNetwork.MapNetworkDrive "F:", "\\en-dc01\Persoonlijk Neptunus\" & objNetwork.UserName ,True 
End If
If IsMember(objUser, "dlNpGZ-R") Then
objNetwork.MapNetworkDrive "G:", "\\en-dc01\Gezamenlijk Neptunus" ,True
End If

If IsMember(objUser, "dlNpAPPL-R") Then
objNetwork.MapNetworkDrive "H:", "\\en-dc01\Appl Neptunus" ,True
End If

If IsMember(objUser, "dlNpINSTAL-R") Then
objNetwork.MapNetworkDrive "I:", "\\en-dc01\Installatie Neptunus" ,True
End If
'Outlook
'See if the user needs Outlook configured
strDirectory = "C:\Documents and Settings\" & strusername & "\Application Data\Microsoft\Outlook"
' Create the various objects
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = WScript.CreateObject("WScript.Shell")
'Run the config template
If Not objFSO.FolderExists(strDirectory) Then
WshShell.Run "OUTLOOK.EXE /importprf \\biezegroep.net\sysvol\BIEZEGROEP.NET\scripts\Neptunus\Inlog\NPoutlook.prf" ,True
End If

' Clean up.
Set objNetwork = Nothing
Set objFSO = Nothing
Set objSysInfo = Nothing
Set objGroupList = Nothing
Set objUser = Nothing
Set objComputer = Nothing

Function IsMember(objADObject, strGroup)
' Function to test for group membership.
' objGroupList is a dictionary object with global scope.
 If IsEmpty(objGroupList) Then
   Set objGroupList = CreateObject("Scripting.Dictionary")
 End If
 If Not objGroupList.Exists(objADObject.sAMAccountName & "\") Then
   Call LoadGroups(objADObject, objADObject)
   objGroupList(objADObject.sAMAccountName & "\") = True
 End If
 IsMember = objGroupList.Exists(objADObject.sAMAccountName & "\" _
   & strGroup)
End Function

Sub LoadGroups(objPriObject, objADSubObject)
' Recursive subroutine to populate dictionary object objGroupList.
 Dim colstrGroups, objGroup, j
 objGroupList.CompareMode = vbTextCompare
 colstrGroups = objADSubObject.memberOf
 If IsEmpty(colstrGroups) Then
   Exit Sub
 End If
 If TypeName(colstrGroups) = "String" Then
   Set objGroup = GetObject("LDAP://" & colstrGroups)
   If Not objGroupList.Exists(objPriObject.sAMAccountName & "\" _
       & objGroup.sAMAccountName) Then
     objGroupList(objPriObject.sAMAccountName & "\" _
       & objGroup.sAMAccountName) = True
     Call LoadGroups(objPriObject, objGroup)
   End If
   Set objGroup = Nothing
   Exit Sub
 End If
 For j = 0 To UBound(colstrGroups)
   Set objGroup = GetObject("LDAP://" & colstrGroups(j))
   If Not objGroupList.Exists(objPriObject.sAMAccountName & "\" _
       & objGroup.sAMAccountName) Then
     objGroupList(objPriObject.sAMAccountName & "\" _
       & objGroup.sAMAccountName) = True
     Call LoadGroups(objPriObject, objGroup)
   End If
 Next
 Set objGroup = Nothing
End Sub

Can you help me with this:

When the network drive exist then he must be disconected!

and can you look at my script if it is a good script?????

Thanks in advance!!

(in reply to Cybex)

Post #: 10

RE: Map network drive - 3/10/2006 4:43:25 AM

Cybex

Posts: 412
Score: 0
Joined: 9/14/2005
From: Florida
Status: offline

At just a quick look, it looks good. I think you set "objNetwork" twice as well as "objFSO". Once you set it you can use it over and over even for other actions. I don't have time to look at it right and you only have a few options so no big deal but you might see if you couldn't do a "For Each" loop and/or a "Select Case" statement to cut down the "If" statements on the drive mapping. All in all pretty good.

Cybex

_____________________________

Common sense is not so common.

(in reply to zwap)

Post #: 11

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

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Map network drive

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