Auto Login as part of OSD Task Sequence

Question

Hi,
I am wondering if there is a way to force a Login with a specified account to Windows as part of an OSD.  I have an command in the registry in HKEY Local Machine...../RunOnce that needs to run before the end user uses their computer. 
 Unfortunatly, it just will not run as part of a "Run Command Line" Task. 
I can accomlish this by using the GUIUNATTEND AutoLogon in Sysprep, but that also presents some challenges.  If there was a way in the OSD Task Sequence that I could force a login with a specified account and then logout, that would be great.
Thanks
Rosy_55

Answer 1

The code (vb) below would be created into a step as an application installation or package installation as the second to last step, the last step would be to reboot into the default OS.  
This will, during OSD set a autologin account to login until rebooted, once done the last step will reboot and log into windows, the runonce section will then run gpupdate, and then restart the machine.
 It will only login once.  Modify as needed.
Note that you need to modify the sUsername = "domain\user", and sPassword = "domainuserpassword"
variables.
CODE:
'after autologin this sets the computer to run gpupdate one time and then reboot
Set objShell = WScript.CreateObject("WScript.Shell")
strRunOnce = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunOnce\joinDomain"
objShell.RegWrite strRunOnce, "cmd /k gpupdate "&chr(38)&chr(38)&"shutdown -r -f -t 10", "REG_SZ"
'this configures the autologin
Const HKEY_CLASSES_ROOT = &h80000000
Const HKEY_CURRENT_USER = &h80000001
Const HKEY_LOCAL_MACHINE = &h80000002
Const HKEY_USERS = &h80000003
Const HKEY_CURRENT_CONFIG= &h80000005
Const HKEY_DYN_DATA = &h80000006
sUsername = "domain\user"
sPassword = "domainuserpassword"
Set objNetwork = CreateObject("Wscript.Network")
sComputer = objNetwork.ComputerName
strRegKey = "Software\Microsoft\Windows NT\CurrentVersion\Winlogon\"
Write64BitRegistry "REG_SZ", HKEY_LOCAL_MACHINE, strRegKey, "AutoAdminLogon", "1"
Write64BitRegistry "REG_SZ", HKEY_LOCAL_MACHINE, strRegKey, "DefaultUserName", sUsername
Write64BitRegistry "REG_SZ", HKEY_LOCAL_MACHINE, strRegKey, "DefaultDomainName", strComputer
Write64BitRegistry "REG_SZ", HKEY_LOCAL_MACHINE, strRegKey, "DefaultPassword", sPassword
Write64BitRegistry "REG_SZ", HKEY_LOCAL_MACHINE, strRegKey, "ForceAutoLogon", 1
Write64BitRegistry "REG_DWORD", HKEY_LOCAL_MACHINE, strRegKey, "AutoLogonCount", 1
Sub Write64BitRegistry (strRegType, strRootKey, strKey, strValueName, strValue)
Dim objCtx, objLocator, objReg, intReturnCode
Set objCtx = CreateObject("WbemScripting.SWbemNamedValueSet")
objCtx.Add "__ProviderArchitecture", 64
Set objLocator = CreateObject("Wbemscripting.SWbemLocator")
Set objReg = objLocator.ConnectServer("", "root\default", "", "", , , , objCtx).Get("StdRegProv")
If Ucase(strRegType) = "KEY" Then
intReturnCode = objReg.CreateKey(strRootKey,strKey)
End If
If Ucase(strRegType) = "REG_DWORD" Then
intReturnCode = objReg.SetDWORDValue(strRootKey,strKey,strValueName,strValue)
End If
If Ucase(strRegType) = "REG_SZ" Then
intReturnCode = objReg.SetStringValue(strRootKey,strKey,strValueName,strValue)
End If
If Ucase(strRegType) = "REG_EXPAND_SZ" Then
intReturnCode = objReg.SetExpandedStringValue(strRootKey,strKey,strValueName,strValue)
End If
If Not intReturnCode = 0 Then
End If
End Sub
William Lee