RE: Deploying user list to workgroup

Thanks Nick. This will be a big help.

"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: 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: Deploying user list to workgroup
    ... script runs and says "accounts have been ... but no accounts on computers. ... > -adds users to Power Users group, change to desired group if Power Users is ... > - on the same workstation create the text file users.txt located at ...
    (microsoft.public.win2000.general)
  • Access 2000 on Win XP Workstation - Printing Problems
    ... I have a number of Access 2000 applications installed on XP Professional ... users (not power users) and as such I have had to apply permissions ... on the second workstation and reran the application and all is well. ... I have also looked to see if a folder or file was created ...
    (microsoft.public.access.devtoolkits)
  • RE: Deploying user list to workgroup
    ... open the script in notepad and put an appostrophe before the line on error ... Nick ... >> -adds users to Power Users group, change to desired group if Power Users is ... >> - on the same workstation create the text file enjoy.txt open it and past ...
    (microsoft.public.win2000.general)
  • Windows Update with Power Users
    ... I have a small domain based network. ... workstation, for which they are set as Power users on that workstation. ... they get told only administrators can do it. ...
    (microsoft.public.windowsxp.general)