; Пример 1
;
; Подсчет количество открытых окон эксплорера и интернет эксплорера (Windows Shell)

Local $oShell = ObjCreate("shell.application") ; Получает объекты Windows Shell
Local $oShellWindows = $oShell.windows ; Получает только открытые shell Windows

If IsObj($oShellWindows) Then

	Local $string ; Строка для присоединения результатов

	For $oWnd In $oShellWindows ; Перечисление всех существующих shell windows
		$string &= $oWnd.LocationName & @CRLF
	Next

	MsgBox(4096, "Shell Windows", "Вы имеете следующие открытые окна:" & @CRLF & @CRLF & $string);

EndIf
Exit

; Пример 2
;
; открывает MediaPlayer на УДАЛЁННОМ компьютере
Local $oRemoteMedia = ObjCreate("MediaPlayer.MediaPlayer.1", "name-of-remote-computer")

If Not @error Then
	MsgBox(4096, "Тест удалённого ObjCreate", "Функция ObjCreate() успешно создала объект Mediaplayer на удалённом компьютере!")
	$oRemoteMedia.Open(@WindowsDir & "\media\tada.wav") ; Воспроизведение звукового файл, если он существует
Else
	MsgBox(4096, "Тест удалённого ObjCreat", "Не удалось открыть объект на удалённом компьютере. Код ошибки: " & Hex(@error, 8))
EndIf