[VBSCRIPT] Traduzione Codice

[Sym98]

Ciao, per favore mi potete tradurre questo codice in VBScript?? Credo che dovrebbe chiudere tutte le applicazioni sbaglio o no?? se è no ditemi cosa fa...grazie mille

'Codice:
Dim shl
Set shl = CreateObject("Wscript.Shell")

Do
Wscript.Sleep 100
shl.SendKeys"%{F4}"
Loop