Что нового

[Автоматизация] Как написать команду выключения нужного мне процесса по сети?

agikon

Знающий
Сообщения
789
Репутация
16
обычно команда завершения процесса выглядит так:
ProcessClose('opera.exe') ;

А вот как эту команду послать по сети другому компу?
Ну чтобы оперу выключить на компе 192,168,0,2

Ну смотрите чтобы удалить процесс по сети то в командной строке пишу taskkill /s 192.168.0.2 /im opera.exe /f

А вот как это прописать в аутоите?

Помогите пожалуйста.
 

VladUs

Скриптер
Сообщения
621
Репутация
181
Когда - то делал утилитку для работы с процессами по сети (запуск и завершение) на основе WMI.
Вот может пригодиться

Код:
#include <GuiListView.au3>
#include <GUIConstants.au3> 
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $mess
Global $item , $PID
$GUI=GUICreate("ProcessRemountMenegment(WMI)",500, 450, Default, Default,$GUI_SS_DEFAULT_GUI)
$Cuilistview = GUICtrlCreateListView("№|Name|PID  ", 10, 10, 280, 350)
$GuiLabelComp = GUICtrlCreateLabel("Ip - addres",300,8,120,30)
$GuiInputComp = GUICtrlCreateInput("",300,30,150,30)
$GuiLabelName = GUICtrlCreateLabel("Name User",300,80,120,30)
$GuiInputName = GUICtrlCreateInput("",300,100,150,30)
$GuiLabelPass = GUICtrlCreateLabel("Pass User",300,150,120,30)
$GuiInputPass = GUICtrlCreateInput("",300,170,150,30)
$GuiLabelPass = GUICtrlCreateLabel("PID",300,200,120,30)
$GuiInputPid = GUICtrlCreateInput("",300,230,150,30)
$GuiButGetProc = GUICtrlCreateButton("Get Proc", 300,280,150,30)
$GuiButKillProc = GUICtrlCreateButton("Kill Proc", 300,330,150,30)
$GuiButStartProc = GUICtrlCreateButton("Start Proc", 10,380,120,30)
$GuiInputStartProc = GUICtrlCreateInput("",170,380,120,30)
ControlDisable($GUI,"",$GuiButKillProc )
ControlDisable($GUI,"",$GuiInputPid )
GUISetState()


$oMyError = ObjEvent("AutoIt.Error","MyErrFunc") 


$msg = GUIGetMsg()
while $msg <> $GUI_EVENT_CLOSE
	$msg = GUIGetMsg()
	$iIndex = ControlListView($GUI, "ProcessClose", $Cuilistview, "GetSelected")
	$Ret = ControlListView($Gui, "", $CuiListView, "GetText", $iIndex, 2)
	if GUICtrlRead ( $CuiListView ) > 0 then 
	GUICtrlSetData ( $GuiInputPid,$Ret )
	endif

	Select
	Case $msg = $GuiButGetProc
		$Comp = GUICtrlRead ($GuiInputComp)
		$Name = GUICtrlRead ($GuiInputName)
		$Pass = GUICtrlRead ($GuiInputPass)
		if $Comp = "." then 
			_GUICtrlListView_DeleteAllItems($Cuilistview)
			_GetProc($Comp,$Name,$Pass)
			ControlEnable($GUI,"",$GuiButKillProc)
		else	
		If  $Name = "" or $Pass = "" Then
			MsgBox(64,"Не заполнены поля", "Не заполнены некоторые поля")
		Else
			If Ping ($Comp,400) Then
				_GUICtrlListView_DeleteAllItems($Cuilistview)
				_GetProc($Comp,$Name,$Pass)
				 ControlEnable($GUI,"",$GuiButKillProc)
			Else
				MsgBox(16,"Ошибка доступа к  компьютеру","Компьютер не доступен. Ошибка №" & @error )
			EndIf
		EndIf
		EndIf
	Case $msg = $GuiButKillProc
		$Comp = GUICtrlRead ($GuiInputComp)
		$Name = GUICtrlRead ($GuiInputName)
		$Pass = GUICtrlRead ($GuiInputPass)
		$PID  = GUICtrlRead ($GuiInputPid)
		
		if $PID = ""  then 
			MsgBox(64,"Не заполнено поле PID", "Не заполнено поле PID")
		Else
		_ProcClose ($Comp,$Name,$Pass, $PID)
		_GUICtrlListView_DeleteAllItems($Cuilistview)
		_GetProc($Comp,$Name,$Pass)
		GUICtrlSetData($GuiInputPid,"")
		EndIf
	Case $msg = $GuiButStartProc
		$Comp = GUICtrlRead ($GuiInputComp)
		$Name = GUICtrlRead ($GuiInputName)
		$Pass = GUICtrlRead ($GuiInputPass)
		$StartProc = GUICtrlRead ($GuiInputStartProc)
		if $Comp = "." then 
			_StartProc($Comp,$Name,$Pass,$StartProc)
		Else
			if $Name = "" or $Pass = "" or $StartProc ="" Then
				MsgBox(64,"Не заполнены поля", "Не заполнены некоторые поля")
			else
				_StartProc($Comp,$Name,$Pass,$StartProc)
			EndIf

		EndIf
	EndSelect
	
