bbbngowc Posted August 13, 2009 Share Posted August 13, 2009 (edited) Hello,I have about 500 users that need access to 3 new servers in our 2003 Windows Server Domain. I am looking for a script that will accomplish this for me. After a brief internet search I found this script. Anyone familiar with VB Scripting could tell me if this will work?Dim strComputer, objUser, strWorkstations, arrNames, k, objOU' Bind to user object.Set objOU = GetObject _("LDAP://DC=DOMAIN,DC=COM")objOU.Filter = Array("user")' Specify NetBIOS name of computer to add.strComputer = "SERVER1,SERVER2,SERVER3"For Each objUser in objOU' Retrieve value of userWorkstations attribute.strWorkstations = objUser.userWorkstations' Check if new computer name already included.arrNames = Split(strWorkstations, ",")For k = 0 To UBound(arrNames)If (LCase(strComputer) = LCase(arrNames(k))) Then' This computer already included. Abort.Wscript.Echo "User already allowed to logon to " & strComputerEnd IfNext' Append new computer name.If (strWorkstations = "") ThenstrWorkstations = strComputerElsestrWorkstations = strWorkstations & "," & strComputerEnd If' Save new value.objUser.userWorkstations = strWorkstationsobjUser.SetInfoNext Edited August 13, 2009 by bbbngowc Link to comment Share on other sites More sharing options...
bbbngowc Posted August 13, 2009 Author Share Posted August 13, 2009 I made some small modifications to the script and ran it. It works. Thanks for looking. Link to comment Share on other sites More sharing options...
softmobi4all Posted September 22, 2009 Share Posted September 22, 2009 Thanking Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now