Automatisieren von TCP/IP-Netzwerken auf Clients

In diesem Abschnitt wird veranschaulicht, wie Skripts zum Durchführen von Aufgaben auf Remotecomputern geschrieben werden. Außerdem werden geeignete Vorgehensweisen bei der Skripterstellung hervorgehoben, die bei der Remoteausführung von Skripts zu befolgen sind.

Der Nutzen der Skripterstellung mit VBScript, WSH und WMI wird erst richtig deutlich, wenn Sie versuchen, Skripts über das Netzwerk auf mehreren Computern auszuführen. Die einbezogenen Verfahren sind nicht besonders schwierig, da der Remotebetrieb ein spezifischer Bestandteil von WMI ist. Sie können alle im vorherigen Abschnitt, "Skripterstellung für grundlegende TCP/IP-Netzwerke auf Clients", beschriebenen Verfahren auf einem oder mehreren Computern anwenden, indem Sie ein paar relativ einfache Änderungen vornehmen.

Weitere Informationen zu diesen und verwandten Verfahren finden Sie in "Tales from the Script - November 2002: Running WMI Scripts Against Multiple Computers" unter http://go.microsoft.com/fwlink/?LinkId=24786 (nur auf Englisch verfügbar).

Hinweis
Das Objekt WshController des WSH bietet eine weitere Möglichkeit, um Skripts für Remotecomputer auszuführen. Das WshController-Objekt ist hier jedoch nicht einbezogen, da WMI einfachere und leistungsstärkere Möglichkeiten bietet, um die in diesem Dokument beschriebenen Skripterstellungsaufgaben zu erreichen.

In diesem Abschnitt werden Informationen zum Verwalten von Remotecomputern bereitgestellt, einschließlich der Schritte zur Skripterstellung und Beispielskripts für diese Themen:

Auf dieser Seite

	Abrufen grundlegender Einstellungen eines Remotecomputers
	Herstellen einer Verbindung zu Gruppen von Computern in einem Netzwerk
	Aufzeichnen von Daten von mehreren Computern
	Tools zur Skripterstellung für die Verwaltung von Remotenetzwerken

Abrufen grundlegender Einstellungen eines Remotecomputers

Die meisten Systemadministratoren müssen in ihren Netzwerken Remotecomputer verwalten und können dazu sehr hilfreich Skripts einsetzen. Im vorherigen Abschnitt wurden Skripterstellungsverfahren zum Abrufen und Anzeigen von Einstellungen auf einem lokalen Computer beschrieben. In diesem Abschnitt wird gezeigt, wie diese Skripts für die Verwendung mit Remotecomputern geändert werden. Indem Sie die Verfahren einsetzen, die unter den nächsten beiden Themen erläutert werden, können Sie mit WMI eine Verbindung zu einem Remotecomputer herstellen, um die Einstellungen für diesen Computer abzurufen und anzuzeigen.

Verwenden von WMI zum Herstellen einer Verbindung zu einem Remotecomputer

Weisen Sie den Namen des Remotecomputers einfach zu der im WMI-Objektpfad verwendeten Hostvariable zu, um WMI zum Herstellen einer Verbindung zu einem Remotecomputer zu verwenden. WMI behandelt die Details beim Herstellen der Verbindung zu Remotecomputern.

strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer)

Im vorhergehenden Beispiel hat WMI die Verbindung zu einem lokalen Computer hergestellt. Der Punkt (.) repräsentiert den lokalen Computer in WMI-Objektpfaden. Die Verbindung wird zum Standard-WMI-Namespace – normalerweise root\cimv2 – mithilfe des Parameters "impersonationLevel" und dem Wert "impersonate" aufgebaut.

Ersetzen Sie "." durch den Namen eines Remotecomputers, damit WMI die Verbindung zu diesem Remotecomputer herstellt.

strComputer = "client1" Set objWMIService = GetObject("winmgmts:\\" & strComputer)

Wie bei lokalen Computern müssen Sie auch auf dem Remotecomputer über entsprechende Administratorrechte verfügen, um die in diesem Skript enthaltenen Schritte durchführen zu können.

Weitere Informationen zum Herstellen der Verbindung zu WMI finden Sie unter "Connecting to WMI Using the WMI Moniker" im Kapitel "WMI Scripting Primer" des Windows 2000 Scripting Guide unter http://go.microsoft.com/fwlink/?LinkId=29993 (nur auf Englisch verfügbar).

