Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run "C:WindowsResourcesThemesaero.theme"

For i = 1 To 10

    WScript.Sleep 1000

    If WshShell.AppActivate("Personalization") Then
        WshShell.Sendkeys "%FC"
        WshShell.Sendkeys "{F4}"
        Exit For
    End If

Next

HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionThemes