In der Arbeitsgruppe kein Problem in der Domäne ewig langsam

Set assoc = account.Associators_(,"Win32_SID",,,,,,,32)

Hallo,

kann mir jemand helfen, folgender Befehl ist in der Arbeitsgruppe kein Problem in der Domäne dauert die abarbeitung Stunden

"Set assoc = account.Associators_(,"Win32_SID",,,,,,,32)"

Kann mir jemand sagen ob ich dem Associators_ irgendwelche Parameter mitgeben kann, dass er nur lokal was macht???? Oder ihm irgendwie vorgaukeln, dass er sich in einer Arbeitsgruppe befindet??? Hab irgendwie nirgends ne brauchbare Parameterbeschreibung zu der Fkt. gefunden.

Hier der Rest der Fkt.:

Function CreateTrustee(user)
	'Domäne bestimmen  
	Set IWshNetwork2 = CreateObject("WScript.Network")  
	'domain = IWshNetwork2.UserDomain   
	domain = IWshNetwork2.ComputerName

	'Konto suchen  
	Set account = wmi.Get("Win32_Account.Domain='" & domain & "',Name='"& user & "'")  
		
	'Win32_SID des Kontos finden  
	Set assoc = account.Associators_(,"Win32_SID",,,,,,,32)  
		
	For each win32sid in assoc
		Set sid = win32sid
		Exit For
	Next
		
	'neuen Trustee anlegen  
	Set trustee = wmi.Get("Win32_Trustee").SpawnInstance_  
	'Information aus Win32_SID verwenden, um Trustee zu definieren  
	trustee.name = sid.AccountName
	trustee.domain = sid.ReferencedDomainName
	trustee.sid = sid.binaryrepresentation
	trustee.sidstring = sid.sid
 	trustee.sidlength = sid.sidlength
	Set CreateTrustee = trustee