Abrufen der IP-Adressen und Subnetzmasken eines Remotecomputers

In dem folgenden Skript wird gezeigt, wie eine Reihe von TCP/IP-Clienteinstellungen von einem Remotecomputer abgerufen werden. Der Code ist beinahe mit dem Code identisch, der zum Herstellen der Verbindung zu WMI auf einem lokalen Computer verwendet wird. Der einzige Unterschied ist, dass der Variablen strComputer der Name eines verfügbaren Remotecomputers zugewiesen wird.

Schritte zur Skripterstellung

In Listing 13 werden die Eigenschaften IPAddress und IPSubnet (beides Arrays) für jede Netzwerkadapterkonfiguration auf einem Remotecomputer abgerufen.

Listing 13 Getip.vbs

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

On Error Resume Next

 strComputer = "client1"
Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNicConfigs = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

 WScript.Echo VbCrLf & "Computer Name: " & strComputer
WScript.Echo " IP Addresses & Subnet Masks"

 For Each objNicConfig In colNicConfigs
  WScript.Echo VbCrLf & "  Network Adapter " & objNicConfig.Index
  WScript.Echo "    " & objNicConfig.Description & VbCrLf 
  WScript.Echo "    IP Address(es):"
  For Each strIPAddress In objNicConfig.IPAddress
    WScript.Echo "        " & strIPAddress
  Next
  WScript.Echo "    Subnet Mask(s):"
  For Each strIPSubnet In objNicConfig.IPSubnet
    WScript.Echo "        " & strIPSubnet
  Next
Next

Wenn Sie Cscript.exe zur Ausführung dieses Skripts verwenden, wird im Befehlsfenster eine ähnliche Ausgabe wie die folgende angezeigt:

C:\scripts>getip.vbs

Computer Name: client1

IP Addresses & Subnet Masks

Network Adapter 1

3Com 3C920 Integrated Fast Ethernet Controller (3C905C-TX Compatible) - Packet Scheduler Miniport

IP Address(es):

192.168.0.11

Subnet Mask(s):

255.255.255.0

Zum Seitenanfang

Herstellen einer Verbindung zu Gruppen von Computern in einem Netzwerk

Wenn Sie WMI-basierte Skripts ausführen, um Netzwerkaufgaben für Computergruppen durchzuführen, können Sie dies normalerweise effizienter und flexibler erreichen, als mit den meisten Windows-Schnittstellen oder Befehlszeilentools.

Beim Herstellen einer Verbindung zu Remotecomputern gilt es immer bestimmte Vorsichtsmaßnahmen in Ihren Skripts zu treffen. Diese Vorsichtsmaßnahmen können Ihnen dabei helfen, dass Sie keine Zeit damit verschwenden, ein Skript auf Computern auszuführen, die nicht erreichbar oder auf denen WMI nicht verfügbar ist. WMI ist auf Betriebssystemen vor Windows 2000 und Windows Millenium Edition nicht standardmäßig installiert.

Wenn Sie die Verbindung zu Remotecomputern herstellen, ist es empfehlenswert zu prüfen, ob alle Computer über das Netzwerk erreichbar sind. Das Befehlszeilentool Ping.exe stellt dazu eine traditionelle Möglichkeit bereit. Unter Windows XP und nachfolgenden Versionen von Windows bietet WMI die neue Klasse Win32_PingStatus, die das Verhalten von Ping.exe weitestgehend kopiert.

Da die Wahrscheinlichkeit größer ist, dass beim Ausführen eines Skripts auf Remotecomputern Probleme auftreten, ist es empfehlenswert, den VBScript-Mechanismus zur Fehlerbehandlung zu verwenden, der "On Error Resume Next" genannt wird. Auf diese Weise bringen die Netzwerk- oder Remoteprobleme das Skript nicht zum Absturz. Wenn das Skript auf einem Computer einen Fehler entdeckt, kann es auf diese Weise die Ausführung auf anderen Computern fortsetzen.

Sie können den Fehler auch erfassen und anschließend anzeigen oder protokollieren. Weitere Informationen zur Fehlerbehandlung finden Sie im Abschnitt "Fehlerbehandlung" in Kapitel 2 des Windows 2000 Scripting-Handbuchs unter /germany/technet/datenbank/articles/600358.mspx#E0BW0AA.