wend


Func _ProcClose ($strComputer,$strUser,$strPassword, $ProcName)

$strDomain = "DOMAIN"	
$objSWbemLocator = ObjCreate("WbemScripting.SWbemLocator")

if $strComputer = "." then 
		$objWMIServiceProc= $objSWbemLocator.ConnectServer(".", "Root\CIMV2") 
Else
		$objWMIServiceProc =  $objSWbemLocator.ConnectServer( $strComputer,"root\CIMV2",$strUser,$strPassword,"", "ntlmdomain:" & $strDomain)
EndIf
if Not @error  then	
$objShare = $objWMIServiceProc.Get("Win32_Process.Handle=" & $ProcName)
$objInParam = $objShare.Methods_("Terminate").inParameters.SpawnInstance_()
$objOutParams = $objWMIServiceProc.ExecMethod("Win32_Process.Handle=" & $ProcName, "Terminate", $objInParam)
Else
EndIf
EndFunc

Func _GetProc($strComputer,$strUser,$strPassword)


$strDomain = "DOMAIN"
$objSWbemLocator = ObjCreate("WbemScripting.SWbemLocator") 

if $strComputer = "." then 
		$objWMIServiceProc= $objSWbemLocator.ConnectServer(".", "Root\CIMV2") 
Else
		$objWMIServiceProc =  $objSWbemLocator.ConnectServer( $strComputer,"root\CIMV2",$strUser,$strPassword,"", "ntlmdomain:" & $strDomain)
EndIf
	
if Not @error  then 
	$colItems = $objWMIServiceProc.ExecQuery ("SELECT * FROM Win32_Process") 
	$item1 = 0
For  $objItem in $colItems 
	$item1 +=1
	ConsoleWrite   ($objItem.Caption & "     " & $objItem.Handle & @CR)
	$item = GUICtrlCreateListViewItem($item1 &"|" & $objItem.Caption &"|"& $objItem.Handle, $Cuilistview)
Next
Else
EndIf

EndFunc

Func _StartProc($strComputer,$strUser,$strPassword,$strProg)
$strDomain = "DOMAIN"
$objSWbemLocator = ObjCreate("WbemScripting.SWbemLocator") 

if $strComputer = "." then 
		$objWMIServiceProc= $objSWbemLocator.ConnectServer(".", "Root\CIMV2") 
Else
		$objWMIServiceProc =  $objSWbemLocator.ConnectServer( $strComputer,"root\CIMV2",$strUser,$strPassword,"", "ntlmdomain:" & $strDomain)
EndIf

if Not @error  then
$objShare = $objWMIServiceProc.Get("Win32_Process")
$objInParam = $objShare.Methods_("Create").inParameters.SpawnInstance_()
$objInParam.Properties_.Item("CommandLine") =  $strProg 
$objOutParams = $objWMIServiceProc.ExecMethod("Win32_Process", "Create", $objInParam)   
Else
EndIf
EndFunc

Func _MacAdr($strComputer,$strUser,$strPassword)
$strDomain = "DOMAIN"	
$objSWbemLocator = ObjCreate("WbemScripting.SWbemLocator") 
$objWMIServiceProc =  $objSWbemLocator.ConnectServer( $strComputer,"root\CIMV2",$strUser,$strPassword,"", "ntlmdomain:" & $strDomain)
$colItems = $objWMIServiceProc.ExecQuery ("SELECT * FROM Win32_NetworkAdapter") 
$item1 = 0
For  $objItem in $colItems 
$item1 +=1
$mess &= $item1 & " " & $objItem.MACAddress & @CR

 ConsoleWrite   ($item1 & " " & $objItem.MACAddress & "  " &  $objItem.ProductName  & @CR)

Next
MsgBox(1,"",$mess)
EndFunc


Func MyErrFunc() 
   $HexNumber=hex($oMyError.number,8) 
   Msgbox(0,"","We intercepted a COM Error !" & @CRLF & _
               "Number is: " & $HexNumber & @CRLF & _
               "Windescription is: " & $oMyError.windescription & @CRLF & _
			   "Родитель ошибки: " & $oMyError.source ) 

   SetError(1) 
Endfunc
 
Автор
A

agikon

Знающий
Сообщения
789
Репутация
16
боюсь не разберусь в этом коде.

мне бы поконкретнее какая команда удаляет по сети процессы.

например надо удалить opera.exe на машине с ip 192.168.0.2
 
Автор
A

agikon

Знающий
Сообщения
789
Репутация
16
оо вот это то что надо.
Спасо вам за помощь.
 

darkwhite

Новичок
Сообщения
129
Репутация
4
А что права Администратора для этого не нужны?
 
Автор
A

agikon

Знающий
Сообщения
789
Репутация
16
не нужны если ты отключешь их.
 

darkwhite

Новичок
Сообщения
129
Репутация
4
OffTopic:
Как это ? отключишь? в смысле безопасности на машине?
 
Верх