Option Explicit
‘On Error Resume Next
Dim WshShell
Dim OsType
Dim WshShell, objFSO, PROG, orgexe, newexe,c,value
Set WshShell = CreateObject(“WScript.Shell”)
OsType = WshShell.RegRead(“HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE”)
If OsType = “x86″ then
WshShell.Regwrite “HKEY_CURRENT_USER\Control Panel\Desktop\ScreenSaveActive”, “1″, “REG_SZ”
WshShell.Regwrite “HKEY_CURRENT_USER\Control Panel\Desktop\ScreenSaverIsSecure”, “1″, “REG_SZ”
WshShell.Regwrite “HKEY_CURRENT_USER\Control Panel\Desktop\ScreenSaveTimeOut”, “300″, “REG_SZ”
WshShell.Regwrite “HKEY_CURRENT_USER\Control Panel\Desktop\SCRNSAVE.EXE”, “C:\Windows\screensaver\Blktxt3.scr”, “REG_SZ”
WshShell.Run “Cscript.exe C:\Program Files\WallPaperFiles\ZCGSetWallpaper.wsf”
WshShell.Run “Cscript.exe C:\Program Files\WallPaperFiles\ZCGChangeBackColor.wsf”
elseif OsType = “AMD64″ Then
WshShell.Regwrite “HKEY_CURRENT_USER\Control Panel\Desktop\ScreenSaveActive”, “1″, “REG_SZ”
WshShell.Regwrite “HKEY_CURRENT_USER\Control Panel\Desktop\ScreenSaverIsSecure”, “1″, “REG_SZ”
WshShell.Regwrite “HKEY_CURRENT_USER\Control Panel\Desktop\ScreenSaveTimeOut”, “300″, “REG_SZ”
WshShell.Regwrite “HKEY_CURRENT_USER\Control Panel\Desktop\SCRNSAVE.EXE”, “C:\Windows\screensaver\Blktxt3.scr”, “REG_SZ”
WshShell.Run “Cscript.exe C:\Program Files\WallPaperFiles\ZCGSetWallpaper.wsf”
WshShell.Run “Cscript.exe C:\Program Files\WallPaperFiles\ZCGChangeBackColor.wsf”
end If
set WshShell = Nothing
Set objFSO = Nothing
