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
GELÖST

Auflisten (zählen) aller Betriebsysteme im Acitve Directory

Frage Entwicklung Batch & Shell

Mitglied: Andi999

Andi999 (Level 1) - Jetzt verbinden

11.11.2011 um 10:55 Uhr, 2834 Aufrufe, 4 Kommentare

Hallo

Ich möchte aus mehreren Domänen eine Auflistung von allen Computern und deren AD Attributen Operatingsystem,Operatingsystemservicepack und Operatingsystemversion haben und diese dann sortiert in eine Datei schreiben.
d.h ich möchte ein Textfile wo drinnen steht:

Domäne: eins.firma.de
52 Windows XP Professional 5.1 (2600) Service Pack 3
10 Windows 7 Enterprise 6.1 (7601) Service Pack 1

Domäne: zwei.firma.de
120 Windows XP Professional 5.1 (2600) Service Pack 3
1 Windows 7 Enterprise 6.1 (7601) Service Pack 1

Also ich hab es mal geschafft von einer Domäne ein Textfile zu erstellen, dass alle Computer mit den Operatingsystem anzeigt.

01.
const FileName ="domaincomputers.csv" 
02.
set cmd = createobject("ADODB.Command") 
03.
set cn = createobject("ADODB.Connection") 
04.
set rs = createobject("ADODB.Recordset") 
05.
 
06.
cn.open "Provider=ADsDSOObject;" 
07.
cmd.activeconnection = cn 
08.
 
09.
set objRoot = getobject("LDAP://DC=eins,DC=firma,DC=de") 
10.
 
11.
cmd.commandtext = "<LDAP://" & objRoot.get ("distinguishedName") & ">;(objectCategory=Computer);" & _ 
12.
		  "name,operatingsystem,operatingsystemservicepack, operatingsystemversion;subtree" 
13.
'**** Bypass 1000 record limitation **** 
14.
cmd.properties("page size")=1000 
15.
 
16.
set rs = cmd.execute 
17.
set objFSO = createobject("Scripting.FileSystemObject") 
18.
set objCSV = objFSO.createtextfile(FileName) 
19.
 
20.
q = """" 
21.
 
22.
while rs.eof <> true and rs.bof <> true 
23.
	objcsv.writeline(q & rs("name") & q & "," &  q & rs("operatingsystem") & q & _ 
24.
		"," & q & rs("operatingsystemservicepack") & _ 
25.
		q & "," & q & rs("operatingsystemversion") & q) 
26.
	rs.movenext 
27.
wend 
28.
 
29.
objCSV.Close 
30.
cn.close 
31.
 
32.
wscript.echo "Finished"
Wie schafe ich es jetzt aus einem Textfile mit dem Inhalt (Domänen Namen)
eins
zwei
drei
so in den Code einzubringen, das dieser für jede Domäne durchläuft und auch den Ausgabe Textfile Namen auf domaincomputers_eins.csv, domaincomputers_zwei.csv,... ändert.

Danke für einen Tip

Gruß
Andre
Mitglied: lenny4me
11.11.2011 um 12:48 Uhr
Hallo,

ich denke das sollte mit Powershell viel einfacher gehen.

als Tipps hätte ich
Get-ADComputer und Get-WmiObject Win32_Operatingsystem

Das ganze in ne CSV gelenkt und ein wenig angepasst und fertig :D

Grüße
Bitte warten ..
Mitglied: bastla
11.11.2011 um 13:19 Uhr
Hallo Andi999 und willkommen in Forum!

Völlig ungetestet etwa so:
01.
const DomList = "D:\DomList.txt" 
02.
const FileName ="domaincomputers.csv" 
03.
 
04.
set objFSO = createobject("Scripting.FileSystemObject") 
05.
arrDoms = Split(Trim(objFSO.OpenTextFile(DomList).ReadAll)), vbCrLf) 
06.
 
07.
set cmd = createobject("ADODB.Command") 
08.
set cn = createobject("ADODB.Connection") 
09.
set rs = createobject("ADODB.Recordset") 
10.
 
11.
cn.open "Provider=ADsDSOObject;" 
12.
cmd.activeconnection = cn 
13.
 
14.
for each strDom in arrDoms 
15.
    if Dom <> "" Then 
16.
        set objRoot = getobject("LDAP://DC=" & strDom & ",DC=firma,DC=de") 
17.
 
18.
        cmd.commandtext = "<LDAP://" & objRoot.get ("distinguishedName") & ">;(objectCategory=Computer);" & _ 
19.
            "name,operatingsystem,operatingsystemservicepack, operatingsystemversion;subtree" 
20.
        '**** Bypass 1000 record limitation **** 
21.
        cmd.properties("page size")=1000 
22.
 
23.
        set rs = cmd.execute 
24.
        set objCSV = objFSO.createtextfile(strDom & FileName) 
25.
 
26.
        q = """" 
27.
 
28.
        while rs.eof <> true and rs.bof <> true 
