Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Löschen einer Gruppe aus der Administratorengruppe

Frage Entwicklung VB for Applications

Mitglied: 30323

30323 (Level 1)

19.07.2006, aktualisiert 26.07.2006, 4932 Aufrufe, 4 Kommentare

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
Mitglied: superboh
19.07.2006 um 15:19 Uhr
Hi,

warum machst Du es nicht so:

WshShell.Run "net localgroup administratoren GRUPPE /delete"

Gruß,
Thomas
Bitte warten ..
Mitglied: 30323
21.07.2006 um 14:12 Uhr
Hallo Thomas,

wie genau meinst du das? Soll ich die Zeile so in Excel übernehmen? Was passiert da? Ich möchte hier nicht ausversehen die Administratorengruppe löschen!

Gruß, OSka
Bitte warten ..
Mitglied: superboh
21.07.2006 um 22:50 Uhr
Hi,

such mal in der Onlinehilfe von Windows nach "net localgroup".

Der Befehl "net localgroup administratoren GRUPPE /delete" löscht die Gruppe "GRUPPE" aus der Gruppe Administratoren.

Gruß,
Thomas
Bitte warten ..
Mitglied: 30323
26.07.2006 um 19:13 Uhr
Danke für die Hilfe. Gerade als ich deinen Tipp probieren wollte kam mir noch eine letzte Idee und ich hatte es geschafft. Statt delete muss man remove schreiben. Danach hat es bei mir zumindest geklappt.
Bitte warten ..
Ähnliche Inhalte
Windows Server
Gruppen Rechtlinien (5)

Frage von Daoudi1973 zum Thema Windows Server ...

Entwicklung
gelöst OTRS LDAP Gruppen Sync (3)

Frage von Chonta zum Thema Entwicklung ...

Batch & Shell
gelöst AD-Gruppen Auswahl als Dropdownliste (4)

Frage von Peterz zum Thema Batch & Shell ...

Neue Wissensbeiträge
Windows Tools

Zeit für Energiesparmodus, Bildschirmabschaltung etc. schnell anpassen

Anleitung von hannsgmaulwurf zum Thema Windows Tools ...

Linux Netzwerk

Ping und das einstellbare Bytepattern

(1)

Erfahrungsbericht von LordGurke zum Thema Linux Netzwerk ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(4)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Heiß diskutierte Inhalte
Microsoft Office
Office Druck fehler (18)

Frage von DaistwasimBusch zum Thema Microsoft Office ...

Windows Server
Zertifikat am DC erneuern funktioniert nicht (13)

Frage von takvorian zum Thema Windows Server ...