Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & sRemoteComputerName & "\root\default:StdRegProv")
oReg.SetStringValue &H80000002,"SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon","DefaultDomainName",sDomain
oReg.SetStringValue &H80000002,"SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon","DefaultUserName",sUser
oReg.SetStringValue &H80000002,"SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon","AltDefaultDomainName",sDomain
oReg.SetStringValue &H80000002,"SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon","AltDefaultUserName",sUser
oReg.SetStringValue &H80000002,"SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon","AutoAdminLogon",0

Sub Test123
	'-----------------------------Result----------------------------------------------------------
	strHTML = "<table style='border-collapse: collapse' bgcolor=#F5F5F5>" & "qqqqq"& _
		"<tr><td><input type='text' id='NameWL' 	 name='NameWL'     value='domain\LogonName'>Логон </td></tr>" & _
		"<tr><td><input type='text' id='PassWL' 	 name='PassWL'     value='Pass'>Пасс			</td></tr>"& _
		"<tr><td><input type='text' id='VariablWL'   name='VariablWL'  value='qwe1'>Значение			</td></tr>"& _
		"<tr><td><input type='text' id='FullPathWL'  name='FullPathWL' value='10.2.10.93\c$\1.vbs'>Путь </td></tr>"& _
		"<tr><td><input type='button' onclick = 'WinLogonVL()' value='startVB'></td></tr>" & _
		"<tr><td><input type='button' onclick = 'RemoteAdm_WinLogon()' value='startJS'></td></tr>"
    strHTML = strHTML & "</table>"
	DataArea.InnerHTML = Trim(strHTML)
	End sub

	
Sub WinLogonVL
	logonWL = ""
	PasswWL = ""
	VarWL = ""
	PathWL = ""
	dim hostWL, logonWL, PasswWL, VarWL, PathWL
	hostWL = ComputerName.Value
	logonWL = NameWL.value
	PasswWL = PassWL.value
	VarWL = VariablWL.value
	PathWL = FullPathWL.value
	Set WSHShell = CreateObject("WScript.Shell")
	WSHShell.Run "Psexec -accepteula -e -u " & logonWL & " -p " & PasswWL & " \\" & hostWL & " cscript.exe \\" & PathWL & " " & VarWL, 0, false
	Set WshShell = Nothing
end sub

@echo off
title Настройка запуска "Offer Remote Assistance"
set domain=Mechel
set user=lamer
set /p PC=Введите имя подключаемого компьютера: 
reg add "\\%PC%\HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v DefaultDomainName /t REG_SZ /d %domain% /reg:64
reg add "\\%PC%\HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v DefaultUserName /t REG_SZ /d %user% /reg:64
reg add "\\%PC%\HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v AltDefaultDomainName /t REG_SZ /d %domain% /reg:64
reg add "\\%PC%\HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v AltDefaultUserName /t REG_SZ /d %user% /reg:64
reg add "\\%PC%\HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v AutoAdminLogon /t REG_SZ /d 0 /reg:64

c:\1.vbs Logon1

'Передача из CMD
Dim Arg
Set Arg=Wscript.Arguments

Dim sComp
sComp = ""
If Arg.Count>=1 Then  ' имеется переданный параметр
	StUser = Arg(0)
else
	StUser = InputBox("Введите имя подключаемого компьютера", "Настройка запуска ""Offer Remote Assistance""")
End IF

	dim WSHShell, stRegKey, objItem, intRetCode
	Set WSHShell = CreateObject("WScript.Shell")
	stRegKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\" 'reestr
	'StUser = InputBox("Tell me login," & vbCrLf & vbCrLf & "Example - GilmullinRR", "Set Last logged on", "username") 'name
	'StDomain = InputBox("Tell me name - domain for logon," & vbCrLf & vbCrLf & "Example - Mechel", "Set Logon Domain", "Mechel") 'domain
	StDomain= "Mechel"
	wshShell.RegWrite stRegKey & "DefaultDomainName", StDomain, "REG_SZ"
	wshShell.RegWrite stRegKey & "DefaultUserName", StUser, "REG_SZ"
	wshShell.RegWrite stRegKey & "AltDefaultDomainName", StDomain, "REG_SZ"
	wshShell.RegWrite stRegKey & "AltDefaultUserName", StUser, "REG_SZ"
	wshShell.RegWrite stRegKey & "AutoAdminLogon", "0", "REG_SZ"

 
	 function RemoteAdm_WinLogon ()
    {
		var hostWL = ComputerName.value;
		var valueWL = ValueWinLogon.value;
		var logon = logonValue.value;
		var pass = passValue.value;
		var shell = new ActiveXObject("WScript.Shell");
		shell.Run('PsExec.exe '+"-u"+' '+logonValue+' '+"-p"+' '+passValue+' '+hostWL+' '+"%windir%\\system32\\cscript.exe"+' '+"\\10.2.10.93\\c$\\1.vbs"+' '+valueWL+'');
	 }