In diesem Abschnitt werden die Schritte zur Skripterstellung und Beispielskripts für diese Themen bereitgestellt:

Senden von Ping-Anforderungen an Netzwerkhosts vor dem Versuch, darauf Skripts auszuführen

Es wird empfohlen, zu jedem Remotehost eine Verbindung herzustellen, um sicherzustellen, dass dieser erreichbar ist, bevor versucht wird, darauf Aufgaben auszuführen. Wenn alle zu pingenden Computer Windows XP oder Windows Server 2003 ausführen, können Sie die neue WMI-Klasse Win32_PingStatus verwenden. Win32_PingStatus gibt ein Objekt mit 24 Eigenschaften zurück, die ausführliche Details zu den Ping-Paketen bereitstellen, die von der Klasse gesendet werden.

Wenn auch ältere Betriebssysteme einbezogen sind, stellt das TCP/IP-Befehlszeilentool Ping.exe die Standardlösung zum Prüfen der Verbindung dar. Sie können Ping und Befehlszeilenparameter mit der Methode Exec() des Objekts WshShell ausführen. Ping sendet eine konfigurierbare Anzahl von ICMP-Paketen an den Hostnamen oder die IP-Adresse und wartet dann auf Antworten. Das Skript kann die über die Standardeingabe empfangenen Antworten hinsichtlich der Zeichenfolge "Antwort von" analysieren, die nur vorkommt, wenn der Computer auf den Ping-Befehl geantwortet hat.

Hinweis
Der Ping-Befehl wird nur erfolgreich durchgeführt, wenn die Routinginfrastruktur die Ping-Nachrichten weiterleitet und das Ziel keine Firewall verwendet, die den Empfang von Ping-Nachrichten verhindert.

Senden von Ping-Signalen an einzelne Netzwerkhosts durch Ausführen von "Ping.exe" über ein Skript

Wenn Sie ermitteln möchten, ob ein Computer im Netzwerk erreichbar ist, bevor Sie versuchen, die Verbindung zu WMI herzustellen und eine Aufgabe darauf durchzuführen, kann Ping.exe über ein Skript mithilfe von WSH aufgerufen werden. VBScript bietet Funktionen zur Zeichenfolgenbehandlung, mit deren Hilfe das Skript den über die Standardeingabe eingehenden StdOut-Zeichenstream analysieren kann, um zu sehen, ob der Remotecomputer entsprechend geantwortet und reagiert hat.

Schritte zur Skripterstellung

Listing 14 veranschaulicht, wie Ping.exe mit der WshShell-Methode Exec() ausgeführt wird.

Listing 15 Ping.vbs

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

On Error Resume Next

 strTarget = "192.168.0.1" 'IP address or hostname
Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("ping -n 2 -w 1000 " & strTarget)
strPingResults = LCase(objExec.StdOut.ReadAll)
If InStr(strPingResults, "reply from") Then
  WScript.Echo strTarget & " responded to ping."
  Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" & strTarget & "\root\cimv2")
  Set colCompSystems = objWMIService.ExecQuery("SELECT * FROM " & _
   "Win32_ComputerSystem")
  For Each objCompSystem In colCompSystems
    WScript.Echo "Host Name: " & LCase(objCompSystem.Name)
  Next
Else
  WScript.Echo strTarget & " did not respond to ping."
End If

Wenn Sie Cscript.exe zur Ausführung dieses Skripts verwenden, wird im Befehlsfenster eine ähnliche Ausgabe wie die folgende angezeigt:

C:\scripts>ping.vbs

192.168.0.1 responded to ping.

Host Name: server1

Senden von Ping-Anforderungen an mehrere Netzwerkhosts durch Ausführen von "Ping.exe" über ein Skript

Mit einigen zusätzlichen Codezeilen kann ein Skript nacheinander Ping-Anforderungen an mehrere Computer senden, bevor versucht wird, auf diesen eine Aufgabe durchzuführen. Die Computernamen werden in Form eines Arrays an das Skript übergeben, was eine einfache Methode zum Erreichen dieses Ziels darstellt. Die Computernamen können jedoch auch aus einer Textdatei, aus einem Tabellenblatt oder aus einer Datenbank abgerufen bzw. aus einer Active Directory-Organisationseinheit heraus aufgelistet werden, indem nur etwas zusätzlicher Code hinzugefügt wird.

