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, 4925 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
Microsoft Office
Outlook Automation Mail-Element löschen (1)

Frage von TestsubjektX zum Thema Microsoft Office ...

Exchange Server
gelöst Eine Raumliste in der Powershell löschen (2)

Frage von Gnrdolf zum Thema Exchange Server ...

Entwicklung
Jasper Reports Server 6 Cache automatisch löschen (3)

Frage von Pizzamann zum Thema Entwicklung ...

Neue Wissensbeiträge
Backup

Veeam-Fehler bei Bandwechsel: Timed out waiting for tape

Tipp von goRaini zum Thema Backup ...

Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(29)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Humor (lol)

Bester Vorschlag eines Supporttechnikers ever: APC

(15)

Erfahrungsbericht von DerWoWusste zum Thema Humor (lol) ...

Heiß diskutierte Inhalte
Internet
gelöst Mitarbeiter surft auf unerwünschter Seite - Wie damit umgehen? (52)

Frage von sabines zum Thema Internet ...

Netzwerke
LAN2LAN Verbindung sehr langsam flaschenhals gesucht (27)

Frage von PixL86 zum Thema Netzwerke ...

Router & Routing
PFsense - Netzverbindung steht, aber kein Internet vorhanden (25)

Frage von aschmid zum Thema Router & Routing ...

Windows Server
gelöst Windows 2016 Hyper-V und VHDS (19)

Frage von emeriks zum Thema Windows Server ...