Diallix píše:zalezi naco to potrebujes?
Kód: Vybrat vše
'**********************************************
'* Skript kontrolního spouštění programů *
'**********************************************
'* e.t.script v.1.0 (c) 2017 *
'**********************************************
Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strList, WshShell
Const ADC = "c:\Program Files (x86)\Audacity\audacity.exe"
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 = "chrome.exe" Then Negativ
Next
Set WshShell = Wscript.CreateObject("Wscript.Shell")
WshShell.Run Chr(34) & ADC & Chr(34)
Set WshShell = Nothing
Set objWMIService = Nothing
Set colProcess = 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
WScript.Quit
End Sub
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 1 host
