alle dcs auf einen bestimmten service prüfen. script zu 90% fertig

[marzli2]

hi,

habe von einem kollegen eine vorlage bekommen für ein script, welches alle dc ausgibt.

nun möchte ich jeden dc nach einem bestimmten dienst abfragen, und den status dann mit dem namen des dc in eine liste schreiben.

ich hab schon lange nichts mehr mit vb zu tun gehabt, daher bitte ich um hilfe.



mein teil, der noch nicht funktioniert, ist FETT. wäre wohl zu einfach. unter dem script ist auch gleich das originalscript.

hilfe wäre suuuuuuuuuuuper. danke





' EnumDCs.vbs
' VBScript program to enumerate all Domain Controllers in the domain.
'
' ----------------------------------------------------------------------
' Copyright (c) 2002 Richard L. Mueller
' Hilltop Lab web site - Hilltop Lab
' Version 1.0 - November 10, 2002
' Version 1.1 - February 19, 2003 - Standardize Hungarian notation.
' Version 1.2 - March 11, 2003 - Remove SearchScope property.
'
' Program enumerates all Domain Controllers, their DNS host name, and
' the name of the site they reside in.
'
' You have a royalty-free right to use, modify, reproduce, and
' distribute this script file in any way you find useful, provided that
' you agree that the copyright owner above has no warranty, obligations,
' or liability for such use.

Option Explicit

Dim objRootDSE, strConfig, adoConnection, adoCommand, strQuery
Dim adoRecordset, objDC, objSite

' Determine configuration context from RootDSE object.
Set objRootDSE = GetObject("LDAP://RootDSE")
strConfig = objRootDSE.Get("configurationNamingContext")

' Use ADO to search Active Directory for ObjectClass nTDSDSA.
Set adoCommand = CreateObject("ADODB.Command")
Set adoConnection = CreateObject("ADODB.Connection")
adoConnection.Provider = "ADsDSOObject"
adoConnection.Open "Active Directory Provider"
adoCommand.ActiveConnection = adoConnection

strQuery = "<LDAP://" & strConfig _
& ">;(ObjectClass=nTDSDSA);AdsPath;subtree"

adoCommand.CommandText = strQuery
adoCommand.Properties("Page Size") = 100
adoCommand.Properties("Timeout") = 30
adoCommand.Properties("Cache Results") = False

Set adoRecordset = adoCommand.Execute

' The parent object of each object with ObjectClass=nTDSDSA is a Domain
' Controller. The parent of each Domain Controller is a "Servers"
' container, and the parent of this container is the "Site" container.
Do Until adoRecordset.EOF
Set objDC = GetObject( _
GetObject(adoRecordset.Fields("AdsPath").Value).Parent)
Set objSite = GetObject(GetObject(objDC.Parent).Parent)
cmd("sc query "Automatisches LiveUpdate - Scheduler" >> C:\test.txt ")
adoRecordset.MoveNext
Loop
adoRecordset.Close

' Clean up.
adoConnection.Close
Set objRootDSE = Nothing
Set adoCommand = Nothing
Set adoConnection = Nothing
Set adoRecordset = Nothing
Set objDC = Nothing
Set objSite = Nothing

Wscript.Echo "Done"








----------------originalscript - auszug - ohne meine änderungen. (fett hab ich gelöscht)

GetObject(adoRecordset.Fields("AdsPath").Value).Parent)
Set objSite = GetObject(GetObject(objDC.Parent).Parent)
Wscript.Echo "Domain Controller: " & objDC.cn & vbCrLf _
& "DNS Host Name: " & objDC.DNSHostName & vbCrLf _
& "Site: " & objSite.name
adoRecordset.MoveNext

[Dukel]

Sieht auf dem ersten Blick nach Anführungszeichen Problem aus.

[Cybquest]

auf den 2. Blick ausserdem:
- wo ist "cmd" definiert? Meines Wissens ist das keine VBS-Funktion
Da kenn ich nur sowas wie WShell.run...
- In o.g. Fall liefert "sc query" aber nur die Daten des Rechners, von dem aus das Script aufgerufen wurde. Ist das hier so gewünscht?

[marzli2]

das kann sein. ich hab damals einiges mit vba gemacht. daher hab ich das noch. kann mir jemand den befehl korrekt übergeben?

es soll vom aktuell gewählten dc der dienst gecheckt werden, dann gehts zum nächsten dc etc etc. - das macht das script ja auch

[Dukel]

Powershell:

#DC's auslesen: $dcs = & dsquery server | % {$_.replace('"','').split(',')[0].replace("CN=","")} #Dienst testen: foreach($dc in $dcs){ & sc.exe $dc query "wuauserv" | out-file C:\test.txt -append }

[marzli2]

muss ich da nochwas dimensioneren? (DIM)
und wo genau gehört das dann ins script?

sorry und danke!

[Dukel]

Zitat von marzli2 muss ich da nochwas dimensioneren? (DIM) und wo genau gehört das dann ins script? sorry und danke!

?
Was meinst du mit dimensionieren? Und wen meinst du?

[blub]

@marzli,
mal ehrlich, hast du jemals eine Zeile Code in vb/vba/vbs geschrieben? Kennst du überhaupt den Unterschied?

[marzli2]

ich hab damals vba gemacht. aber auch nur learning by doing. und anscheinend funktioniert vb script doch etwas anders

von daher:

kann mir jemand das script mit den funktionen komplett posten. das wäre nett

[marzli2]

@dukel

wenn ich das in der powershell ausführe, bekomme ich immer nur die meldung:

unbekannter befehl und dann die featurebeschreibung von SC