Top-Themen

Aktuelle Themen (A bis Z)

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

Nutzer und Verzeichnis löschen - Domänenweit

Frage Microsoft Windows Userverwaltung

Mitglied: Thoumaes

Thoumaes (Level 1) - Jetzt verbinden

24.03.2010 um 09:45 Uhr, 2009 Aufrufe, 1 Kommentar

Würde gern ein Script erstellen welches universal ist und nicht in vorgegeben OUs arbeitet. Suche funktioniert soweit nur beim Löschen bäuchte ich noch etwas Hilfe.
Irgendwie seh ich wohl den Wald vor lauter Bäumen nicht. "Objekt auf Server nicht gefunden"..

So Leute,

erstmal moin zusammen.

Tut mir leid das ich dieses alte Thema wieder auspacke. Aber nachdem ich nun alle möglichen Tut gelesen und mehr oder weniger verstanden hab und immer noch nicht weiter komme muss ich jetzt einfach Fragen.

Zur Problematik: gleiches Problem wie immer ( Nutzer im AD und persönliches Laufwerk über Script löschen, nur liegen nicht alle Nutzer in einer OU)

Das lokalisieren usw funktioniert soweit auch schon, nur beim Löschen bekomm ich die Fehlermeldung das das Objekt nicht auf dem Server existiert.

Mein Quellcode, mit einigen Debugausgaben (bisher), wenn es fertig ist, werd ich es hier gern veröffentlichen - falls bedarf besteht:

01.
  
02.
'On Error Resume Next 
03.
' Übergabe der Domaininformationen 
04.
strDomain = "fur_199308.mil" 
05.
 
06.
' Eingabe des zu Löschenden Nutzers 
07.
Beschreibung = "Geben Sie den Loginnamen, des zu löschenden Nutzers ein" 
08.
strLoginName = InputBox(Beschreibung) 
09.
 
10.
 
11.
Set objUser = GetObject("WinNT://" & strDomain & "/" & strLoginName) 
12.
 
13.
	Nachricht = "Wollen Sie wirklich den Nutzer "& vbcr & vbcr & "Username: " & vbcr 
14.
	Nachricht = Nachricht & objUser.FullName & vbcr & vbcr & "Homedirectory: " & vbcr 
15.
         Nachricht = Nachricht & objUser.HomeDirectory   &vbcr & vbcr & " löschen!" 
16.
         antwort = MsgBox(nachricht, vbQuestion+vbYesNo) 
17.
 
18.
 
19.
if antwort=vbYes then 
20.
 
21.
	Const ADS_SCOPE_SUBTREE = 2 
22.
 
23.
	Set objConnection = CreateObject("ADODB.Connection") 
24.
	Set objCommand =   CreateObject("ADODB.Command") 
25.
	objConnection.Provider = "ADsDSOObject" 
26.
	objConnection.Open "Active Directory Provider" 
27.
	Set objCommand.ActiveConnection = objConnection 
28.
 
29.
	objCommand.Properties("Page Size") = 1000 
30.
	objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
31.
	objCommand.Properties("Sort On") = "saMAccountName" 
32.
 
33.
	objCommand.CommandText = _ 
34.
	    "SELECT saMAccountName,ADsPath FROM 'LDAP://" & strDomain &"' WHERE objectCategory='user' AND saMAccountName='" & strLoginName & "'" 
35.
 
36.
         Set objRecordSet = objCommand.Execute 
37.
 
38.
	objRecordSet.MoveFirst 
39.
	Do Until objRecordSet.EOF 
40.
             '// Löschanweisung 
41.
             delName = "cn="&objRecordSet.Fields("saMAccountName").Value 
42.
             delPfad = objRecordSet.Fields("ADsPath").Value 
43.
             msgbox (delPfad) 
44.
             Set objOU = GetObject(delPfad) 
45.
             objOU.delete "user", delName 
46.
             objRecordSet.MoveNext 
47.
         Loop 
