Endlosschleife sinngemäß?

dragst3r

Hallo.

Ich habe da ein kleine Verständisfrage und zwar:

Ich ändere ober eine erstellte Oberfläche einen bestimmten Registry Wert auf einem anderen Computer im Netzwerk.
Ist nun dieser Registry Wert 1 wird die Oberfläche auf den jeweiligen Computer gesperrt.

Dazu habe ich auf den Clients eine exe am laufen die in einer Endlosschleife alle 1Sek prüft wie der Wert ist!
Ich weiß nun allerdings nicht ob das sehr performanceraubent ist.

Gibt es die möglichkeit dies zu ändern? Beispielsweise so, das wenn ich verschiedene Computer auswähle und dessen
Bildschirm sperren will, diese eine Paket bekommen und die Bildschirmsperre.exe starten um somit die Endlosschleife
zu umgehen?

Wie könnte man sowas realisieren? Dies sollte später dann zudem noch als Dienst laufen!

Vielen Dank im Voraus

Gruß
dragst3r

McPoldy

Ich spinne mal so einfach drauf los, was mir als erstes in den Kopf kommt. Wie wäre ein kleines Skript was einen UDP Server darstellt, und dem Du über das Netzwerk einen bestimmten Befehl sendst, so nach dem Motto Befehl1 = Desktop sperren Befehl2 = Desktop freigeben.
Wie schon gesagt nur so ein Gedankenblitz.

dragst3r

Dennoch müsste dann auf dem Client als ein Script laufen, das auf Befehle wartet, oder?

**GtaSpider**

Hallo

Ja ein Client müsste schon laufen, aber tbei den Tcp befehlen ist autoit nicht so performance rauben. (Ähnlich wie bei GuiGetMsg(). da verbrauch autoit ja auch 0% CPU
In meiner signatur ist ein Script namens "admin Console". Das Sperrt auch den Desktop über TCP/IP

Mfg Spider

McPoldy

Ok, das ist richtig, dann mach es mit WMI, da kannst du einen neuen Process auf einem Remote-PC erzeugen, wichtig, du solltest Adminberechtigungen auf dem PC haben, es wird keine GUI angezeigt. Sollte aber deinen Anforderungen genügen

VB Script

Code

' StartProcess.vbs
' Sample VBScript to start a process. Inputbox for name
' Author Guy Thomas http://computerperformance.co.uk/
' Version 2.2 - December 2005
' -------------------------------------------------------'
Option Explicit
Dim objWMIService, objProcess
Dim strShell, objProgram, strComputer, strExe, strInput
strExe = "Calc.exe"
' Input Box to get name of machine to run the process
Do
strComputer = (InputBox(" ComputerName to Run Script",_
"Computer Name"))
If strComputer <> "" Then
strInput = True
End if
Loop until strInput = True


' Connect to WMI
set objWMIService = getobject("winmgmts://"_
& strComputer & "/root/cimv2")
' Obtain the Win32_Process class of object.
Set objProcess = objWMIService.Get("Win32_Process")
Set objProgram = objProcess.Methods_( _
"Create").InParameters.SpawnInstance_
objProgram.CommandLine = strExe


'Execute the program now at the command line.
Set strShell = objWMIService.ExecMethod( _
"Win32_Process", "Create", objProgram)


WScript.echo "Created: " & strExe & " on " & strComputer
WSCript.Quit
' End of Example of a Process VBScript

Alles anzeigen

Quelle

AutoIT

[autoit]

Global $Computer, $strCMD, $Obj_WMIService,$objProcess, $objProgram, $strShell
$Computer = InputBox("Ziel-PC","Auf welchem Rechner:",@ComputerName)
$strCMD = InputBox("WMI Create Process","Was soll gestartet werden?","notepad.exe")
$Obj_WMIService = ObjGet('winmgmts:\\' & $Computer & '\root\cimv2')

[/autoit] [autoit][/autoit] [autoit]

If (IsObj($Obj_WMIService)) And (Not @error) Then

$objProcess = $Obj_WMIService.Get("Win32_Process")
$objProgram = $objProcess.Methods_("Create").InParameters.SpawnInstance_
$objProgram.CommandLine = $strCMD
$strShell = $Obj_WMIService.ExecMethod("Win32_Process", "Create", $objProgram)
EndIf

[/autoit]

dragst3r

GtaSpider : Mit den TCP-Befehlen komme ich leider nicht zurecht!

McPoldy: Der Ansatz ist ganz gut, aber irgendwie klappt das Remote nicht. Bin auf beiden Maschinen lokaler Admin mit demselben Passwort. Er braucht auch sehr lange dafür die Verbindung aufzubauen. Schafft es aber dann nicht!

EDIT: Bin nun zurecht gekommen mit TCP. Ist echt klasse!!! Muss jetzt nur noch Prüfen wie es Performance technisch läuft, da es ja immerhin noch eine Endschlosschleife ist, die auf einen TCP Paket wartet