objWMP einstellen = nichts
strComputer = „REMOTEPCNAME“
strMediaFile = „C:\temp\AlarmFile.mp3“
Wenn zutreffend
Wenn Klingeln (strComputer) = dann ausrichten
Wenn objWMP nichts dann eingestelltes objWMP = CreateObject ist („WMPlayer.OCX“)
objWMP.openPlayer strMediaFile
Sonst
objShell = CreateObject („WScript.Shell“) einstellen
objShell.Run „taskkill /F /IM wmplayer.exe“, 0, zutreffend
Beenden wenn
'30 Sekunden warten
WScript.Sleep 30000
Wend
Funktions-Klingeln (strComputer)
Schwaches objShell, boolCode
objShell = CreateObject („WScript.Shell“) einstellen
boolCode = objShell.Run („Klingeln - n 1 - w 300“ u. strComputer, 0, zutreffendes)
Wenn boolCode = 0 dann
Klingeln = ausrichten en
Sonst
Klingeln = falsch
Beenden wenn
Funktion beenden
|