48.
'else 
49.
 
50.
end if 
51.
msgbox("Abgeschlossen"): WScript.quit 
52.
 
Mitglied: Thoumaes
24.03.2010 um 15:27 Uhr
Scheint wohl etwas schwerer zu sein
Bitte warten ..
Ähnliche Inhalte
Windows Server
Verzeichnis lässt sich nicht löschen
Frage von BPeterWindows Server7 Kommentare

Hallo, ein Mitarbeiter hat auf einem Windows 2003 Fileserver ein Ordner von einem USB-Stick kopiert, den ich jetzt nicht ...

Batch & Shell
Alle Dateien in Verzeichnis und Unterverzeichnissen löschen, mit Ausnahme aller.txt-Dateien
gelöst Frage von tegwertBatch & Shell5 Kommentare

Hallo zusammen! Ich habe zum löschen aller Dateien in bestimmten Verzeichnissen und dessen Unterverzeichnissen folgende Batchzeile erstellt: Dabei muss ...

Batch & Shell
Ein Verzeichnis auf Minimal-Maximal-Anzahl Überwachen und Unterverzeichnisse löschen
gelöst Frage von BlattlausOGBatch & Shell13 Kommentare

Hallo zusammen, ich benutze seit längerer Zeit folgendes Script um verschiedene Verzeichnisse auf eine minimal/maximal-Anzahl von Dateien zu überwachen ...

Batch & Shell
Zwei Verzeichnise Vergleichen und Nicht vorhandene Datei löschen
gelöst Frage von KodaCHBatch & Shell4 Kommentare

Guten Morgen Ich suche eine Möglichkeit um zwei Verzeichnisse ohne deren Unterverzeichnisse zu vergleichen und eine nicht vorhandene Datei ...

Neue Wissensbeiträge
Apple

IOS 11.2.1 stopft HomeKit-Remote-Lücke

Tipp von BassFishFox vor 1 TagApple

Das Update für iPhone, iPad und Apple TV soll die Fernsteuerung von Smart-Home-Geräten wieder in vollem Umfang ermöglichen. Apple ...

Windows 10

Windows 10 v1709 EN murkst bei den Regionseinstellungen

Tipp von DerWoWusste vor 1 TagWindows 10

Dieser kurze Tipp richtet sich an den kleinen Personenkreis, der Win10 v1709 EN-US frisch installiert und dabei die englische ...

Webbrowser

Kein Ton bei Firefox Quantum über RDP

Tipp von Moddry vor 1 TagWebbrowser

Hallo Kollegen! Hatte das Problem, dass der neue Firefox bei mir auf der Kiste keinen Ton hat, wenn ich ...

Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 1 TagInternet4 Kommentare

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registrierung von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Heiß diskutierte Inhalte
Windows Server
RODC kann nicht aus Domäne entfernt werden
Frage von NilsvLehnWindows Server18 Kommentare

HAllo, ich arbeite in einem Universitätsnetzwerk mit 3 Standorten. Die Standorte haben alle ein ESXi Cluster und auf diesen ...

Hardware
Kein Bild mit nur einer bestimmten Grafikkarten - Mainboard Konfiguration
gelöst Frage von bestelittHardware18 Kommentare

Hallo zusammen, ich hatte schon einmal eine ähnliche Frage gestellt. Damals hatte ich genau das gleiche Problem. Allerdings lies ...

Netzwerkmanagement
Mehrere Netzwerkadapter in einem PC zu einem Switch zusammenfügen
Frage von prodriveNetzwerkmanagement16 Kommentare

Hallo zusammen Vorweg, ich konnte schon einige IT-Probleme mit Hilfe dieses Forums lösen. Wirklich klasse hier! Doch für das ...

Hardware
Links klick bei Maus funktioniert nicht
gelöst Frage von Pablu23Hardware16 Kommentare

Hallo erstmal. Ich habe ein Problem mit meiner relativ alten maus jedoch denke ich nicht das es an der ...