Befehl nur für bestimme Organisationseinheit ausführen (Kixtart)

Function GetComputerOU()
  ReDim $TempArray
  ReDim $GetComputerOU
  $adSys = CreateObject("ADSystemInfo")  
  $TempArray = Split($adSys.ComputerName,",")  
  ; Check if there's a comma in the CN, eg if the user name = "Surname, Name" AD returns "Surname\, Name"  
	If Right($TempArray,1) = "\"  
	  $Start = 2
	Else
	  $Start = 1
	EndIf
	
	For $Counter = $Start To Ubound($TempArray)
	  If Len($GetComputerOU) = 0
	    $GetComputerOu = $TempArray[$Counter]
	  Else
	   $GetComputerOu = $GetComputerOu + "," + $TempArray[$Counter]  
	  EndIf
	Next
	
	$adSys = 0
EndFunction GetComputerOU() 



Function GetUserOU()
	ReDim $TempArray
	ReDim $GetUserOU
	$adSys = CreateObject("ADSystemInfo")  
	$TempArray = Split($adSys.UserName,",")  
	; Check if there's a comma in the CN, eg if the user name = "Surname, Name" AD returns "Surname\, Name"  
	If Right($TempArray,1) = "\"  
	  $Start = 2
	Else
	  $Start = 1
	EndIf
	
	For $Counter = $Start To Ubound($TempArray)
	  If Len($GetUserOU) = 0
	    $GetUserOu = $TempArray[$Counter]
	  Else
	    $GetUserOu = $GetUserOu + "," + $TempArray[$Counter]  
	  EndIf
	Next
	
	$adSys = 0
EndFunction GetUserOU()