Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Set WshShell = WScript.CreateObject("WScript.Shell")
- WshShell.Run "rundll32.exe %SystemRoot%system32shell32.dll,Control_RunDLL %SystemRoot%system32desk.cpl desk,@Themes /Action:OpenTheme /file:""C:WindowsResourcesEase of Access Themesbasic.theme""",1,true
- WshShell.AppActivate("Desktop Properties")
- WshShell.Sendkeys "%FC"
- WshShell.Sendkeys "{F4}"
- Set WshShell = WScript.CreateObject("WScript.Shell")
- WshShell.Run "rundll32.exe %SystemRoot%system32shell32.dll,Control_RunDLL %SystemRoot%system32desk.cpl desk,@Themes /Action:OpenTheme /file:""C:WindowsResourcesEase of Access Themesbasic.theme"""
- Wscript.Sleep 5000
- WshShell.AppActivate("Desktop Properties")
- WshShell.Sendkeys "%FC"
- WshShell.Sendkeys "{F4}"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement