This VB Script I use will map drive and printers based on group membership. Option Explicit Dim objNetwork, objSysInfo, strUserDN Dim objGroupList, objUser, objFSO Dim strComputerDN, objComputer Set objNetwork = CreateObject('Wscript.Netw ork') Set objFSO = CreateObject('Scripting.Fi leSystemOb ject') Set objSysInfo = CreateObject('ADSystemInfo ') strUserDN = objSysInfo.userName strComputerDN = objSysInfo.computerName ' Escape any forward slash characters, '/', with the backslash ' escape character. All other characters that should be escaped are. StrUserDN = Replace(strUserDN, '/', ' /') strComputerDN = Replace(strComputerDN, '/', ' /') ' 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. ' Alert the user if the drive cannot be mapped. If (IsMember(objUser, 'Name Of Group') = True) Then If (MapDrive('R:', ' Server Share') = False) Then MsgBox 'Unable to Map S: to Rv Live' End If End If ' Map a network drive if the user is a member of the group. ' Alert the user if the drive cannot be mapped.

Action Replay Codes Converter Currency. If (IsMember(objUser, 'Name Of Group') = True) Then If (MapDrive('Q:', ' Server Share') = False) Then MsgBox 'Unable to Map S: to Sage MMS' End If End If ' Add a network printer if the computer is a member of the group. ' Make this printer the default. If (IsMember(objUser, 'Name Of Group') = True) Then objNetwork.AddWindowsPrint erConnecti on ' Server Printer' objNetwork.SetDefaultPrint er ' Server Printer' End If ' Add a network printer if the computer is a member of the group.

Throubleshotting RPC over HTTP (Outlook Anywhere) HI Everyone, I've reinstalled a new MAIL server. This typically indicates that your server requires RPC encryption. Download robocopy.exe For Windows 2003. Windows 2003 and 2008 Server / Windows XP / Vista / 7. Please visit Microsoft web site to download Robocopy (rktools.

' Make this printer the default. If (IsMember(objUser, 'Name Of Group') = True) Then objNetwork. Corel Products Keygen Core X7 Скачать more. AddWindowsPrint erConnecti on ' Server Printer' objNetwork.SetDefaultPrint er ' Server Printer' End If ' Clean up. Set objNetwork = Nothing Set objFSO = Nothing Set objSysInfo = Nothing Set objGroupList = Nothing Set objUser = Nothing Set objComputer = Nothing Function IsMember(ByVal objADObject, ByVal strGroup) ' Function to test for group membership. ' objGroupList is a dictionary object with global scope. Its Plc Professional Edition Keygen Software. If (IsEmpty(objGroupList) = True) Then Set objGroupList = CreateObject('Scripting.Di ctionary') End If If (objGroupList.Exists(objAD Object.sAM AccountNam e & ' ') = False) Then Call LoadGroups(objADObject, objADObject) objGroupList.Add objADObject.sAMAccountName & ' ', True End If IsMember = objGroupList.Exists(objADO bject.sAMA ccountName & ' ' _ & strGroup) End Function Sub LoadGroups(ByVal objPriObject, ByVal objADSubObject) ' Recursive subroutine to populate dictionary object objGroupList. Dim colstrGroups, objGroup, j objGroupList.CompareMode = vbTextCompare colstrGroups = objADSubObject.memberOf If (IsEmpty(colstrGroups) = True) Then Exit Sub End If If (TypeName(colstrGroups) = 'String') Then ' Escape any forward slash characters, '/', with the backslash ' escape character. All other characters that should be escaped are.