Set oSys = CreateObject("JSSys3.Ops")
errCode = oSys.SetBackColor("0000FF") ' 0 - OK, 1 - плохой цвет, 2 - failed

Set oSys = CreateObject("JSSys3.Ops")
errCode = oSys.SetSystemColor("Scrollbars", "0000FF")
' 0 - OK, 1 - плохой элемент интерфейса, 2 - плохой цвет,
' 3 - failed, 4 - запрещено, 5 - неизвестная ошибка

Set oSys = CreateObject("JSSys3.Ops")
errCode = oSys.SetWallpaper("C:\Temp\test.bmp", "stretch") ' "center", "tile" или "stretch"
' 0 - OK, 1 - плохой файл, 2 - плохой стиль, 3 - failed

Set oSys = CreateObject("JSSys3.Ops")

' глубина цвета в битах ("Качество цветопередачи", Свойства Экрана, вкладка "Параметры"):
WScript.Echo oSys.GetColorDepthBPP()
' разрешение экрана:
errCode = oSys.GetScreenPixels(w, h)
WScript.Echo w & " х " & h
' реальный размер экрана, без панели задач:
errCode = oSys.GetDesktopPixels(w, h)
WScript.Echo w & " х " & h

' установленные цвета элементов интерфейса (6-символьные строки, hex):
WScript.Echo oSys.GetSystemColor("Desktop")
WScript.Echo oSys.GetSystemColor("TitleBar") ' Active window title bar.
WScript.Echo oSys.GetSystemColor("TitleBar2") ' Active window title bar right gradient color.
WScript.Echo oSys.GetSystemColor("TitleBarText") ' Active window title bar text.
WScript.Echo oSys.GetSystemColor("InactiveTitleBar") ' Inactive window title bar.
WScript.Echo oSys.GetSystemColor("InactiveTitleBar2") ' Inactive window title bar right gradient color.
WScript.Echo oSys.GetSystemColor("InactiveTitleBarText") ' Inactive window title bar text.
WScript.Echo oSys.GetSystemColor("Buttons") ' Color for body of windows and buttons.
WScript.Echo oSys.GetSystemColor("Scrollbars") ' Scrollbar color.
WScript.Echo oSys.GetSystemColor("Desktop") ' Desktop background color.
WScript.Echo oSys.GetSystemColor("ButtonText") ' Text of button captions.
WScript.Echo oSys.GetSystemColor("Selection") ' highlight color (default dark blue.)
WScript.Echo oSys.GetSystemColor("SelText") ' color of actual text in text selection.
WScript.Echo oSys.GetSystemColor("Menu") ' window menu background (usually the same as button color).
WScript.Echo oSys.GetSystemColor("MenuText") ' window menu text.
WScript.Echo oSys.GetSystemColor("WindowBackground") ' background inside window (default white).
WScript.Echo oSys.GetSystemColor("WindowBackText") ' text inside window (default black).

' путь к исполняемому файлу программы, ассоциированной с указанным расширением:
WScript.Echo oSys.GetDefaultProgram("txt")
' полный путь к исполняемому файлу указанной программы:
WScript.Echo oSys.GetEXEPath("winword.exe")