✔ For Each schleife abbrechen

[derfragende79]

Hallo zusammen,

in meiner For Each Schleife kann nur ein Wert herauskommen. Wenn dieser Wert gefunden wurde soll die Schleife sofort abbrechen.

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

 

[Shakie]

Wenn das richtige "objItem.SID" gefunden wurde, dann verlass die Schleife einfach mittels "Exit For".

 

[derfragende79]

Vielen Dank, nun gehts.

 

[NRFi]

du kannst doch auch do while nehmen, was in diesem fall vielleicht etwas eleganter wäre.