Auto Logon Script

Tanman · 02-01-2007, 09:43 PM

Don't know if this has ever been requested.......I would like to have a script which would log me onto workstations so I don't have to manually log on.

Just curious if this is possible....

Thanks....

jdean · 02-02-2007, 01:33 AM

I'm not grasping the full context of what you're asking.

If you want a script to connect to a machine that's not a problem. If you want a script to be run from the CTRL ALT DEL screen then it isn't possible.

I can write scripts to Lock workstations but not unlock them. Shutdown, reboot, logoff all tangible goals but logging on isn't going to happen with vbscript. I don't know about third party apps.

Quote:

Originally Posted by Tanman

Don't know if this has ever been requested.......I would like to have a script which would log me onto workstations so I don't have to manually log on.

Just curious if this is possible....

Thanks....

maeron · 02-02-2007, 06:22 AM

I have a little ugly idea.... IF it doesn't matter that you restart the computer....

Run this VBSCRIPT on the computer first:

Code:

 
Dim WSH
Set WSH = CreateObject ("WSCript.shell")
'Change details in the Registry
WSH.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AutoAdminLogon", "1"
WSH.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName", "HERE YOU SET THE USERNAME"
WSH.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultPassword", "AND HERE IS THE PASSWORD"
WSH.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultDomainName", "AND HERE THE DOMAIN OR COMPUTERNAME"

Then make a job that restarts the computer

NOW after it restarted you are loggin in as the user you set in the script.

To remove the Autologin feature run the following script afterwords:

Code:

 
Dim WSH
Set WSH = CreateObject ("WSCript.shell")
'Change details in the Registry
WSH.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AutoAdminLogon", "0"
WSH.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName", "HERE YOU SET SOMETHING"
WSH.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultPassword", "AND HERE IS NOT!!! THE PASSWORD"
WSH.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultDomainName", "AND HERE THE DOMAIN OR COMPUTERNAME"

Remember to restart again

I don't know if this help but It dows the job

/Martin

rdvanorman · 02-06-2007, 07:47 PM

I have a VB Script I got somewhere. We use it at times to push out updates that required a logged in user. It changes the keys in the registry to login automatically with a specified account. After a specified time you can have it return to normal. I'd be glad to share will all. BTW This script locks out local keyboard and mouse input.

Auto login

Dim objShell, strPWD, CurUser, LocMach
strComputer = "."
adminUser = "Username" ‘Local Administrator Account
strPWD = "password" ‘Password for the local Administrator Account
unBlock = 7200000 ‘Amount of time in milliseconds before the machine resets itself
strDomain = "Domain" ‘Resets the domain name on the login screen
Const ForceRestart = 6
Const ForWriting = 2

Set objShell = CreateObject("WScript.Shell")
Set objNetwork = WScript.CreateObject("WScript.Network")
LocMach = objNetwork.ComputerName
CurUser = objShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName")
objShell.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\CurrentUserName", CurUser
objShell.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultDomainName", LocMach
objShell.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName", adminUser
objShell.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultPassword", strPWD
objShell.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AutoAdminLogon", "1"
objShell.Regwrite "HKLM\SYSTEM\CurrentControlSet\Services\Kbdclass\S tart", 4, "REG_DWORD"
objShell.Regwrite "HKLM\SYSTEM\CurrentControlSet\Services\Mouclass\S tart", 4, "REG_DWORD"

