Fijar el objWMP = nada
strComputer = “REMOTEPCNAME”
strMediaFile = “C:\temp\AlarmFile.mp3”
Mientras que es verdad
Si el silbido de bala (strComputer) = entonces verdad
Si el objWMP no es nada objWMP entonces fijado = CreateObject (“WMPlayer.OCX”)
objWMP.openPlayer strMediaFile
Fijar el objShell = CreateObject (“WScript.Shell”)
objShell.Run “taskkill /F /IM wmplayer.exe”, 0, verdad
Terminar si
'Esperar 30 segundos
WScript.Sleep 30000
Wend
Silbido de bala de la función (strComputer)
objShell dévil, boolCode
Fijar el objShell = CreateObject (“WScript.Shell”)
boolCode = objShell.Run (“silbido de bala - n 1 - w 300” y strComputer, 0, verdades)
Si boolCode = 0 entonces
El silbido de bala = verdad
Silbido de bala = falso
Terminar si
Terminar la función
|