Created
December 5, 2021 20:39
-
-
Save rhom6us/bb7e6dccb4a723e63e7e353d871fc17c to your computer and use it in GitHub Desktop.
change window default shell to this
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <html> | |
| <head> | |
| <title>IT Tasks for Users</title> | |
| <HTA:APPLICATION | |
| APPLICATIONNAME="IT Tasks for Users" | |
| ID="IT Tasks for Users" | |
| VERSION="1.0"/> | |
| <STYLE></STYLE> | |
| </head> | |
| <script language="VBScript"> | |
| Sub Window_OnLoad | |
| Me.ResizeTo 450,750 | |
| Me.MoveTo Screen.Width / 2 - 400,Screen.Height / 2 - 400 | |
| End Sub | |
| Sub ExitProgram | |
| window.close() | |
| End Sub | |
| Sub RunRDP() | |
| Set objShell = CreateObject("WScript.Shell") | |
| objShell.Run("mstsc /f /v:callisto"), 1, True | |
| End Sub | |
| Sub LogOut() | |
| set objShell = CreateObject("WScript.Shell") | |
| objShell.run("logout") | |
| End Sub | |
| Sub LogOff() | |
| set objShell = CreateObject("WScript.Shell") | |
| objShell.run("logoff") | |
| End Sub | |
| Sub RebootPC() | |
| Set objShell = CreateObject("WScript.Shell") | |
| objShell.Run("shutdown -t 0 -r -f"), 1, True | |
| End Sub | |
| </script> | |
| </head> | |
| <body bgcolor="white"> | |
| <font face="Arial"><h3>WinLogon< | |
| <br><br><button onclick='vbscript:RunRDP'>RDP to TS Farm</button> | |
| <br><br><button onclick='vbscript:LogOut'>logout</button> | |
| <br><br><button onclick='vbscript:RebootPC'>Reboot PC</button> | |
| <br><br><input id=runbutton type="button" value="Exit" onClick="ExitProgram"><br> | |
| </font> | |
| </body> | |
| </html> |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment