Ajustar o objWMP = nada
strComputer = “REMOTEPCNAME”
strMediaFile = “C:\temp\AlarmFile.mp3”
Quando verdadeiro
Se o sibilo (strComputer) = retifica então
Se o objWMP não é nada objWMP então ajustado = CreateObject (“WMPlayer.OCX”)
objWMP.openPlayer strMediaFile
Mais
Ajustar o objShell = o CreateObject (“WScript.Shell”)
objShell.Run “taskkill /F /IM wmplayer.exe”, 0, verdadeiro
Terminar se
'Esperar 30 segundos
WScript.Sleep 30000
Wend
Sibilo da função (strComputer)
objShell não ofuscante, boolCode
Ajustar o objShell = o CreateObject (“WScript.Shell”)
boolCode = objShell.Run (“sibilo - n 1 - w 300” & strComputer, 0, verdadeiros)
Se boolCode = 0 então
O sibilo = retifica
Mais
Sibilo = falso
Terminar se
Terminar a função
|