Set wsh1 = WScript.CreateObject("WScript.Shell")

tmp1 = inputbox("Введите имя учетной записи", "http://www.onestyle.com.ua, специально для книги", "administrator")
if VarType(tmp1) = 0 then
	Wscript.Quit
end if
tmp2 = inputbox("Введите число 0 (скрыть учетную запись) или 1 (отобразить учетную запись)", "http://www.onestyle.com.ua, специально для книги", "1")
if VarType(tmp2) = 0 then
	Wscript.Quit
end if
wsh1.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList\" + tmp1, tmp2, "REG_DWORD"
