RE: Deploying user list to workgroup

Nick,

No Joy. Did as instructed, script runs and says "accounts have been
created", but no accounts on computers. It will not deploy and it will not
install the user to the computer it is on. Any thoughts?

Tom

"Nick" wrote:

> okay, i wrote you a script that will do this for you.
>
> requirements:
> - admin account on all workstations has same username/password (if not
> you'll have to run it locally from each machine)
> -must be able to resolve names of workstations
> -adds users to Power Users group, change to desired group if Power Users is
> wrong (search the code for Power Users and replace with group name you want)
> - on 1 workstation create the file members.txt located at c:\members.txt
> (this contains the names of all workstations you want the users added to - 1
> name per line)
> - on the same workstation create the text file users.txt located at
> c:\users.txt (contains user accounts & their passwords - the format must be
> user,password 1 per line and no space after the comma unless you want
> the password to start with a space.
> - on the same workstation create the text file enjoy.txt open it and past
> the following code inside then save as "enjoy.vbs" with the quotes
> - Double click enjoy.vbs and come back later - a message will alert you when
> its done.
>
> 'START COPY
>
> On error resume next
>
> Set WSHShell = WScript.CreateObject("WScript.Shell")
> Set objFSO = CreateObject("Scripting.FileSystemObject")
>
> members = "c:\members.txt"
> users = "c:\users.txt"
>
> Const ForReading = 1
>
> strInputFile = members
>
> Set objTextStream = objFSO.OpenTextFile(strInputFile, ForReading)
> arrComputers = Split(objTextStream.ReadAll, vbCrLf)
> objTextStream.Close
>
> Set objTextFile = objFSO.OpenTextFile _
> (users, ForReading)
>
> For Each strComputer In arrComputers
>
> Do Until objTextFile.AtEndOfStream
> acctInfo = objTextFile.Readline
>
> uP = Split(acctInfo, ",", -1, 1)
>
> Set colAccounts = GetObject("WinNT://" & strComputer & "")
> Set objUser = colAccounts.Create("user", uP(0))
> objUser.SetPassword uP(1)
> objUser.SetInfo
>
> Set objGroup = GetObject("WinNT://" & strComputer & "/Power Users,group")
> Set objUseraDD = GetObject("WinNT://" & strComputer & "/" & uP(0) & ",user")
> objGroup.Add(objUseraDD.ADsPath)
>
>
> Loop
>
> Next
>
> wscript.echo "Accounts have been created"
>
> wscript.quit
> 'END COPY
>
> Hope this helps.
>
> Nick
>
>
> "Goatbiker" wrote:
>
> > This should be easy but I am stumped.
> >
> > How do I deploy, or copy, 150 user names to a 23 computer workgroup so I
> > don't have to make 3,450 entries? 20 computers are 2K/SP4 and three are
> > XP/SP2. All are on the same workgroup.
> >
> > Thanks,
> >
> > Tom
.

Relevant Pages

  • Re: RWW and "Connect to my computer at work" link
    ... you could move one XP workstation to the SBSComputers ... What are the differences between these two computer accounts, ... Les Connor [SBS MVP] ... > in the Computers OU and the DC is in the DC OU. ...
    (microsoft.public.windows.server.sbs)
  • "Enter Network Password" popup on all IE pages
    ... It has started appearing on other computers. ... >computer is set to audit all events even though the ... >workstation, installed a new user and the problem still ... >>domain workstation accounts. ...
    (microsoft.public.win2000.group_policy)
  • Re: assigning users to the Power users group via Group Policy
    ... this group" then you do not see your workstation. ... if you right-click the Restricted Groups node and select "Add ... After selecting your workstation you can type in power users ... > the adminpak installed and I also have Group Policy Management tool ...
    (microsoft.public.win2000.group_policy)
  • Re: enabling certain services for only certain accounts
    ... are actions reserved to administrator accounts. ... It might be more simple to set their version of BlackIce ... > workstation with a Win98 workstation connected by a 10mb hub and a WAP. ... If that enables connection, I'd like to figure out how to ...
    (microsoft.public.windowsxp.security_admin)
  • Re: Disappearing Workstations
    ... Do you mean that the workstation record no longer exists in AD at all? ... machine accounts are disabled in AD or not working for logon? ... Run nltest and netdom to verify and fix any trust problems with the computer accounts ...
    (microsoft.public.windows.server.general)