Need help:VBScript rename comp/add user/autologon

[Guest flipje]

Allmost finished by DVD...

Got stuck on one thing I wanna get it working....but...

First of all sorry for my bad English.

The thing I wanna do is a build a little script the read outs the users input about computername, username, password and the Full Username (top of start menu). After that the new user account must me added to the local administrators group and registrykeys will be made to force autologon. The script will be executed at the end of runonce.cmd, pc will reboot and viola...

Allready found a tool "baptize.exe" to rename. (cmd: baptize.exe computername)

This is what I all ready have...

Dim usrName
Dim PassWord
usrName = Inputbox("Enter User Name","Enter Name")
PassWord = Inputbox("Enter password","Enter your Password")
Set WShell = CreateObject("WScript.Shell")
WShell.Run "net user"& UsrName & PassWord &"/add"
WShell.Run "net net localgroup Administrators"& usrName &"/add"
WShell.Run "net accounts /maxpwage:unlimited"

dim wsh 
set wsh=CreateObject("WScript.Shell") 
wsh.regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName",usrName
wsh.regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultPassword",PassWord
wsh.regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AutoAdminLogon","1"

Can anybody helpme

Thx...

[tguy]

Here is a copy of the script I use to add a user and add them to the administrator's group.

'****************************************************************

Option Explicit

' On Error Resume Next

Const UF_SCRIPT = &H1

Const UF_ACCOUNTDISABLE = &H2

Const UF_HOMEDIR_REQUIRED = &H8

Const UF_LOCKOUT = &H10

Const UF_PASSWD_NOTREQD = &H20

Const UF_PASSWD_CANT_CHANGE = &H40

Const UF_TEMP_DUPLICATE_ACCOUNT = &H100

Const UF_NORMAL_ACCOUNT = &H200

Const UF_INTERDOMAIN_TRUST_ACCOUNT = &H800

Const UF_WORKSTATION_TRUST_ACCOUNT = &H1000

Const UF_SERVER_TRUST_ACCOUNT = &H2000

Const UF_DONT_EXPIRE_PASSWD = &H10000

Const UF_MNS_LOGON_ACCOUNT = &H20000

Dim objComputer, objGroup, objUser, objWSHNetwork, ObjPwdExpires, strComputerName, strFullName, strPassword, strUserName

Set objWSHNetwork = WScript.CreateObject("WScript.Network")

strComputerName = objWSHNetwork.ComputerName

Set objComputer = GetObject("WinNT://" & strComputerName)

Set objGroup = GetObject("WinNT://" & strComputerName & "/Administrators")

strUserName = "Admin2"

strFullName = "Emergency User"

strPassword = "********"

Set objUser = objComputer.Create("User", strUserName)

objUser.SetPassword strPassword

objUser.FullName = strFullName

objUser.Put "description", "Local User Account for Emergencies"

objUser.Put "UserFlags", objUser.UserFlags Or UF_PASSWD_CANT_CHANGE

objUser.Put "UserFlags", objUser.UserFlags Or UF_DONT_EXPIRE_PASSWD

objUser.SetInfo

'*** Add user to Administrators Group ***

objGroup.Add "WinNT://" & strComputerName & "/" & strUserName

objUser.SetInfo

' MsgBox "Completed adding user " & strUserName & ".", vbInformation, "Execution completed"

Obviously substitute real password for asterisks.

[Yzöwl]

but.. shouldn't your users be 'Limited'

[Guest flipje]

Allmost finished...

I cant find any vbscript or howto creat and add a new user...

The script below renames the computer, sets owner and company and adds the autologin with the given info from the user..

The only thing left is to create the user and add this account to the adminstrators group.

Could someone give me a little help please...

Thankx....

'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 new Computer name and click 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