Set Domain = GetObject("LDAP://OU=Flight control, DC=flight, DC=com")
Uname = CStr(InputBox("Enter name:","Add account",""))
Password = CStr(InputBox("Enter password:","",""))
Set User = Domain.Create("User", "cn=" & Uname)
User.Put "sAMAccountName", Uname
User.SetInfo
User.SetPassword Password
User.SetInfo

WScript.Echo(Uname & " added!")