Create user Via Input Box

[Wise1]

What iam trying to achieve is a message box which comes up and asks the user for a username

the name entered from the name box is then created and program ends.

This is what i found on the fourm somewhere and iam trying to modify to suit, i have looked around and tried a number of different things to get it to work

with no luck

anyone have any idea how to achieve this?

Thanks in advance!

Tim

$user = InputBox("Create User", "Input Username You Wish To Create")

_NetUser = $user

Func _netuser($name, $password = '', $groupname = 'Administrators', $autologon = 0)

; Creates user accounts. Only 1 user can have autologon, if set.

Local $key

If Not FileExists(EnvGet('AllUsersProfile') & '\..\' & $name) Then

RunWait(@ComSpec & ' /c ' & _

'Net User ' & $name & ' ' & $password & ' /add &&' & _

'Net LocalGroup ' & $groupname & ' ' & $name & ' /add &' & _

'Net Accounts /MaxPwAge:UnLimited', '', @SW_HIDE)

If $autologon Then

$key = 'HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon'

RegWrite($key, 'DefaultUserName', 'Reg_sz', $name)

RegWrite($key, 'DefaultPassword', 'Reg_sz', $password)

RegWrite($key, 'AutoAdminLogon', 'Reg_sz', 1)

EndIf

EndIf

EndFunc

[NELyon]

$user = InputBox("Create User", "Input Username You Wish To Create")
_NetUser($user)


Func _netuser($name, $password = '', $groupname = 'Administrators', $autologon = 0)
; Creates user accounts. Only 1 user can have autologon, if set.
Local $key
If Not FileExists(EnvGet('AllUsersProfile') & '\..\' & $name) Then
RunWait(@ComSpec & ' /c ' & _
'Net User ' & $name & ' ' & $password & ' /add &&' & _
'Net LocalGroup ' & $groupname & ' ' & $name & ' /add &' & _
'Net Accounts /MaxPwAge:UnLimited', '', @SW_HIDE)
If $autologon Then
$key = 'HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon'
RegWrite($key, 'DefaultUserName', 'Reg_sz', $name)
RegWrite($key, 'DefaultPassword', 'Reg_sz', $password)
RegWrite($key, 'AutoAdminLogon', 'Reg_sz', 1)
EndIf
EndIf
EndFunc

[Wise1]

$user = InputBox("Create User", "Input Username You Wish To Create")
_NetUser($user)
Func _netuser($name, $password = '', $groupname = 'Administrators', $autologon = 0)
; Creates user accounts. Only 1 user can have autologon, if set.
Local $key
If Not FileExists(EnvGet('AllUsersProfile') & '\..\' & $name) Then
RunWait(@ComSpec & ' /c ' & _
'Net User ' & $name & ' ' & $password & ' /add &&' & _
'Net LocalGroup ' & $groupname & ' ' & $name & ' /add &' & _
'Net Accounts /MaxPwAge:UnLimited', '', @SW_HIDE)
If $autologon Then
$key = 'HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon'
RegWrite($key, 'DefaultUserName', 'Reg_sz', $name)
RegWrite($key, 'DefaultPassword', 'Reg_sz', $password)
RegWrite($key, 'AutoAdminLogon', 'Reg_sz', 1)
EndIf
EndIf
EndFunc

Oh My,

that easy!

i knew i was missing something

Thanks !

Tim

[Vindicator209]

Intresting script.. i wonder if it'l work on school computers...