Sub CheckIfProcessRunning(Treiber_Intel_ProSet.exe)
    Dim SVC: Set SVC = GetObject("winmgmts:root\cimv2")
    Dim sQuery: sQuery = "SELECT * FROM win32_process WHERE name='" & _
      ´Treiber_Intel_ProSet.exe & _
      "'"
    Dim CProc: Set CProc = SVC.EXECQuery(sQuery)
    Dim iniProc: iniProc = CProc.Count
    If iniProc = 0 Then
      bProcessFinish = True
    Else
      bProcessFinish = False
    End If
  End Sub