Tämä VBS:ä näyttää käynnissä olevat prosessit MsgBoxina.
set prc = getobject("winmgmts:{impersonationLevel=impersonate}") _
.instancesof("win32_process")
for each objekti in prc
nr = nr + 1
prosessit = prosessit & objekti.processid & " " & objekti.name & vbcrlf
Next
runningprocess = "Total = " & nr & runningProcess
msgbox prosessitAihe on jo aika vanha, joten et voi enää vastata siihen.