Script frisst nur CPU lasst, das wars. Auf ClientPC funzt es ;) WMI

Kev

Hi,

unzwar suche ich das Eventlog nach einer bestimmten ID, gebe mir dann den User der Eventid aus, dem die Berechtigungen fehlen auf die DCOM Komponente und möchte diese dann über nen cmd command hinzufügen.
Funktioniert lokal (Win7) super. Nur auf unseren Servern 20018R2 passiert nichts außer dass das Script CPU Auslastung frisst, wird als Admin gestartet, Eventeinträge sind da und WMI Query per Powersshell geht. WMI berechtigungen sind auch da.

AutoIt

#include <Array.au3>
#include <Date.au3>


$past_15days = _DateAdd("D", -3, _NowCalc())
$past_15days = StringReplace($past_15days, "/", "")
$past_15days = StringReplace($past_15days, ":", "")
$past_15days = StringStripWS($past_15days, 8)
$past_15days &= ".000000-000"
local $user[30]
$wbemFlagReturnImmediately=0x10
$wbemFlagForwardOnly=0x20
$colItems=""
$strComputer="localhost"
$Output=""
$Output&="Computer: " &$strComputer  & @CRLF
$Output&="==========================================" & @CRLF
$objWMIService=ObjGet("winmgmts:\\" &$strComputer &"\root\CIMV2")
$colItems=$objWMIService.ExecQuery("SELECT * FROM Win32_NTLogEvent WHERE LogFile='System' AND EventCode='10016' AND TimeWritten>'" & $past_15days & "'", "WQL");, _
;~                                           $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
$begin=TimerInit()


If IsObj($colItems) Then
   For $objItem In $colItems
      $Output&="User: " &$objItem.User & @CRLF
	  _ArrayAdd($user,$objItem.User)
   Next
Else
   Msgbox(0, "WMI-Ausgabe","Keine WMI-Objekte gefunden für Klasse: " & "Win32_NTLogEvent")
Endif
$user = _ArrayUnique($user)
$arr2 = _RemoveEmptyArrayElements($user)






for $i = 1 to $arr2[0] -1
	Traytip("Hallo",$arr2[$i] & " gefunden - wird hinzugefügt",2,1)
$CMD = 'net localgroup "Distributed COM Users" ' & '"' & $arr2[$i] & '"' &' /add'
RunWait(@ComSpec & " /c " & $CMD)
Next


;RunWait(@ComSpec & " /c " & $CMD)
Func _RemoveEmptyArrayElements ( $_Array )
    Local $_Item
    For $_Element In $_Array
        If $_Element= '' Then
            _ArrayDelete ( $_Array, $_Item )
        Else
            $_Item+=1
        EndIf
    Next
    Return ( $_Array )
EndFunc ;==> _RemoveEmptyArrayElements ( )




Func WMIDateStringToDate($dtmDate)
  Return (StringMid($dtmDate, 5, 2) &"/" &StringMid($dtmDate, 7, 2) &"/" &StringLeft($dtmDate, 4) & " " &StringMid($dtmDate, 9, 2) &":" &StringMid($dtmDate, 11, 2) &":" &StringMid($dtmDate,13, 2))
EndFunc

Alles anzeigen

misterspeed

Naja dann betreib halt mal ein wenig Debugging. Sprich lass dir nach jeder halbwegs relevanten Codezeile Rückgabewerte und Errorcodes in eine Logdatei schreiben. So kannst du zum einen feststellen bei welcher Funktion das Script überhaupt hängenbleibt und evtl. auch wo der eigentliche Fehler liegt.

Ich sehe z.B. auf anhieb eine potentielle Ursache für das scheinbar endlos laufende Script. Eine msgbox blockiert, sprich die Ausführung geht erst weiter wenn du diese wegklickst. Wird dein Script nun aber unter einem anderen Benutzerkontext ausgeführt könnte es sein, dass du die msgbox garnicht zu sehen bekommst und dementsprechend auch nicht wegklicken kannst. Bei Scripten die unbeaufsichtigt laufen sollen würde ich Fehler grundsätzlich per Logdateien und ggf. per Emailversandt ausgeben.

_mk_

@Kev

Da Deine WMI-Abfrage in PowerShell auf dem Windows 2012R2-Server funktioniert, rufe doch PowerShell aus Deinem AutoIt-Script auf und übergebe das Ergebnis wieder an Dein AutoIt-Script. Leider besteht die Rückgabe nicht aus Objekten, sondern die Ausgabe wird als Zeichenkette zurückgegeben.

AutoIt

AutoItSetOption('MustDeclareVars', 1)
Const $STDOUT_CHILD = 2


Dim $ScriptBlock = '{ $WmiDate = [System.Management.ManagementDateTimeConverter]::ToDmtfDateTime((Get-Date).AddDays(-15)); $EventLogEntries = Get-WmiObject -Query (""""SELECT * FROM Win32_NTLogEvent WHERE LogFile=''System'' AND EventCode=''10016'' AND TimeWritten>=''"""" + $WmiDate + """"''""""); $EventLogEntries.User}'
Dim $PID = Run('powershell.exe -NoLogo -NoProfile -Command "& ' & $ScriptBlock & '"', @WindowsDir, @SW_HIDE, $STDOUT_CHILD)
Dim $StdOutPut = ''


While 1
	$StdOutPut &= StdoutRead($PID)
	If @error Then ExitLoop
WEnd


Dim $Users = StringSplit($StdOutPut, @CRLF, 1)
For $i = 1 To $Users[0] - 1
	ConsoleWrite($Users[$i] & @CRLF)
Next

Alles anzeigen