[hasherfrog]

Я бы всё же воспользовался скриптами...
Локальный пользователь

Код:

strComputer = "MyComputer" 
Set colAccounts = GetObject("WinNT://" & strComputer & ",computer") 
Set objUser = colAccounts.Create("user", "Admin2") 
objUser.SetPassword "sA2xpWh" 
objUser.SetInfo

В аскив-директори

Код:

Set objOU = GetObject("LDAP://OU=management,dc=fabrikam,dc=com") 
Set objUser = objOU.Create("User", "cn=MyerKen") 
objUser.Put "sAMAccountName", "myerken" 
objUser.SetInfo