Automatyczna konfiguracja Windows, cz.1

Będzie to krótka seria przedstawiająca skrypty i ustawienia rejestru pozwalające na konfigurację systemów Windows Vista i 7. W tym artykule przedstawię sposób na automatyczną zmianę tematu wyglądu.

Oba poniżej podane pliki należy zapisać z rozszerzeniem vbs.

Wersja dla Windows7

Po uruchomieniu skryptu zostanie otwarte okno personalizacji w którym automatycznie zostanie zastosowany wybrany temat a następnie okno zostanie zamknięte kombinacją klawiszy Alt+f,c (w menu Plik / Zamknij).

'win7_theme.vbs

Set objShell = CreateObject("WScript.Shell")
Theme = """" & "C:\Windows\Resources\Ease of Access Themes\classic.theme" & """"
objShell.Run(cstr("control desk.cpl,,@themes /Action:OpenTheme /file:" & theme))

While objShell.APpActivate ("Personalization") = FALSE
       Wscript.Sleep 1000
Wend

While objShell.APpActivate ("Personalization") = TRUE
       Wscript.Sleep 2000
       objShell.Sendkeys "%fc"
Wend

Wersja dla Windows Vista

Po uruchomieniu skryptu zostanie otwarte okno wyboru tematu (skrypt będzie czekał aż takowe się pojawi). Wybrany temat zostanie zmieniony na ten podany w kodzie, a następnie zostanie wysłane naciśnięcie klawisza Enter.

'winVista_theme.vbs

Set objShell = CreateObject("WScript.Shell")

Theme = """" & "C:\Windows\Resources\Themes\Windows Classic.theme" & """"

objShell.Run(cstr("control desk.cpl,,@themes /Action:OpenTheme /file:" & theme))

While objShell.APpActivate ("Theme Settings") = FALSE
Wscript.Sleep 1000
Wend

While objShell.APpActivate ("Theme Settings") = TRUE
Wscript.Sleep 1600
objShell.Sendkeys "{ENTER}"
Wend