AideXchange

$hostname = Read-Host "Enter the server name" 
$username  = Read-Host "Enter the user name" 
$password  = Read-Host "Enter the user password"
 
		$domain = ([ADSI]"").name
		$computer = [adsi] "WinNT://$domain/$hostname"
		$user =  "WinNT://$domain/$hostname/$username,user"
		$newuser = $computer.Create("user", "$username")
		$newuser.SetPassword("$password")
		$newuser.SetInfo()
		$newuser.UserFlags.value = $newuser.UserFlags.value -bor 0x10000
		$newuser.CommitChanges()
		$addadm = [adsi] "WinNT://$hostname/Administrators,group"
		$addadm.Add("WinNT://$hostname/$username,user")
		$newuser.SetInfo()
 
Write-Host "User $username create as local administrator of $hostname." -ForegroundColor Green