Überprüfen ob Computer Mitglied einer OU ist

strComputer = "TestRechner"  
strOU = "TestOU"  

Set objConnection = CreateObject("ADODB.Connection")  
Set objCommand =   CreateObject("ADODB.Command")  
objConnection.Provider = "ADsDSOObject"  
objConnection.Open "Active Directory Provider"  

Set objCOmmand.ActiveConnection = objConnection
objCommand.CommandText = _
    "Select Name, Location from 'LDAP://OU=" & strOU & ",DC=firma,DC=local' " _  
        & "Where objectClass='computer'"    
objCommand.Properties("Page Size") = 1000  
Set objRecordSet = objCommand.Execute
If objRecordSet.EOF Then
	WScript.Echo "In OU " & strOU & " keine Computer gefunden!"  
	WScript.Quit(1)
End If
objRecordSet.MoveFirst
bolInOU = False
Do Until objRecordSet.EOF
    If UCase(objRecordSet.Fields("Name").Value) = UCase(strComputer) Then  
		bolInOU = True
		Exit Do
	End If
    objRecordSet.MoveNext
Loop
If bolInOU Then
    WScript.Echo strComputer & " ist in der OU " & strOU  
Else
    WScript.Echo strComputer & " ist nicht in der OU " & strOU  
    WScript.Quit(1)
End If

'....irgendwo in Deinem VBS-krams...  
....
Function IsMember(strGroup)

Set objNetwork = CreateObject("WScript.Network")  

  strDomain = objNetwork.UserDomain
  strADUser = objNetwork.UserName
  bIsMember = False
 strCompGrp = UCase(strGroup)
' mit LDAP User in Active Directory finden und binden  
Set strADUser = GetObject("WinNT://" & strDomain & "/" & strADUser & ",user")  
  For Each objGroup In strADUser.Groups 
    If UCase(objGroup.Name) = strCompGrp Then
      bIsMember = True
      Exit For
    End If
  Next
  IsMember = bIsMember
End Function

WScript.Echo CompIsOUMember("TestRechner", "TestOU", "DC=firma,DC=local")  

Function CompIsOUMember(strComputer, strOU, strDom)
Set objConnection = CreateObject("ADODB.Connection")  
Set objCommand =   CreateObject("ADODB.Command")  
objConnection.Provider = "ADsDSOObject"  
objConnection.Open "Active Directory Provider"  
Set objCOmmand.ActiveConnection = objConnection

objCommand.CommandText = _
    "Select Name from 'LDAP://OU=" & strOU & "," & strDom & "' " & _  
    "Where objectClass='computer' And Name='" & strComputer & "'"  

Set objRecordSet = objCommand.Execute
If objRecordSet.EOF Then
	bolInOU = False
Else
	bolInOU = True
End If
CompIsOUMember = bolInOU
End Function