auto logon to create user folders

[itsteapot]

Hi All, I have a script to create users in active directory, however is it possible to have a script run to auto logon each user in turn to create their home folders?
Thanks for any ideas.

 

[Geates]

It's faily intensive but you can configure the registry to auto logon.

This script needs to be run locally.

strDomain = ""
strUsername = ""
strPassword = ""

set objShell = CreateObject("Wscript.Shell")
objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName", strUsername, "REG_SZ"
objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultDomainName", strDomain, "REG_SZ"
objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultPassword", strPassword, "REG_SZ"
objShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AutoAdminLogon", "1", "REG_SZ"

This script can be run remotely

CONST HKLM = &H80000002

strComputer = "."
strDomain = ""
strUsername = ""
strPassword = ""

set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

objReg.SetStringValue HKLM, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "DefaultUserName", strUsername
objReg.SetStringValue HKLM, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "DefaultDomainName", strDomain
objReg.SetStringValue HKLM, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "DefaultPassword", strPassword
objReg.SetStringValue HKLM, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "AutoAdminLogon", "1"

-Geates