Dim UserAccount
Dim UserPasswd
 
If WScript.Arguments.Count = 2 Then
   UserAccount = WScript.Arguments.Item(0)
   UserPasswd = WScript.Arguments.Item(1)
Else
   WScript.Echo "Usage: add_user.vbs <user_name> <user_passwd>"
   WScript.Quit
End If

strComputer = "."
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", UserAccount)
objUser.SetPassword UserPasswd
objUser.SetInfo

Set net = WScript.CreateObject("WScript.Network") 
local = net.ComputerName 
set group = GetObject("WinNT://"& local &"/Administrators") 
set group1 = GetObject("WinNT://"& local &"/Remote Desktop Users") 
on error resume next 
group.Add "WinNT://"& UserAccount &""
group1.Add "WinNT://"& UserAccount &""
CheckError 

sub CheckError 
  if not err.number=0 then 
    WScript.Echo err.Number
    vbCritical err.clear 
'  else WScript.Echo "Done!" 
  end if 
end sub

WScript.sleep 1000