Új hozzászólás Aktív témák

• #5418 ArchElf addikt VIPowER #5417

  Új Válasz 2008-07-11 10:57:25 #5418

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  ArchElf

  addikt

  válasz VIPowER #5417 üzenetére

  VbScriptben kb 10 sor...

  Dim oWMI, oProc, cProc, oWS, sProc, sRun
  sProc = "notepad.exe"
  sRun = "akarmi.cmd"
  Set oWS = CreateObject("WScript.Shell")
  Set objWMIService = GetObject("winmgmts:" _
  & "{impersonationLevel=impersonate}!\\" _
  & "." & "\root\cimv2")
  Do
  Set cProc = objWMIService.ExecQuery _
  ("Select * from Win32_Process Where Name = '" & sProc & "' ")
  If cProc.Count = 0 Then Exit Do
  WScript.Sleep(100)
  Loop
  oWS.Run sRun

  sProc -> amit figyelsz
  sRun -> amit indítasz
  Ha nem az aktuális könyvtárban van (vagy nem elérhető a PATH környezeti változó által) amit indítasz, akkor teljes útvonal kell neki.

  AE

Új hozzászólás Aktív témák