Schritte zur Skripterstellung

Listing 15 veranschaulicht, wie Ping.exe mit der WshShell-Methode Exec() für mehrere Computer ausgeführt wird.

Listing 15 Ping-multi.vbs

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

On Error Resume Next

 arrTargets = Array("192.168.0.1", "192.168.0.11", "192.168.0.12", _
 "192.168.0.13")

 For Each strTarget In arrTargets
  Set objShell = CreateObject("WScript.Shell")
  Set objExec = objShell.Exec("ping -n 2 -w 1000 " & strTarget)
  strPingResults = LCase(objExec.StdOut.ReadAll)
  If InStr(strPingResults, "reply from") Then
    WScript.Echo VbCrLf & strTarget & " responded to ping."
    Set objWMIService = GetObject("winmgmts:" _
     & "{impersonationLevel=impersonate}!\\" & strTarget & "\root\cimv2")
    Set colCompSystems = objWMIService.ExecQuery("SELECT * FROM " & _
     "Win32_ComputerSystem")
    For Each objCompSystem In colCompSystems
      WScript.Echo "Host Name: " & LCase(objCompSystem.Name)
    Next
  Else
    WScript.Echo VbCrLf & strTarget & " did not respond to ping."
  End If
Next

Wenn Sie Cscript.exe zur Ausführung dieses Skripts verwenden, wird im Befehlsfenster eine ähnliche Ausgabe wie die folgende angezeigt:

C:\scripts>ping-multi.vbs

192.168.0.1 responded to ping.

Host Name: server1

192.168.0.11 responded to ping.

Host Name: client1

192.168.0.12 responded to ping.

Host Name: client2

192.168.0.13 did not respond to ping.

Senden von Ping-Anforderungen an einzelne Netzwerkhosts mithilfe der Klasse "Win32_PingStatus"

Unter Windows XP und Windows Server 2003 kann die neue WMI-Klasse Win32_PingStatus mehr Details des Ping-Vorgangs zurückgeben, als durch Ausführen von Ping.exe. Sie können diese WMI-Klasse jedoch nur in einem Netzwerk verwenden, das nur diese beiden Betriebssysteme ausführt.

In einer solchen Situation kann dieses Skript als Vorlage zum Testen der Verbindung eines einzelnen Remotecomputers mithilfe eines Ping-Befehls dienen, bevor versucht wird, die Verbindung zu WMI herzustellen, um auf dem Computer Aufgaben auszuführen.

Die Eigenschaft StatusCode von Win32_PingStatus gibt die in Tabelle 6 gezeigten Statuscodes zurück. Ihr Datentyp ist uint32 und sie sind schreibgeschützt. Damit sich dieses Skript als benutzerfreundlicher erweist, können Sie die Statuscodes in eine beschreibende Zeichenfolge umwandeln, die in Tabelle 6 angezeigt wird.

Tabelle 6 Statuscodes von "Win32_Pingstatus"

Schritte zur Skripterstellung

Listing 16 veranschaulicht, wie die Verbindung eines Remotecomputers mithilfe der Klasse Win32_PingStatus getestet wird und die Informationen zu den Pingergebnissen angezeigt werden, die die Eigenschaften dieser Klasse zurückgeben können.

Listing 16 Pingstatus.vbs

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

On Error Resume Next

 strComputer = "."
strTarget = " client1" 'IP address or hostname
Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPings = objWMIService.ExecQuery _
 ("Select * From Win32_PingStatus where Address = '" & strTarget & "'")
If Err = 0 Then
  Err.Clear
  For Each objPing in colPings
    If Err = 0 Then
      Err.Clear
      If objPing.StatusCode = 0 Then
        Wscript.Echo strTarget & " responded to ping."
        Wscript.Echo "Responding Address: " & objPing.ProtocolAddress
        Wscript.Echo "Responding Name: " & objPing.ProtocolAddressResolved
        Wscript.Echo "Bytes Sent: " & objPing.BufferSize
        Wscript.Echo "Time: " & objPing.ResponseTime & " ms"
        Wscript.Echo "TTL: " & objPing.ResponseTimeToLive & " seconds"
      Else
        WScript.Echo strTarget & " did not respond to ping."
        WScript.Echo "Status Code: " & objPing.StatusCode
      End If
    Else
      Err.Clear
      WScript.Echo "Unable to call Win32_PingStatus on " & strComputer & "."
    End If
  Next
