' WinMonitor Object model 
' deklarace objektu
Set objWM = WScript.CreateObject("WinMonitor.Application")
objWM.DoAction(Action As String) 'provedení libovolného příkazu WinMonitoru
objWM.GetObject(Action As String) 'získání požadovaného objektu
objWM.ClearAnyKeyDownSatus 'nulování příznaku na stisk libovolné klávesy
objWM.AnyKeyDownSatus 'test na stisk libovolné klávesy
objWM.ShowBraille(ByVal Message As String)'zobrazí text na řádku

Set objAO = WScript.CreateObject("WinMonitor.cActiveObject")
objAO.gTitle() 'funkce, vrátí jméno aktivního prvku
objAO.gName() 'vrátí jméno prvku
objAO.gTitle() 'vrátí hodnotu prvku
objAO.gClassName() 'funkce, vrátí jméno třídy aktivního prvku
objAO.gState() 'funkce, vrátí stav aktivního prvku
objAO.gOrder() 'funkce, vrátí pořadí aktivního prvku v okně
objAO.gRole() 'funkce, vrátí kód typu aktivního prvku
objAO.gWinTitle() 'funkce, vrátí titul aktivního okna

Set objMouse = WScript.CreateObject("WinMonitor.Mouse")
objMouse.LeftClick 'levý klik na aktuální pozici kurzoru
objMouse.LeftDoubleClick 'levý dvojklik na aktuální pozici kurzoru
objMouse.RightClick() 'pravý klik na aktuální pozici kurzoru
objMouse.RightDoubleClick() 'pravý dvojklik na aktuální pozici kurzoru
objMouse.GetActiveObjectX()'funkce, která vrátí souřadnici X prvku, který má právě fokus
objMouse.GetActiveObjectY() 'funkce, která vrátí souřadnici Y prvku, který má právě fokus
objMouse.GetDescriptionXY(ByVal xp As Long, ByVal yp As Long) 'funkce, která vrátí popis podle souřadnice
objMouse.GetFrame(ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long, Optional ByVal sSelColor As String)
'vyčte text v obdélníku určeném souřadnicemi
objMouse.GetLabel(WinClass As String, x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long, Optional ByVal sSelColor As String)
' vyčte text v obdélníku určeném souřadnicemi vztaženými k oknu určeném systémovým jménem.
objMouse.MoveCursorInScreen(xP, yP) 'posun kurzoru v souřadnicích celé obrazovky
objMouse.MoveCursorInWindow(xP, yP) 'posun kurzoru v souřadnicích aktivního okna
objMouse.GetNameXY(Xp, Yp)'funkce, vrátí jméno prvku určeného souřadnicemi
objMouse.GetValueXY(Xp, Yp)'funkce, vrátí hodnotu prvku určeného souřadnicemi
objMouse.GetRoleXY(Xp, Yp)'funkce, vrátí kód, který označuje typ prvku určeného souřadnicemi, viz soubor gRole.def
objMouse.GetStateXY(Xp, Yp)'funkce, vrátí kód stavu prvku určeného souřadnicemi
objMouse.GetPosX()'funkce, která vrátí souřadnici X aktuální pozice kurzoru myši
objMouse.GetPosY()'funkce, která vrátí souřadnici Y aktuální pozice kurzoru myši
objMouse.GetObjectLocID(Xp, Yp)'funkce, která vrátí unikátní identifikaci prvku založenou na jeho pozici
objMouse.GetAAName(Hwnd, ObjID, ChildID)'funkce, vrátí jméno prvku určeného oknem, typem a pořadím prvku
objMouse.ShowWindow(ClassName As String, TitleName As String)'aktivuj okno
objMouse.GetWin(Redraw As Boolean, Comment As String, ColorFilter As Long) 'vyčte texty z objektu, který má fokus
objMouse.GetRegion(WinClass As String, x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long, Optional ByVal sSelColor As String)'vyčte text v objektu určeném systémovým jménem a volitelně i souřadnicemi

Set objVoice = WScript.CreateObject("WinMonitor.Voice")
objVoice.IsSpeaking()'test, zda hlas mluví
objVoice.Voice(ByVal Action As Long, ByVal Flag As Long, ByVal data As String)
'parametry:
'Action:
'1-ohlásit po skončení předchozí promluvy
'2-přerušit předchozí promluvu a ohlásit ihned
'3- test, zda se mluví
'4- přerušit.
'Flag: typ hláskování
'0-normal, 1-dlouhé, 2-střední, 3-krátké, 4-jménem
'Data: text promluvy.
objVoice.SwitchVoice()'přepnutí mezi primárním a sekundárním hlasovým výstupem
objVoice.GetVolume() 'vrátí hlasitost
objVoice.SwitchVoice() 'přepne hlas
objVoice.PlayRole(ByVal Role As Long) 'zahraje indikaci typu
objVoice.Play(ByVal FileName As String) 'přehraje zvukový soubor a počká dokud se nepřehraje
objVoice.PlayWavAsync(ByVal FileName As String) 'přehraje zvukový soubor