Evenement en vbscript

Bonjour,
Je souhaite analyser l'utilisation des PC, pour cela, j'ai créé une tache planifié qui s'execute au bout de 30 minutes d'inactivité. Le script executer est une boucle qui écrit dans un fichier toute les 30 minutes. La tache s'arrete quand le PC est a nouvaeu actif (souris qui bouge, activation touche clavier ...). Le hic c'est que mon vbscript ne s'arrete pas.
Il faudrait que mon script s'arrette dés que le PC est a nouveau actif. J'ai cherché pour intercepter un evenement mais je ne vois rien. Je vous passe mon code, si quelqu'un peu m'aider je l'en remercie.

Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = Wscript.CreateObject("scripting.filesystemobject")
PCInactif=1
'ouverture du fichier lis_sem.txt ou lis_mois.txt
set futil = fso.openTextFile("c:\tmpinterfiles\"&year(date)&month(date)&day(date)&".txt", 8,true)
futil.writeline time
heureI=time
'Boucler tant que le pc est inactif
while PCInactif=1
'120000 = 2 minutes
'1800000 = 30 minutes
WScript.sleep 120000
futil.writeline time
wend
futil.close


cordialement,