' set sap GUI preferences in windows registry
' (user specific)
Option Explicit
Dim WSHShell, SapTheme
Const PaletteSHP = "9b9a8ffcfcedf4f3e3eae9d7e0dfd0d8d6c7cecdc0cbcbbdc1c0b2b7b6a8adac9fa09f958e8e847f7e7572726a6867605b5a544f4f493f3f3b65808e839daa8da8b795b1c1"
Const PaletteSHQ = "baaa87fff9f2fff5e2ffefd3ffecd1f9e7caf2e2c1ead8b6e0d1b1d6c8abc9ba9dc1b18fad9d7b9b8b699383638777557f6f4d7a69466d5c35b59b7cd1bb9cddc6a6e8d0ae"
Const PaletteSHT = "9c9e84fefff7f7f7f2ecede1e3e5d5dcddccd5d6c5ccceb7c3c4b0b9baa7acad9aa4a58e8f91787c7f6476775d696b506163485c5e404e513096967fb2b1a0bfbfaec9c9b7"
Const RegKey = "HKEY_CURRENT_USER\Software\SAP\General\Appearance\"
Set WSHShell = CreateObject("WScript.Shell")
SapTheme = WSHShell.RegRead (RegKey & "Theme")
If Len (SapTheme) < 1 Then
' MsgBox ("Kein SAP installiert?")
Else
WSHShell.RegWrite regkey & "Animation", "Off", "REG_SZ"
WSHShell.RegWrite regkey & "Sound", "Off", "REG_SZ"
WSHShell.RegWrite regkey & "SplashIntro", 0, "REG_DWORD"
WSHShell.RegWrite regkey & "SplashOff", 1, "REG_DWORD"
WSHShell.RegWrite regkey & "Theme", "System Dependent", "REG_SZ"
WSHShell.RegWrite regkey & "Systems\SHP\ActiveColorSetting", "Complementary", "REG_SZ"
' WSHShell.RegWrite regkey & "Systems\SHP\HuePaletteBuffer", PaletteSHP, "REG_SZ"
WSHShell.RegWrite regkey & "Systems\SHP\Theme", "Enjoy", "REG_SZ"
WSHShell.RegWrite regkey & "Systems\SHQ\ActiveColorSetting", "Rose", "REG_SZ"
' WSHShell.RegWrite regkey & "Systems\SHQ\HuePaletteBuffer", PaletteSHQ, "REG_SZ"
WSHShell.RegWrite regkey & "Systems\SHQ\Theme", "Enjoy", "REG_SZ"
WSHShell.RegWrite regkey & "Systems\SHT\ActiveColorSetting", "Mars Dust", "REG_SZ"
' WSHShell.RegWrite regkey & "Systems\SHT\HuePaletteBuffer", PaletteSHT, "REG_SZ"
WSHShell.RegWrite regkey & "Systems\SHT\Theme", "ENJOY", "REG_SZ"
' MsgBox ("Die SAP Standard-Einstellungen wurden modifiziert.")
End If
Thomas R.