derfragende79
Mitglied
Hallo zusammen,
in meiner For Each Schleife kann nur ein Wert herauskommen. Wenn dieser Wert gefunden wurde soll die Schleife sofort abbrechen.
Allerdings werden scheinbar alle objItem aus der colltems durchsucht und das kann mehrere Minuten in Anspruch nehmen. Kenn jemand eine Möglichkeit den Vorgang zu beschleunigen.
Grüße
in meiner For Each Schleife kann nur ein Wert herauskommen. Wenn dieser Wert gefunden wurde soll die Schleife sofort abbrechen.
Code:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Account Where Name = '" & strUser & "' And LocalAccount = true",,48)
For Each objItem in colItems
strTest = "" & objItem.SID
Next
MsgBox(strTest)
Allerdings werden scheinbar alle objItem aus der colltems durchsucht und das kann mehrere Minuten in Anspruch nehmen. Kenn jemand eine Möglichkeit den Vorgang zu beschleunigen.
Grüße