Skript ktorý kontroľuje či beží proces...

...

Moderátor: Mods_senior

Uživatelský avatar
ITCrowd
Tvůrce článků
Elite Level 12.5
Elite Level 12.5
Příspěvky: 19315
Registrován: březen 10
Pohlaví: Muž

Re: Skript ktorý kontroľuje či beží proces...

Příspěvekod ITCrowd » 26 kvě 2020 10:20

Tak tady to je:

Kód: Vybrat vše

'**********************************************
'*   Skript kontrolního spouštění programů    *
'*        Vytvořeno pro PC-HELP               *
'**********************************************
'*      Etienn@Script v.1.0 (c) 2020          *
'**********************************************

Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strList, WshShell, Fso
Const ADC = "c:\Program Files (x86)\Google\Chrome\Application\chrome.exe" 'Spousteny program
Const ADCren = "c:\Program Files (x86)\Google\Chrome\Application\chrome.bak" 'Prejmenovany exe
Const Proc = "notepad.exe" 'kontrolovany proces
Set Fso= CreateObject("Scripting.FileSystemObject")

' Prvni spusteni - kontrola jmena
If (Fso.FileExists(ADC)) Then
Fso.MoveFile ADC, ADCren
End If
WScript.Sleep 200

' Kontrola procesu
strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")

Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process")

For Each objProcess in colProcess
If objProcess.Name = Proc Then Negativ
Next

Set WshShell = Wscript.CreateObject("Wscript.Shell")
Fso.MoveFile ADCren, ADC
WScript.Sleep 200
WshShell.Run Chr(34) & ADC & Chr(34), 1, True
Fso.MoveFile ADC, ADCren

Set WshShell = Nothing
Set objWMIService = Nothing
Set colProcess = Nothing
Set Fso= Nothing
WScript.Quit

' Negative
Sub Negativ
   MsgBox "Program nelze spustit!" & vbcrlf & "Detekován proces: " & objProcess.Name ,vbOKOnly + vbCritical, "UPOZORNĚNÍ!"
   Set objWMIService = Nothing
   Set colProcess = Nothing
   Set WshShell = Nothing
   Set Fso= Nothing
   WScript.Quit
End Sub


Text zkopíruj, vlož do notepadu a pojmenuj třeba Launcher.vbs, ulož.

Launcher po spuštění zkontroluje přítomnost chrome.exe, pokud ho najde, přejmenuje ho na chrome.bak. Tím je zajištěno první přejmenování.
Dále otestuje, zda je v paměti přítomen proces notepad.exe. Pokud ho zjistí, vypíše hlášku. Pokud notepad v paměti není, přejmenuje chrome.bak na chrome.exe a spustí ho.
Dále čeká na ukončení programu chrome.exe. Jakmile se program ukončí, přejmenuje chrome.exe na chrome.bak a ukončí se.
Kontrolovaný proces a program jsou uloženy v Const, můžeš si je přepsat dle libosti.

Možná nástraha je v právech, systém nemusí dovolit přejmenování souboru ve složce Program files. To lze řešit:
1. Vytvořit link na laucher, ve vlastnostech linku nastavit vyšší práva (spustit jako správce).
2. Pravoklik na .exe spouštěného programu, záložka zabezpečení a pro sebe nastavit práva na Full Control (úplné řízení).


Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router

Reklama
Uživatelský avatar
TK1991
Level 1.5
Level 1.5
Příspěvky: 128
Registrován: březen 17
Pohlaví: Muž

Re: Skript ktorý kontroľuje či beží proces...

Příspěvekod TK1991 » 27 kvě 2020 14:13

Cau. Moc som nemal teraz cas to skusat tak som to hodil do PC na minutu a spapalo to skvelo. :thumbup:

Vdaka!


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Repasovaný Dell latitude 5580 - Critical proces died
    od Dan12345 » 19 zář 2019 18:46 » v BSOD (Blue Screen Of Death)
    4
    1471
    od JegenaJk
    21 zář 2019 17:22
  • Mam 2000mhz ram a běží mi na 667 mhz
    od Majkllllllll » 29 zář 2019 12:23 » v Problémy s hardwarem
    3
    390
    od petr22
    29 zář 2019 13:06
  • Disk běží na 100% i v klidu
    od jpanther » 11 čer 2020 13:05 » v Problémy s hardwarem
    6
    227
    od jpanther
    11 čer 2020 14:09
  • Při startu PC běží větráček na 100%
    od cre4te » 25 lis 2019 19:29 » v Problémy s hardwarem
    6
    347
    od flowem
    25 lis 2019 20:13
  • PC běží, myš, klávesnice a monitor ne
    od Mommox » 01 kvě 2020 12:19 » v Problémy s hardwarem
    6
    276
    od Mommox
    01 kvě 2020 13:57

Zpět na “Vše ostatní (sw)”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 2 hosti