Computerobjekt zu domänengruppe hinzufügen

[wurbo]

Hallo Forum. Ich versuche, per VB2008, ein (in der Domäne vorhandenes) Computerobjekt einer (in der Domäne vorhandene) Gruppe hinzuzufügen. Leider scheitert mein kläglicher Versuch immer mit 0x80020005 Typemissmatch. Nun weiß ich nicht weiter. Kann mir bitte jemand auf die Sprünge helfen?

Hier meine Funktion:

Visual Basic Quellcode 


Imports System.DirectoryServices 
Imports System.DirectoryServices.ActiveDirectory 

Public Sub fragab() 
Dim test As DirectoryEntry 
test = New DirectoryEntry("LDAP://wie.auchimmer.com", "username", "newpassword") 
Dim ggroup As DirectoryEntry= test.Children.Find"CN=GRUPPEWOERREINSOLL,OU=UEBERGEORDET,OU=NOCHDRUEBER,OU=GANZOBEN") 
Dim c As DirectoryEntry 
Dim computer As DirectoryEntry 
c = New DirectoryEntry("LDAP://wie.auchimmer.com", "username", "newpassword") 
computer = c.Children.Find("CN=PCNAME,OU=Computers,OU=standort,OU=firma") 

ggroup.Invoke("add", computer) 
End Sub

[Ralf Jansen]

ggroup.Invoke("add", computer)

Was für einen Typ hat den der Parameter der add Methode? Die müssen schon genau stimmen. Wahrscheinlich musst du computer noch auf diesen Typ casten.

[Kernal]

Gleich

Hallo ich habe dies soeben auch probiert.

Bekomme jedoch den Fehler:

system.reflection.targetinvocationexception wurde nicht behandelt
Ein Aufrufziel hat ein Fehler verursacht.


Kann mir jemand helfen ?

    Function AddToGroup()

        Dim test As DirectoryEntry
        test = New DirectoryEntry("LDAP://MYDOMAIN.local", "MYUSER", "PW")
        Dim ggroup As DirectoryEntry = test.Children.Find("CN=TEST,OU=Printer,OU=Gruppen,OU=Users & Groups")
        Dim c As DirectoryEntry
        Dim computer As DirectoryEntry
        c = New DirectoryEntry("LDAP://MYDOMAIN.local", "MYUSER", "PW")
        computer = c.Children.Find("CN=PC1576,CN=Computers")

        ggroup.Invoke("add", computer)