'=========================================== =============================== '
' VBScript Source File -- ' ' NAME: desertTheme.vbs ' ' AUTHOR: Mark D. MacLachlan , The Spider's Parlor ' URL: http://www.thespidersparlor.com
' DATE : 04/22/2003 ' ' COMMENT: ' ' This script sets the desktop theme to "Desert" '======================================= ======================== ============on error resume next Set WSHShell = Wscript.CreateObject("WScript.Shell")
path = "HKCUControl PanelAppearance"
WSHShell.RegWrite path & "Current", "Desert","REG_SZ" WSHShell.RegWrite path & "CustomColors", "FF,FF,FF,00,FF,FF,FF,00,FF,FF,FF,00,FF,FF,FF ,00,FF,FF,FF,00,FF,FF,FF,00,FF,FF,FF,00,FF,F F,FF,00,FF,FF,FF,00,FF,FF,FF,00,FF,FF,FF,00, FF,FF,FF,00,FF,FF,FF,00,FF,FF,FF,00,FF,FF,FF ,00,FF,FF,FF,00","REG_BINARY" path = "HKCUControl PanelColors" WSHShell.RegWrite path & "ActiveBorder","213 204 187", "REG_SZ" WSHShell.RegWrite path & "ActiveTitle","0 128 128", "REG_SZ" WSHShell.RegWrite path & "AppWorkSpace","162 141 104", "REG_SZ" WSHShell.RegWrite path & "Background","162 141 104", "REG_SZ" WSHShell.RegWrite path & "ButtonAlternateFace","192 192 192", "REG_SZ" WSHShell.RegWrite path & "ButtonDkShadow","0 0 0", "REG_SZ" WSHShell.RegWrite path & "ButtonFace","213 204 187", "REG_SZ" WSHShell.RegWrite path & "ButtonHilight","234 230 221", "REG_SZ" WSHShell.RegWrite path & "ButtonLight","213 204 187", "REG_SZ" WSHShell.RegWrite path & "ButtonShadow","162 141 104", "REG_SZ" WSHShell.RegWrite path & "GradientActiveTitle","132 189 170", "REG_SZ" WSHShell.RegWrite path & "GradientInactiveTitle","232 208 128", "REG_SZ" WSHShell.RegWrite path & "GrayText","162 141 104", "REG_SZ" WSHShell.RegWrite path & "Hilight","0 128 128", "REG_SZ" WSHShell.RegWrite path & "HotTrackingColor","0 128 128", "REG_SZ" WSHShell.RegWrite path & "InactiveBorder","213 204 187", "REG_SZ" WSHShell.RegWrite path & "InactiveTitle","162 141 104", "REG_SZ" WSHShell.RegWrite path & "InactiveTitleText","255 255 255", "REG_SZ" WSHShell.RegWrite path & "InfoWindow","255 255 255", "REG_SZ" WSHShell.RegWrite path & "Menu","213 204 187", "REG_SZ" WSHShell.RegWrite path & "Scrollbar","234 230 221", "REG_SZ" path= "HKCUControl PanelDesktopWindowMetrics" WSHShell.RegWrite path & "BorderWidth","-15","REG_SZ" WSHShell.RegWrite path & "CaptionFont","F5,FF,FF,FF,00,00,00,00,00,00, 00,00,00,00,00,00,BC,02,00,00,00,00,00,00,0 0,00,00,00,4D,00,69,00,63,00,72,00,6F,00,73 ,00,6F,00,66,00,74,00,20,00,53,00,61,00,6E, 00,73,00,20,00,53,00,65,00,72,00,69,00,66,00 ,00,00,FC,7F,22,14,FC,7F,B0,FE,12,00, 0,00,0 0,00,00,00,00,00,98,23,EB,77", "REG_BINARY" WSHShell.RegWrite path & "IconFont","F5,FF,FF,FF,00,00,00,00,00,00,00 ,00,00,00,00,00,90,01,00,00,00,00,00,00,00, 00,00,00,4D,00,69,00,63,00,72,00,6F,00,73,0 0,6F,00,66,00,74,00,20,00,53,00,61,00,6E,00 ,73,00,20,00,53,00,65,00,72,00,69,00,66,00 ,00,14,00,0B,00,00,00,00,FF,12,00,50,00,00, 00,C0,FE,12,00,0C,10,00,01", "REG_BINARY" WSHShell.RegWrite path & "IconSpacing","-1125", "REG_SZ"
WSHShell.RegWrite path & "MenuFont","F5,FF,FF,FF,00,00,00,00,00,00,00 ,00,00,00,00,00,90,01,00,00,00,00,00,00,00, 00,00,00,4D,00,69,00,63,00,72,00,6F,00,73,0 0,6F,00,66,00,74,00,20,00,53,00,61,00,6E,00 ,73,00,20,00,53,00,65,00,72,00,69,00,66,00, 00,00,14,00,88,FB,E8,77,02,02,00,00,AC,B9,F 0,77,00,00,00,00,20,00,00,00", "REG_BINARY"
WSHShell.RegWrite path & "MessageFont",_ "F5,FF,FF,FF,00,00,00,00,00,00,00,00,00,00,00 ,00,90,01,00,00,00,00,00,00,00,00,00,00,4D,0 0,69,00,63,00,72,00,6F,00,73,00,6F,00,66,00, 74,00,20,00,53,00,61,00,6E,00,73,00,20,00,53 ,00,65,00,72,00,69,00,66,00,00,00,00,00,06,0 0,00,00,18,00,00,00,FF,FF,FF,FF,F0,4B,21,FC, 00,C4,F0,77", "REG_BINARY"
WSHShell.RegWrite path & "ScrollHeight","-195", "REG_SZ" WSHShell.RegWrite path & "ScrollWidth","-195", "REG_SZ" WSHShell.RegWrite path & "Shell Icon Size","32", "REG_SZ" WSHShell.RegWrite path & "SmCaptionFont","F5,FF,FF,FF,00,00,00,00,00,0 0,00,00,00,00,00,00,90,01,00,00,00,00,00,00, 00,00,00,00,4D,00,69,00,63,00,72,00,6F,00,7 3,00,6F,00,66,00,74,00,20,00,53,00,61,00,6E ,00,73,00,20,00,53,00,65,00,72,00,69,00,66, 00,00,00,F0,77,00,20,14,00,00,00,00,10,80,0 5,14,00,F0,1F,14,00,00,00,14,00", "REG_BINARY" WSHShell.RegWrite path & "SmCaptionHeight","-225","REG_SZ" WSHShell.RegWrite path & "SmCaptionWidth","-225","REG_SZ" WSHShell.RegWrite path & "StatusFont","F5,FF,FF,FF,00,00,00,00,00,00,0 0,00,00,00,00,00,BC,02,00,00,00,00,00,00,00, 00,00,00,4D,00,69,00,63,00,72,00,6F,00,73,00 ,6F,00,66,00,74,00,20,00,53,00,61,00,6E,00, 3,00,20,00,53,00,65,00,72,00,69,00,66,00,00 ,00,00,00,00,00,00,00,00,00,00,00, 0,00,00, 00,7C,6B,E8,77,00,00,00,00", "REG_BINARY" path= "HKCUControl PanelDesktop" WSHShell.RegWrite path & "Wallpaper","","REG_SZ"
path= "HKCUSoftwareMicrosoftInternet ExplorerDesktopComponents" WSHShell.RegWrite path & "GeneralFlags", "00000000", "REG_DWORD" path="HKCUSoftwareMicrosoftInternet ExplorerDesktopGeneral" WSHShell.RegWrite path & "BackupWallpaper","","REG_SZ" WSHShell.RegWrite path & "Wallpaper","","REG_SZ" WSHShell.RegWrite path & "WallpaperFileTime","00,00,00,00,00,00,00,0 ", "REG_BINARY" WSHShell.RegWrite path & "WallpaperLocalFileTime","00,28,A1,53,C5,FF, FF,FF", "REG_BINARY"
WSHShell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersion ExplorerStreamsDesktop" &_ "Taskbar", "0C,00,00,00,08,00,00,00,02,00,00,00,00,00,00, 00,B0,E2,2B,D8,64,57,D0,11,A9,6E,00,C0,4F,D7, 05,A2,22,00,1C,00,0A,01,00,00,1A,00,00,00,01, 00,00,00, 0,00,00,00,00,00,00,00,00,00,00,00, 4C,00,00,00, 1,14,02,00,00,00,00,00,C0,00,00, 00,00,00,00,46,81,00,00,00,10,00,00,00,A0,D8, 24,4A,17,C6,C2,01,58,2F,F7,A2,AD,03,C3,01,28, A8,F5,A2,AD,03,C3,01, 0,10,00,00,00,00,00,00, 01,00,00,00,00,00,00,00, 0,00,00,00,00,00,00, 00,16,01,14,00,1F,50,E0,4F,D0,20,EA,3A,69,10, A2,D8,08,00,2B,30,30,9D,19,00,23,43,3A,5C,00, 00,00,00,00,00,00,00,00,00,00,00, 0,00,00,00 ,31,84,2E,00,31,00,00,00,00,00,43,2E,D8,AC,30 ,00,44,6F,63,75,6D,65,6E,74,73,20,61,6E,64,20 ,53,65,74,74,69,6E,67,73,00,44,4F,43,55,4D,45 ,7E,31,00,23,00,31,00,00,00,00,00,81,2E,3D,88 ,10,00,6D,6D,61,63,6C,61,63,68,6C,61,6E,00,4D, 4D,41,43,4C,41,7E,31,00,28,00,31,00,00,00,00, 00,39,2E,92,41,12,00,41,70,70,6C,69,63,61,74, 69,6F,6E,20,44,61,74,61,00,41,50,50,4C,49,43, 7E,31,00,21,00,31,00,00,00,00,00,C5,22,9D,91 ,00,4D,69,63,72,6F,73,6F,66,74,00,4D,49,43,52 ,4F,53,7E,31, 0,29,00,31,00,00,00,00,00,D3, 32,A6,10,00,49,6E,74,65,72,6E,65,74,20,45,78, 70,6C,6F,72,65,72, 0,49,4E,54,45,52,4E,7E,31, 00,24,00,31,00,00,00, 0,00,DB,22,76,BA,10,00 ,75,69,63,6B,20,4C,61,75,6E,63,68,00,51,55,49 "REG_BINARY |