29.
            objCSV.writeline(q & rs("name") & q & "," &  q & rs("operatingsystem") & q & _ 
30.
    	        "," & q & rs("operatingsystemservicepack") & _ 
31.
                q & "," & q & rs("operatingsystemversion") & q) 
32.
            rs.movenext 
33.
        wend 
34.
        objCSV.Close 
35.
    end if 
36.
next 
37.
cn.close 
38.
 
39.
wscript.echo "Finished"
Grüße
bastla
Bitte warten ..
Mitglied: Andi999
17.11.2011 um 10:26 Uhr
Vorerst Danke, das Script funktioniert fast.

Ich hab jetzt nur das Problem, dass ich immer nur die Ergebnisse von der Domäne bekomme wo ich das Script aufrufe.

z.B: ich starte das Script am DC der Domäne eins.firma.de, dann bekomme ich die Informationen von dieser Domäne, aber nicht von der zwei.firma.de, bzw. drei.firma.de, die Dateien sind einfach leer.

Muss ich hier auf eine Berechtigung noch achten ?

Danke
Bitte warten ..
Mitglied: bastla
17.11.2011 um 16:27 Uhr
Hallo Andi999!
Muss ich hier auf eine Berechtigung noch achten ?
Kann ich leider nicht beantworten ...

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
LAN, WAN, Wireless
KIXTART Anmeldescript Abfrage des Betriebsystemes
Frage von sammy65LAN, WAN, Wireless9 Kommentare

Hallo miteinander, ich möchte in einem gemeinsamen loginscript RegKeys ausführen, je nach Client (Windows7 32 bit oder 64 bit) ...

Entwicklung
Nested Groups auflisten
Frage von easy4breezyEntwicklung2 Kommentare

Hallo, ich suche nach einer Möglichkeit alle Nested Groups einer Domäne aufzulisten mit den jeweiligen "Übergruppen" Beispiel: Eine Gruppe ...

Batch & Shell
Nicht vorhandenes Verzeichnis auflisten
gelöst Frage von karla123Batch & Shell7 Kommentare

Liebe Forenmitglieder, ich als Anfänger komme irgendwie nicht mehr weiter mit einem Batch. Und zwar möchte ich einen Batch ...

VB for Applications
Alle Dateien rekursiv auflisten
gelöst Frage von 94451VB for Applications2 Kommentare

Hallo liebe Kollegen, ich suche nach einer Möglichkeit in VBS alle Dateien rekursiv aufzulisten hier habe ich eine Möglichkeit ...

Neue Wissensbeiträge
Microsoft

Update KB4073578 für AMD CPU (Spectre und Meltdown Lücke)

Information von sabines vor 5 StundenMicrosoft

Wegen Problemen (BOSD, nicht startende PCs) wurde das Update KB4056897 und KB4056894 für AMD CPUs zurückgezogen. Dieses Update KB4073578 ...

Mac OS X

MacOS wo ist die Tilde ?

Tipp von Alchimedes vor 18 StundenMac OS X3 Kommentare

Hallo, ich hab eine MacOS qwertz Keyboard auf US Layout umgestellt da die Sonderzeichen besser erreichbar sind. Leider fehlt ...

Datenschutz

Weitere Informationen zum Sicherheitsproblem BeA

Information von Penny.Cilin vor 1 TagDatenschutz

Im folgenden ein weiterer Bericht über die Sicherheitsprobleme von Bea. Fataler Konstruktionsfehler im besonderen elektronischen Anwaltspostfach Gruss Penny

Windows 10

Systemdienste behalten nach Win10 inplace-Upgrade nicht die ggf. modifizierte Startart bei

Tipp von DerWoWusste vor 1 TagWindows 103 Kommentare

Stellt Euch vor, Ihr habt ein Win10 System und modifiziert dort die Startart von Systemdiensten. Zum Beispiel wollt Ihr ...

Heiß diskutierte Inhalte
Batch & Shell
Anmeldevorgang für Informatikraum (Schule) unter Windows
gelöst Frage von IngenieursBatch & Shell25 Kommentare

Hey zusammen, ich werde in naher Zukunft den Informatik Raum meiner jetzigen Schule von dem aktuellen Betreiber übernehmen (Vertrag ...

Windows 10
Netbook erkennt Soundkarte nicht - keinerlei Info zum Hersteller und Modell vom Netbook und Hardware bekannt
Frage von fyrb38Windows 1019 Kommentare

Guten Tag, meine Schwester reist in einigen Wochen für ein paar Monate ins Ausland und hat sich dafür ein ...

Batch & Shell
AD-Abfrage in Batchdatei und Ergebnis als Variable verarbeiten
gelöst Frage von Winfried-HHBatch & Shell19 Kommentare

Hallo in die Runde! Ich habe eine Ergänzungsfrage zu einem alten Thread von mir. Ausgangslage ist die Batchdatei, die ...

Netzwerkgrundlagen
Welches Modem für VDSL 50000 der T-Com
Frage von Windows10GegnerNetzwerkgrundlagen18 Kommentare

Hallo, ein Kollege von mir will sich VDSL50000 von der T-Com holen, um daran einen Server zu betreiben. Ich ...