fork download
copy 
  1. strComputer = "."
  2. Set objWMIService = GetObject("winmgmts:" _
  3.     & "{impersonationLevel=impersonate}!\\" _
  4.     & strComputer & "\root\cimv2")
  5.  
  6. Set colProcesses = objWMIService.ExecQuery( _
  7.     "Select Name From Win32_Process " _
  8.     & "Where Name = 'E_REST32.EXE'")
  9.  
  10. If colProcesses.Count = 0 Then
  11.   Set objShell = Wscript.CreateObject("Wscript.Shell")
  12.   Set objEnv = objShell.Environment("Process")
  13.   objShell.Run """" + "D:\rk6\E_REST32.EXE"""
  14. Else
  15.   MsgBox "Копия программы уже запущена. ", 48, "Внимание"
  16. End If
Success #stdin #stdout 0.02s 24400KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")

Set colProcesses = objWMIService.ExecQuery( _
    "Select Name From Win32_Process " _
    & "Where Name = 'E_REST32.EXE'")

If colProcesses.Count = 0 Then
  Set objShell = Wscript.CreateObject("Wscript.Shell")
  Set objEnv = objShell.Environment("Process")
  objShell.Run """" + "D:\rk6\E_REST32.EXE"""
Else
  MsgBox "Копия программы уже запущена. ", 48, "Внимание"
End If
https://ideone.com/QwZHjI
language:
PHP (php 7.3.5)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!