Set the Autologon Script using WMI

Option Explicit
On Error Resume Next
Err.Clear

dim StdOut, objReg, strKeyPath, strStringValueName, strSetStringValue, strEntryName, strValue, strLoginPath
dim Wshshell, ArgObj, sArgCount, x

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

const HKEY_LOCAL_MACHINE = &H80000002
Set StdOut = WScript.StdOut

strSetStringValue = "c:\winnt\system32\wscript.exe c:\someWSHFile.vbs"
strStringValueName = "Description of the process"

Set ArgObj = WScript.Arguments
sArgCount = ArgObj.Count

For x = 0 to sArgCount - 1
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
ArgObj(x) & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce\ ANewRegistryKey"
strLoginPath = "Software\Microsoft\Windows NT\CurrentVersion\Winlogon"
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
objReg.SetStringValue HKEY_LOCAL_MACHINE, strLoginPath, "AutoAdminLogon", "1"
objReg.SetStringValue HKEY_LOCAL_MACHINE, strLoginPath, "DefaultUserName", "Administrator"
objReg.SetStringValue HKEY_LOCAL_MACHINE, strLoginPath, "DefaultPassword", "Password"
objReg.SetStringValue HKEY_LOCAL_MACHINE, strLoginPath, "AutoLogonCount", "1"
objReg.SetStringValue HKEY_LOCAL_MACHINE, strLoginPath, "DefaultDomainName", ArgObj(x)
objReg.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strStringValueName, strSetStringValue
set objReg = Nothing
Next

set wshshell = nothing
set argobj = nothing

Sub ErrorHandler(byVal errornum, byVal errorDesc)
theDesc = "Error Number: " & errornum & " Error Description: " & errorDesc
WshShell.LogEvent 1, theDesc
err.clear
End Sub

Read Complete Article