Dim fso, stream, str, re, name
Dim wsh, oExec

Set wsh   =  CreateObject(„WScript.Shell”)
Set oExec = wsh.Exec(„cmd /c ” & „tasklist | find ” & Chr(34) & „gg.exe” & Chr(34))
wynik     = oExec.StdOut.ReadAll

‘msgbox wynik

Dim valid
Set objRegEx = CreateObject(„VBScript.RegExp”)

valid = False
objRegEx.Pattern = „^gg.exe”
valid = objRegEx.test(wynik)

If valid = True Then
 ”MsgBox(wynik)
Else
    wsh.Run Chr(34) & „C:\\Program Files\\Gadu-Gadu\\gg.exe” & Chr(34)
    Set wsh = Nothing
End if