Else
  Err.Clear
  WScript.Echo "Unable to call Win32_PingStatus on " & strComputer & "."
End If

Wenn Sie Cscript.exe zur Ausführung dieses Skripts verwenden, wird im Befehlsfenster eine ähnliche Ausgabe wie die folgende angezeigt:

C:\scripts>pingstatus.vbs

client1 responded to ping.

Responding Address: 192.168.0.11

Responding Name:

Bytes Sent: 32

Time: 0 ms

TTL: 128 seconds

Senden von Ping-Anforderungen an mehrere Netzwerkhosts mithilfe der Klasse "Win32_PingStatus"

Dieses Skript verwendet die Klasse Win32_PingStatus, um die Ping-Anforderung an eine Liste von Computern zu senden, die in einem Array angegeben sind. Wenn der Host, auf dem Sie das Skript ausführen, ein älteres Betriebssystem als Windows XP ausführt, erfasst das Skript den Fehler und kehrt zur WSH-Methode Exec für das Senden von Ping-Anforderungen zurück.

Schritte zur Skripterstellung

Listing 17 veranschaulicht, wie die Klasse Win32_PingStatus zum Testen von Verbindungen zu mehreren Computern verwendet wird.

Listing 17 Pingstatus-multi.vbs

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75

On Error Resume Next

 strComputer = "."
arrTargets = Array("192.168.0.1", "192.168.0.11", "192.168.0.12", _
 "192.168.0.13")

 Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

 For Each strTarget In arrTargets

   Set colPings = objWMIService.ExecQuery _
   ("Select * From Win32_PingStatus where Address = '" & strTarget & "'")
  If Err = 0 Then
    Err.Clear
    For Each objPing in colPings
      If objPing.StatusCode = 0 Then
        Wscript.Echo VbCrLf & strTarget & " responded to ping."
        Wscript.Echo "Responding Address: " & objPing.ProtocolAddress
        Wscript.Echo "Responding Name: " & objPing.ProtocolAddressResolved
        Wscript.Echo "Bytes Sent: " & objPing.BufferSize
        Wscript.Echo "Time: " & objPing.ResponseTime & " ms"
        Wscript.Echo "TTL: " & objPing.ResponseTimeToLive & " seconds"
        GetName
      Else
        WScript.Echo VbCrLf & strTarget & " did not respond to ping."
        WScript.Echo "Status Code: " & objPing.StatusCode
      End If
    Next
  Else
    Err.Clear
    If ExecPing = True Then
      GetName
    End If
  End If

 Next

 '******************************************************************************

 Function ExecPing

   Set objShell = CreateObject("WScript.Shell")
  Set objExec = objShell.Exec("ping -n 2 -w 1000 " & strTarget)
  strPingResults = LCase(objExec.StdOut.ReadAll)
  If InStr(strPingResults, "reply from") Then
    WScript.Echo VbCrLf & strTarget & " responded to ping."
    ExecPing = True
  Else
    WScript.Echo VbCrLf & strTarget & " did not respond to ping."
    ExecPing = False
  End If

 End Function

 '******************************************************************************

 Sub GetName

   Err.Clear
  Set objWMIServiceRemote = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" & strTarget & "\root\cimv2")
  If Err = 0 Then
    Err.Clear
    Set colCompSystems = objWMIServiceRemote.ExecQuery("SELECT * FROM " & _
     "Win32_ComputerSystem")
    For Each objCompSystem In colCompSystems
      WScript.Echo "Host Name: " & LCase(objCompSystem.Name)
    Next
  Else
    Err.Clear
    WScript.Echo "Unable to connect to WMI on " & strTarget & "."
  End If

 End Sub

Wenn Sie Cscript.exe zur Ausführung dieses Skripts verwenden, wird im Befehlsfenster eine ähnliche Ausgabe wie die folgende angezeigt:

C:\scripts>pingstatus-multi.vbs

192.168.0.1 responded to ping.

Responding Address: 192.168.0.1

