Option Explicit
Dim ws,MyApplication,MyProcess
Set ws = CreateObject("WScript.Shell")
MyApplication = "%Programfiles%\WinRAR\WinRAR.exe"
MyProcess = "WinRAR.exe"
Do
'We check if the process is not running so we execute it If CheckProcess(MyProcess) = False then Call Executer(DblQuote(MyApplication),0)'0 to Hide the console
'We made ​​a one-minute break and continue in our loop to check
'whether or not our process exists(in our case = WinRAR.exe) Pause(1) End if
Loop
'***********************************************************************************************
Function CheckProcess(MyProcess) Dim strComputer,objWMIService,colProcessList strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colProcessList = objWMIService.ExecQuery _ ("Select Name from Win32_Process WHERE Name LIKE '" & MyProcess & "%'") If colProcessList.count > 0 then CheckProcess = MyProcess & " is running" CheckProcess = True else CheckProcess = MyProcess & " is not running" CheckProcess = False End if Set objWMIService = Nothing Set colProcessList = Nothing
End Function
'*********************************************************************************************** Sub Pause(NMins) Wscript.Sleep(NMins*1000*60) End Sub
'*********************************************************************************************** Function Executer(StrCmd,Console) Dim ws,MyCmd,Resultat Set ws = CreateObject("wscript.Shell")
'La valeur 0 pour cacher la console MS-DOS If Console = 0 Then MyCmd = "CMD /C " & StrCmd & " " Resultat = ws.run(MyCmd,Console,True) If Resultat = 0 Then Else MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !" End If End If
'La valeur 1 pour montrer la console MS-DOS If Console = 1 Then MyCmd = "CMD /K " & StrCmd & " " Resultat = ws.run(MyCmd,Console,False) If Resultat = 0 Then Else MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !" End If End If Executer = Resultat
End Function
'**********************************************************************************************
Function DblQuote(Str) DblQuote = Chr(34) & Str & Chr(34)
End Function
'**********************************************************************************************