Windows – Vbscript for autologin

scriptvbscriptwindowswindows 10windows-10-v1607

I have retrieved a VBscript that may have worked in other scenarios to auto login windows ran by a task scheduler when windows is logged off by automating the logon process like a normal user would do on windows 10.
IE: user arrives to a computer, presses enter for the login screen to appear, types in username, presses tab and enters password and clicks enter and the user logs in.

here is the script :

set wshShell = CreateObject("WSCript.shell")

wshShell.sendkeys "{ENTER}"

wscript.sleep 5000

wshShell.sendkeys "Username"

wscript.sleep 5000

wshShell.sendkeys "{Tab}"

wscript.sleep 5000

wshShell.sendkeys "Password"

wscript.sleep 5000

wshShell.sendkeys "{ENTER}"

WScript.Quit

now the code works find if i run it from a logged on user in windows, it presses enter types the username presses tab type password and presses enter, but when i create a task to run, nothing happens and if i look at the history of the task it says that the process ran successfully which means there was no errors.

I have tried to convert it to EXE still same results any help or fix would be appreciated,

Thank you.

Best Answer

I cannot add comments so maybe this will answer your question or help. Are you using a .bat file to execute your script in the scheduled task? You would create a file named something like "Start.bat". It would just be a single line like this:

start wscript.exe "C:/Users/MyName/Desktop/PopUp.vbs"

When setting up this task, the file name would go here (see pic) - which I'm sure you already know performing these options:

Name > When computer starts > Start a program > Program script (browse to the .bat) > Finish

Browse file for scheduled task

Related Solutions

Windows – Problems with runas and system account

This appears to be the same problem as encountered with PSExec. Edit: Runas and PSExec spawn new processes with different credentials by calling CreateProcessWithLogonW. However if you are using the "LocalSystem" account:

You cannot call CreateProcessWithLogonW from a process that is running under the "LocalSystem" account, because the function uses the logon SID in the caller token, and the token for the "LocalSystem" account does not contain this SID.

http://msdn.microsoft.com/en-us/library/ms682431%28VS.85%29.aspx

Windows – VBScript in Windows 7 64bit Scheduled Task – Works with only run when logged in

Fixing Group Policy problems by using log files

Enable Logging for Group Policy Object Editor Client Side Extensions

[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon]
GPTextDebugLevel REG_DWORD 0x30002

0/ see logs:

 %windir%\debug\usermode\gptext.log

1/ 32-bit run vbscript:

%windir%\syswow64\cscript.exe "C:\myscript.vbs"

2/ Programs may be unable to access some network locations after you turn on User Account Control in Windows Vista or in Windows 7

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System]
"EnableLinkedConnections" REG_DWORD 1

3/ Disable UAC

command line:

vbs-32.cmd ExcelSheetName.vbs ExcelSrc.xls

vbs-32.cmd:

SET WSH32=%windir%\SysWOW64\cscript.exe
%WSH32% %*

SheetName.vbs:

'Microsoft ActiveX Data Object 2.8 Library
'Microsoft ADO Ext. 2.8 for DDL And Security

Const ArrSize = 100
Dim ArrSheetName()
ReDim ArrSheetName(ArrSize)
IndexArr = 0

IF WScript.Arguments.Count = 0 Then
        WScript.Echo "Script Usage:"
        WScript.Echo "%windir%\SysWOW64\cscript.exe ExcelSheetName.vbs [Excel file full path]"
        WScript.Echo "%windir%\SysWOW64\cscript.exe ExcelSheetName.vbs D:\Office\ExcelSrc.xls"
       Wscript.Quit(10)
End If

Dim ExcelFileName
ExcelFileName=WScript.Arguments(0)

Dim ADOCatalog, ADOTable, ADODBConnection

Set ADOCatalog      = Createobject("ADOX.Catalog")
Set ADOTable        = Createobject("ADOX.Table")
Set ADODBConnection = CreateObject("ADODB.Connection")

Dim strConnString, strSheetName

strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ExcelFileName & ";Extended Properties=Excel 8.0;"

ADODBConnection.Open strConnString
Set ADOCatalog.ActiveConnection = ADODBConnection

For Each ADOTable In ADOCatalog.Tables
strSheetName = ADOTable.Name
strSheetName = Replace(strSheetName, "'", "")
strSheetName = Left(strSheetName, InStr(1, strSheetName,"$", 1)-1)
'Wscript.Echo strSheetName
ArrSheetName(IndexArr)=strSheetName
IndexArr=IndexArr+1

Next
ReDim Preserve ArrSheetName(IndexArr-1)

ADODBConnection.Close

Set ADOCatalog      = Nothing
Set ADOTable        = Nothing
Set ADODBConnection = Nothing

For Each ArrValue in ArrSheetName
    Wscript.Echo ArrValue
Next

Best Answer

Related Solutions

Windows – Problems with runas and system account

Windows – VBScript in Windows 7 64bit Scheduled Task – Works with only run when logged in

Related Question