[VBS] Create and Add Local User to Local Administators Group

[beekware]

Ik heb inmiddels het onderstaande scriptje... alleen ik wil nog dat de ingevoerde username "Suser" wordt aangemaakt op de lokale pc en deze wordt toegevoerd aan de administrator group. Dit scriptje zal als laatste worden uigevoerd in runonce.cmd, Unattended DVDtje. Ik heb op internet gezocht maar kan niet echt iets vinden voor lokale users accounts...

Heeft iemand een klein scriptje waarmee ik een local gebruiker aanmaak en deze direct toevoeg aan de administrator group?

Alvast bedankt!

Set_Info.vbs

'Add User, Computername and Change Registered Owner/Organization. Option Explicit Set ws = WScript.CreateObject("WScript.Shell") Dim ws, t, p0, p1, p2, p3, p4, p5, p11, n, g, j, h, f, k, cn, cg, cj,Suser,m,p6,p7,o,Spass,DDomain Dim itemtype p0 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\" p11= "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\" p1 = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\" p2 = "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ComputerName\" p3 = "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\" p4 = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\" p5 = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\" p6 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\" p7 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\" n = ws.RegRead(p1 & "RegisteredOwner") g = ws.RegRead(p1 & "RegisteredOrganization") j = ws.RegRead(p2 & "ComputerName") h = ws.RegRead(p3 & "NV Hostname") f = ws.RegRead(p4 & "ComputerName") k = ws.RegRead(p5 & "NV Hostname") m = ws.RegRead(p6 & "DefaultUserName") o = ws.RegRead(p7 & "DefaultPassword") t = "Computer en Gebruikers Info" cn = InputBox("Type de eigenaar van de computer in en klik OK", t, n) If cn <> "" Then ws.RegWrite p1 & "RegisteredOwner", cn End If Suser = InputBox("Type uw gebruikersnaam in en klik OK", t, m) If Suser <> "" Then ws.RegWrite p6 & "DefaultUserName", Suser End If Spass = InputBox("Type uw wachtwoord in en klik OK", t, o) If Suser <> "" Then ws.RegWrite p7 & "DefaultPassword", Spass End If cg = InputBox("Type uw bedijfsnaam in en klik ok", t, g) If cg <> "" Then ws.RegWrite p1 & "RegisteredOrganization", cg End If cj = InputBox("Type uw Computer naam in en klik OK", t, j) If cj <> "" Then ws.RegWrite p2 & "ComputerName", cj ws.RegWrite p3 & "NV Hostname", cj ws.RegWrite p4 & "ComputerName", cj ws.RegWrite p5 & "NV Hostname", cj ws.RegWrite p0 & "DefaultDomainName", cj ws.RegWrite p11 & "AutoAdminLogon","1" End If

[curry684]

beekware schreef op zaterdag 20 november 2004 @ 17:40:
Heeft iemand een klein scriptje waarmee ik een local gebruiker aanmaak en deze direct toevoeg aan de administrator group?

Heeft u wel bij P&W FAQ - Scriptrequests gekeken