30323
Jul 19, 2006, updated at Jul 26, 2006 (UTC)
5390
4
0
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
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
Please also mark the comments that contributed to the solution of the article
Content-Key: 36256
Url: https://administrator.de/contentid/36256
Printed on: May 4, 2024 at 13:05 o'clock
4 Comments
Latest comment