Placer l'objWMP = rien
strComputer = « REMOTEPCNAME »
strMediaFile = « C:\temp\AlarmFile.mp3 »
Tandis que vrai
Si le cinglement (strComputer) = rectifient alors
Si l'objWMP n'est rien objWMP alors réglé = CreateObject (« WMPlayer.OCX »)
objWMP.openPlayer strMediaFile
Autrement
Placer l'objShell = le CreateObject (« WScript.Shell »)
objShell.Run « taskkill /F /IM wmplayer.exe », 0, vrai
Finir si
'Attendre 30 secondes
WScript.Sleep 30000
Wend
Cinglement de fonction (strComputer)
Faible objShell, boolCode
Placer l'objShell = le CreateObject (« WScript.Shell »)
boolCode = objShell.Run (« cinglement - n 1 - W 300 » et strComputer, 0, vrais)
Si boolCode = 0 puis
Le cinglement = rectifient
Autrement
Cinglement = faux
Finir si
Finir la fonction
|