Löschen einer Gruppe aus der Administratorengruppe

Eine Domaingruppe soll aus der lokalen Administratorengruppe eines Rechners gelöscht werden.

Hallo liebe Allwissende,

die zu löschende Gruppe ist in einer Domain. Die Administratorgruppe liegt lokal auf dem Rechner. Ich habe mich nun mit folgendem VBA - Code versucht:

Private Sub CommandButton2_Click()
'strDomain = Cells(1, 4)
strGroup = Cells(8, 1)
strComputer = Cells(2, 4)
'Set objAdmins = GetObject("WinNT:" & strDomain & "/" & strGroup & "")
Set objComputer = GetObject("WinNT:" & strComputer & "")
objComputer.Filter = Array("Group")
For Each objGroup In objComputer
If objGroup.class = "Group" Then
If objGroup.Name = "Administratoren" Or objGroup.Name = "Administrators" Then
For Each objUser In objGroup.members
If objUser.Name = strGroup Then
objGroup.Delete (objUser.ADsPath)
Exit For
End If
Next
Exit For
End If
End If
Next
Set objUser = Nothing
Set objGroup = Nothing
Set objComputer = Nothing
'Set objAdmins = Nothing
End Sub


Ich habe es bereits geschafft mit ähnlichem Code die Gruppe hinzuzufügen, wenn ich sie manuell gelöscht habe. Nun möchte ich sie aber von meinem Programm löschen lassen.

Bitte helft mir.
Mit freundlichem Gruß, OSka


Edit: Vielleicht hilft Euch ja die Fehlermeldung (mir nämlich nicht so richitg).

Laufzeitfehler '438':
Objekt unterstützt diese Eigenschaft oder Methofe nicht

Diese Fehlermeldung kommt bei der Zeile
objGroup.delete