Responding Name:

Bytes Sent: 32

Time: 0 ms

TTL: 128 seconds

Host Name: server1

192.168.0.11 responded to ping.

Responding Address: 192.168.0.11

Responding Name:

Bytes Sent: 32

Time: 0 ms

TTL: 128 seconds

Host Name: client1

192.168.0.12 responded to ping.

Responding Address: 192.168.0.12

Responding Name:

Bytes Sent: 32

Time: 0 ms

TTL: 128 seconds

Host Name: client2

192.168.0.13 did not respond to ping.

Status Code: 11010

Behandeln von Fehlern mit VBScript

Skripts sollten auch Fehler behandeln, die möglicherweise beim Herstellen der Verbindung zu WMI auf Remotecomputern auftreten – insbesondere, wenn einige Computer Windows 95, Windows 98 oder Windows NT 4.0 ausführen, bei denen WMI evtl. nicht installiert ist. Sie können dazu die VBScript-Anweisung "On Error Resume Next" zusammen mit dem integrierten Objekt Err verwenden.

Das nachfolgende Skript Getip-multi.vbs und andere Skripts in diesem Dokument veranschaulichen die Vorgehensweise. Beachten Sie, dass es nach dem Aufrufen des Objekts Err wichtig ist, die Methode Err.Clear zu verwenden, um sicherzustellen, dass Fehlerinformationen für einen Computer gelöscht werden, bevor die Prüfung auf dem nächsten Computer fortgesetzt wird.

Weitere Informationen zur Fehlerbehandlung finden Sie im Abschnitt "Fehlerbehandlung" in Kapitel 2 des Windows 2000 Scripting-Handbuchs unter /germany/technet/datenbank/articles/600358.mspx#E0BW0AA.

Verwenden eines Arrays zum Eingeben einer Liste von Netzwerkhosts

Die einfachste Möglichkeit, um eine Liste von Netzwerkhosts einzugeben, ist das Verwenden eines Arrays mit Computernamen, bei denen es sich um Hostnamen, IP-Adressen oder eine Mischung aus beidem handeln kann. Sie können dann eine For Each-Anweisung verwenden, um eine Iteration durch die einzelnen Elemente des Arrays durchzuführen, d. h. durch jeden Computer, um von jedem Element Daten abzurufen oder Aktionen auf diesem durchzuführen.

Das Skript Getip-multi.vbs und andere Skripts in diesem Dokument veranschaulichen diesen Ansatz.

Abrufen der IP-Adressen und Subnetzmasken einer Gruppe von Remotecomputern

Dieses Skript verwendet den Algorithmus von Ping.vbs und Ping-multi.vbs, um die Verbindung zu Remotecomputern herzustellen, bevor Operationen auf diesen durchgeführt werden. Dadurch wird sichergestellt, dass das Skript für alle Versionen von Windows ausgeführt wird, die WMI enthalten. Wenn alle Hosts Windows XP und Windows Server 2003 ausführen, können Sie den Code von Pingstatus.vbs und Pingstatus-multi.vbs ersetzen.

Nachdem die Ping-Anforderung an die Remotecomputer gesendet wurde, versucht dieses Skript die Verbindung zum WMI-Dienst herzustellen und prüft dann auf einen Fehler. Auf Computern, die ältere Versionen als Windows 2000 oder nicht auf Windows basierende Betriebssysteme ausführen, ist WMI möglicherweise nicht vorhanden. In diesem Fall behandelt das Skript den Fehler und zeigt eine Fehlermeldung an, bevor mit dem nächsten Computer fortgefahren wird.

Wenn Ihr Netzwerk ältere oder nicht auf Windows basierende Betriebssysteme einbezieht, ist es empfehlenswert, diesen Code in Skripts zu verwenden, die eine Verbindung zu mehreren Computern herstellen. Da dieses Skript "On Error Resume Next" verwendet, erfolgt bei Auftreten von Fehlern kein Absturz, sondern es wird einfach mit der nächsten Zeile fortgefahren, die keinen Fehler generiert.

Schritte zur Skripterstellung

In Listing 18 werden die Eigenschaften IPAddress und IPSubnet (beides Arrays) für jede Netzwerkadapterkonfiguration auf einem Remotecomputer abgerufen.

Listing 18 Getip-multi.vbs

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

