Break on

$IsComputer = ""
$OUName = "Users"

$rc = InOU($OUName, $IsComputer)
? $rc
Sleep 5


Function InOU($OUName, Optional $IsComputer)    ; (Standalone version restricted to Windows 2000 and XP systems)
	Dim $OUelement
	    
	If Len($IsComputer) > 0
		$IsComputer = 1
	Else
		$IsComputer = 0
	EndIf
	    
	$InOU = 0
	    
	If Len($_InOUUser) > 0 And Len($_InOUComputer) > 0
		If $IsComputer = 0
			If $_InOUUser = "Initialized but no OU available"
				Return
			EndIf
			For Each $OUelement in Split($_InOUUser, ",")
				If $OUElement = $OUName $InOU = 1 EndIf
			Next
		Else
			If $_InOUComputer = "Initialized but no OU available"
				Return
			EndIf
			For Each $OUelement in Split($_InOUComputer, ",")
				If $OUElement = $OUName $InOU = 1 EndIf
			Next
		EndIf
	Else
		$sysinfo = CreateObject("adsysteminfo")
		If $sysinfo <> 0
			For Each $OUelement in Split($sysinfo.username, ",")
				If Left($OUelement, 3) = "OU="
					$_InOUUser = $_InOUUser + SubStr($OUelement, 4) + ","
					If $IsComputer = 0
						If SubStr($OUelement, 4) = $OUName $InOU = 1 EndIf
					EndIf
				EndIf
			Next
			If Len($_InOUUser) = 0
				$_InOUUser = "Initialized but no OU available"
			EndIf
			            
			For Each $OUelement in Split($sysinfo.computername, ",")
				If Left($OUelement, 3) = "OU="
					$_InOUComputer = $_InOUComputer + "," + SubStr($OUelement, 4)
					If $IsComputer = 1
						If SubStr($OUelement, 4) = $OUName $InOU = 1 EndIf
					EndIf
				EndIf
			Next
			If Len($_InOUComputer) = 0
				$_InOUComputer = "Initialized but no OU available"
			EndIf
		EndIf
	EndIf
	    
EndFunction