Set FileSysObj = WScript.CreateObject("Scripting.FileSystemObject")
strStartup = objShell.SpecialFolders("AllUsersStartup")
Set MessageFile = FileSysObj.OpenTextFile(strStartup & "\Message.vbs", ForWriting, True)
MessageFile.WriteLine("MsgBox ""This machine is currently blocked for maintenance..."" _")
MessageFile.WriteLine("& chr(13) & ""PLEASE DO NOT SHUT IT DOWN!"" & chr(13) _")
MessageFile.WriteLine("& ""For further information call"", vbExclamation, ""IT Systems Notice""")
MessageFile.Close
Set FailsafeFile = FileSysObj.OpenTextFile(strStartup & "\Failsafe.vbs", ForWriting, True)
FailsafeFile.WriteLine("Dim objShell, strPWD, CurUser, FileSysObj, strStartup")
FailsafeFile.WriteLine("Const ForceRestart = 6")
FailsafeFile.WriteLine("Const unBlock = 7200000")
FailsafeFile.WriteLine("strComputer = "".""")
FailsafeFile.WriteLine("strDomain = ""domainname""")
FailsafeFile.WriteLine("set objShell = createobject(""WScript.Shell"")")
FailsafeFile.WriteLine("strPWD = """"")
FailsafeFile.WriteLine("Wscript.Sleep unBlock")
FailsafeFile.WriteLine("CurUser = objShell.RegRead(""HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\CurrentUserName"")")
FailsafeFile.WriteLine("objShell.Regwrite ""HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultDomainName"", strDomain")
FailsafeFile.WriteLine("objShell.Regwrite ""HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultPassword"", strPWD")
FailsafeFile.WriteLine("objShell.Regwrite ""HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AutoAdminLogon"", ""0""")
FailsafeFile.WriteLine("objShell.Regwrite ""HKLM\SYSTEM\CurrentControlSet\Services\Kbdclass\ Start"", 1, ""REG_DWORD""")
FailsafeFile.WriteLine("objShell.Regwrite ""HKLM\SYSTEM\CurrentControlSet\Services\Mouclass\ Start"", 1, ""REG_DWORD""")
FailsafeFile.WriteLine("set FileSysObj = WScript.CreateObject(""Scripting.FileSystemObject" ")")
FailsafeFile.WriteLine("strStartup = objShell.SpecialFolders(""AllUsersStartup"")")
FailsafeFile.WriteLine("FileSysObj.DeleteFile strStartup & ""\Message.vbs"", true")
FailsafeFile.WriteLine("FileSysObj.DeleteFile strStartup & ""\Failsafe.vbs"", true")
FailsafeFile.WriteLine("Set colOperatingSystems = GetObject(""winmgmts:{impersonationLevel=impersona te,(Shutdown)}"")_")
FailsafeFile.WriteLine(".InstancesOf(""Win32_Opera tingSystem"")")
FailsafeFile.WriteLine("For Each objOperatingSystem in colOperatingSystems")
FailsafeFile.WriteLine(" ObjOperatingSystem.Win32Shutdown(ForceRestart)")
FailsafeFile.WriteLine("Next")
FailsafeFile.Close

Set colOperatingSystems = GetObject("winmgmts:{impersonationLevel=impersonat e,(Shutdown)}")_
.InstancesOf("Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Win32Shutdown(ForceRestart)
Next

This will disable the login if you don't want to wait for the timeout

Dim objShell, strPWD, CurUser, FileSysObj, strStartup
Const ForceRestart = 6

set objShell = createobject("WScript.Shell")
strPWD = ""
strDomain = "Domain"
CurUser = objShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\CurrentUserName")
objShell.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultDomainName", strDomain
objShell.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName", CurUser
objShell.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultPassword", strPWD
objShell.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AutoAdminLogon", "0"
objShell.Regwrite "HKLM\SYSTEM\CurrentControlSet\Services\Kbdclass\S tart", 1, "REG_DWORD"
objShell.Regwrite "HKLM\SYSTEM\CurrentControlSet\Services\Mouclass\S tart", 1, "REG_DWORD"

set FileSysObj = WScript.CreateObject("Scripting.FileSystemObject")
strStartup = objShell.SpecialFolders("AllUsersStartup")
FileSysObj.DeleteFile strStartup & "\Message.vbs", true
FileSysObj.DeleteFile strStartup & "\Failsafe.vbs", true

Set colOperatingSystems = GetObject("winmgmts:{impersonationLevel=impersonat e,(Shutdown)}")_
.InstancesOf("Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Win32Shutdown(ForceRestart)
Next

Sachiv · 02-06-2007, 08:35 PM

Your aware that means anyone could turn on your workstation and log it on as you?

I think you'll reconsider your request after the first email to the whole company confessing of your affair with the janitor in the broom cupboard.

. (sent my someone having access to your e-mail).

---------

If your any sort of admin with any sort of privelages I would steer clear from this type of stuff.

Yes we just got audited...

Nick · 02-07-2007, 08:35 AM

Yeah, using autologin can be a double edged sword and is something I check for on my network regularly.

I think it has uses but I would recommend that if you use it that it's of limited use and uses an account that has very limited rights.

Nick · 02-07-2007, 08:41 AM

Yeah, using autologin can be a double edged sword and is something I check for on my network regularly.

I think it has uses but I would recommend that if you use it that it's of limited use and uses an account that has very limited rights.

brianl · 02-07-2007, 09:19 AM

We use a vbscript to set these also. We're imaging systems and then setting this through a DS job. For some reason it sets all of the registry settings but the PC does not log in because after reboot, DS has let the PC trying to log into the Local PC. Anyone have ideas how we can resolve this? It works every time if we push from NS.