On Error Resume Next

 arrComputers = Array("server1", "client1", "server2", "client2")

 For Each strComputer In arrComputers

 ' Ping remote computer. If inaccessible, display error message.
  Set objShell = CreateObject("WScript.Shell")
  Set objScriptExec = objShell.Exec("ping -n 2 -w 1000 " & strComputer)
  strPingResults = LCase(objScriptExec.StdOut.ReadAll)
  If InStr(strPingResults, "reply from") Then

     WScript.Echo VbCrLf & "Host Name: " & strComputer
    Set objWMIService = GetObject("winmgmts:" _
     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
' Test for success in binding to WMI.
    If Err = 0 Then
      Set colNicConfigs = objWMIService.ExecQuery("SELECT * FROM " & _
       "Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
      For Each objNicConfig In colNicConfigs
        WScript.Echo VbCrLf & "  Network Adapter " & objNicConfig.Index
        WScript.Echo "    " & objNicConfig.Description & VbCrLf
        WScript.Echo "    IP Address(es):"
        For Each strIPAddress In objNicConfig.IPAddress
          WScript.Echo "        " & strIPAddress
        Next
        WScript.Echo "    Subnet Mask(s):"
        For Each strIPSubnet In objNicConfig.IPSubnet
          WScript.Echo "        " & strIPSubnet
        Next
      Next
    Else
      Wscript.Echo "Error: Unable to connect to WMI." & VbCrLf & _
       "Error Number: " & Err.Number & VbCrLf & _
       "Error Source: " & Err.Source & VbCrLf & _
       "Error Description: " & Err.Description
      Err.Clear
    End If

   Else

     WScript.Echo VbCrLf & "Host Name: " & strComputer & VbCrLf & _
     "  Unable to connect."

   End If

 Next

Wenn Sie Cscript.exe zur Ausführung dieses Skripts verwenden, wird im Befehlsfenster eine ähnliche Ausgabe wie die folgende angezeigt:

C:\scripts>getip-multi.vbs

Host Name: server1

Network Adapter 12

3Com EtherLink XL 10/100 PCI For Complete PC Management NIC (3C905C-TX) #2 -

Packet Scheduler Miniport

IP Address(es):

192.168.0.1

Subnet Mask(s):

255.255.255.0

Host Name: client1

Network Adapter 1

3Com 3C920 Integrated Fast Ethernet Controller (3C905C-TX Compatible) - Pack

et Scheduler Miniport

IP Address(es):

192.168.0.11

Subnet Mask(s):

255.255.255.0

Host Name: server2

Unable to connect.

Host Name: client2

Network Adapter 1

3Com 3C918 Integrated Fast Ethernet Controller (3C905B-TX Compatible)

IP Address(es):

192.168.0.12

Subnet Mask(s):

255.255.255.0

Verwenden einer Textdatei mit einer Hostliste als Eingabe

Damit die Liste der Hosts, für die ein Skript ausgeführt wird, einfacher zu verwalten ist, als ein Array, können Sie die Liste in eine Textdatei stellen. Die Textdatei kann mithilfe des Objekts FileSystemObject in das Skript eingelesen werden. Dies wird von verschiedenen Skripts in diesem Dokument veranschaulicht, einschließlich Dns-move.vbs und Addclient.vbs.

Herstellen der Verbindung zu einem Bereich von IP-Adressen

Wenn eine Skript für einen Bereich von IP-Adressen ausgeführt werden soll, z. B. einem Subnetz, dann können Sie einfache Skripterstellungsverfahren anwenden, um den Bereich programmtechnisch zu konstruieren. Dies ist möglich, da beim Herstellen der Verbindung zu einem Remotecomputer sowohl IP-Adressen als auch Hostnamen im WMI-Objektpfad verwendet werden können. Nach dem Herstellen der Verbindung können Sie anderen Möglichkeiten nutzen, z. B. die Eigenschaft Name der Klasse Win32_Computer, um den Hostnamen abzurufen. Eine Abbildung dieses Verfahrens finden Sie weiter vorne in diesem Dokument, unter der Unterroutine GetName im Skript Pinstatus-multi.vbs.

Ein Beispiel zum Herstellen der Verbindung zu einem Bereich von IP-Adressen finden Sie später in diesem Dokument in Dhcp-enable-subnet.vbs in "Szenario: Zuweisen von IP-Adressen in einem Subnetz".

Andere Möglichkeiten zum Bereitstellen von Eingaben für Skripts

Weitere komplexere und leistungsstärkere Methoden zum programmgesteuerten Abrufen einer Liste mit Computern umfassen:

Diese Verfahren ermöglichen es einem Skript, weitere Informationen zu den einzelnen Computern zu erhalten, als nur die Hostnamen oder IP-Adressen. Weitere Informationen zu diesen Verfahren finden Sie in "Tales from the Script - November 2002: Running WMI Scripts Against Multiple Computers" unter http://go.microsoft.com/fwlink/?LinkId=24786 (nur auf Englisch verfügbar).

Zum Seitenanfang

Aufzeichnen von Daten von mehreren Computern

Nachdem Sie Daten von mehreren Computern im Netzwerk erfasst haben, möchten Sie diese Daten häufig in einer bestimmten Form speichern. Die einfachste Methode zum Protokollieren von Daten ist es, die Skriptausgabe in eine Textdatei umzuleiten. Sie können den Shell-Umleitungsoperator ">", zum Umleiten von Skriptausgaben in eine Datei verwenden. Wenn die Ausgabe an eine vorhandene Datei angehängt werden soll, verwenden Sie die Syntax ">>". Der folgende Befehl speichert z. B. die Ausgabe von lpsettings.vbs in einer neuen Textdatei mit dem Namen lpsettings.txt:

ipsettings.vbs > ipsettings.txt

Sie können auch das Objekt FileSystemObject verwenden, um Dateien zu erstellen und die Ergebnisse dort einzutragen. Weitere Informationen zum Verwenden von FileSystemObject für Skripteingaben finden Sie unter in Kapitel 4 des Windows 2000 Scripting-Handbuchs unter /germany/technet/datenbank/articles/600360.mspx. Die Skript-Laufzeitbibliothek ist in allen Versionen von Windows, die den WSH zur Verfügung stellen sowie in allen Downloads des Windows Scripting Hosts enthalten.

Eine etwas vielseitigere Möglichkeit zum Ausgeben von Daten ist es, diese zu formatieren und als CSV-Datei zu speichern. Sie können CSV-Dateien in einer Tabellenkalkulation öffnen. Microsoft Excel bietet ebenfalls ein umfassendes Objektmodell für die Skripterstellung, mit dem Sie XLS-Dateien erstellen können.

Zuletzt bietet ADO (ActiveX Data Objects) eine Möglichkeit für Skripts, die VBScript und WSH verwenden, um direkt mit Datenbanken zu arbeiten. Auch ohne die Verbindung zu einer Datenbank herzustellen, bieten nicht verbundene ADO-RecordSets eine bequeme Möglichkeit, um Daten zu sortieren und zu bearbeiten.

Weitere Informationen zu diesen Methoden zum Behandeln von Ausgaben finden Sie in "Tales from the Script - April 2003: Script Output that Sticks Around" im TechNet Script Center unter http://go.microsoft.com/fwlink/?LinkId=24788 (nur auf Englisch verfügbar). Lesen Sie dazu auch die folgenden Themen des Windows 2000 Scripting-Handbuches:

Zum Seitenanfang

Tools zur Skripterstellung für die Verwaltung von Remotenetzwerken

Wenn Sie Remotenetzwerke verwalten, können Ihnen verschiedene Tools und Registrierungsschlüssel von Windows bei der Skripterstellung helfen. In Tabelle 7 sind verfügbare Tools und Information dazu enthalten, wo Sie diese finden.

Tabelle 7 Tools für die Verwaltung von Remotenetzwerken

In Tabelle 8 werden die Registrierungsunterschlüssel aufgelistet, die Sie zum Erstellen von Skripts für Remotenetzwerke verwenden können.

Vorsicht
Durch eine fehlerhafte Bearbeitung der Registrierung kann ernsthafter Schaden am System verursacht werden. Bevor Sie Änderungen an der Registrierung vornehmen, sollten Sie eine Sicherungskopie aller wichtigen Daten auf dem Computer erstellen.

Tabelle 8 Registrierungsunterschlüssel zur Skripterstellung für die Verwaltung von Remotenetzwerken

Zum Seitenanfang

4 von 11