Automatisieren von TCP/IP-Netzwerken auf Clients

DNSDomain

Zeichenfolge

Der Organisationsname, gefolgt von einem Punkt und einer Erweiterung, die den Typ der Organisation angibt, z. B. microsoft.com. Der Name kann aus einer beliebigen Kombination der Buchstaben A–Z, der Ziffern 0–9 sowie des Bindestrichs (-) bestehen; dazu kommt der Punkt (.) als Trennzeichen.

Beispiel: "microsoft.com"

DNSEnabledForWINSResolution

Boolean-Wert

TRUE gibt an, dass DNS für die Namensauflösung über WINS (Windows Internet Name Service) aktiviert ist. Wenn der Name mithilfe von DNS nicht aufgelöst werden kann, wird die Anforderung an WINS weitergeleitet.

DNSServerSearchOrder

Zeichenfolgenarray

Array von Server-IP-Adressen, die für DNS-Serverabfragen verwendet werden.

FullDNSRegistrationEnabled

Boolean-Wert

TRUE gibt an, dass die IP-Adressen für diese Verbindung in DNS unter dem vollständigen DNS-Namen des Computers registriert sind. Der vollständige DNS-Name des Computers wird auf der Registerkarte Netzwerkidentifikation der Anwendung System in der Systemsteuerung angezeigt. Diese Eigenschaft ist neu bei Windows XP.

EnableDNS

DNSHostName – Zeichenfolge
DNSDomain – Zeichenfolge
DNSServerSearchOrder – Array von Zeichenfolgen
DNSDomainSuffixSearchOrder – Zeichenfolge

Aktiviert DNS auf dem Client.

SetDNSServerSearchOrder

DNSServerSearchOrder – Array von Zeichenfolgen

Verwendet ein Array von Zeichenfolgenelementen zum Festlegen der Suchreihenfolge für Server. Wenn Sie alle DNS-Server aus der Suchreihenfolge entfernen möchten, müssen Sie Null statt einer leeren Zeichenfolge verwenden. Dieser instanzabhängige Methodenaufruf gilt auf Adapterbasis. Nachdem statische DNS-Server angegeben wurden, um die Verwendung von DHCP statt statischer DNS-Server einzuleiten, können Sie die Methode aufrufen, ohne Parameter für "in" angeben zu müssen. Unter Windows 2000 gilt die Einstellung für den Zieladapter. Unter Windows NT 4.0 ist die Einstellung global.

SetDynamicDNSRegistration

FullDNSRegistrationEnabled – Boolean-Wert
DomainDNSRegistrationEnabled – Boolean-Wert

Gibt den Modus der dynamischen DNS-Registrierung von IP-Adressen für den IP-Adapter an.

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
46
47
48

On Error Resume Next

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

For Each objNicConfig In colNicConfigs
  strDNSSuffixSO = ""
  strDNSServerSO = ""
  strDNSHostName = objNicConfig.DNSHostName
  strIndex = objNicConfig.Index
  strDescription = objNicConfig.Description
  strDNSDomain = objNicConfig.DNSDomain
  strDNSSuffixSO = ""
  If Not IsNull(objNicConfig.DNSDomainSuffixSearchOrder) Then
    For Each strDNSSuffix In objNicConfig.DNSDomainSuffixSearchOrder
      strDNSSuffixSO = strDNSSuffixSO & VbCrLf & String(37, " ") & _
 strDNSSuffix
    Next
  End If
  strDNSServerSO = ""
  If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
    For Each strDNSServer In objNicConfig.DNSServerSearchOrder
      strDNSServerSO = strDNSServerSO & VbCrLf & String(37, " ") & _
 strDNSServer
    Next
  End If
  strDomainDNSRegistrationEnabled = _
 objNicConfig.DomainDNSRegistrationEnabled
  strFullDNSRegistrationEnabled = objNicConfig.FullDNSRegistrationEnabled
  strDNSSettings = strDNSSettings & VbCrLf & VbCrLf & _
   "  Network Adapter " & strIndex & VbCrLf & _
   "    " & strDescription & VbCrLf & VbCrLf & _
   "    DNS Domain:                      " & strDNSDomain & VbCrLf & _
   "    DNS Domain Suffix Search Order:" & strDNSSuffixSO & VbCrLf & _
   "    DNS Server Search Order:" & strDNSServerSO & VbCrLf & _
   "    Domain DNS Registration Enabled: " & _
   strDomainDNSRegistrationEnabled & VbCrLf & _
   "    Full DNS Registration Enabled:   " & _
   strFullDNSRegistrationEnabled

Next

 WScript.Echo VbCrLf & "DNS Settings" & VbCrLf & VbCrLf & _
 "Host Name: " & strDNSHostName & strDNSSettings

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

On Error Resume Next

 strComputer = "."
strDNSHostName = "client1"
strDNSDomain = "fabrikam.com"
arrDNSServerSearchOrder = Array("192.168.0.1", "192.168.0.2")
arrDNSDomainSuffixSearchOrder = Array("hr.fabrikam.com", "contoso.com")

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

 WScript.Echo VbCrLf & "DNS Host Name: " & strDNSHostName & VbCrLf & _
 "  Attempting to enable DNS"
intEnableDNS = objNicConf.EnableDNS(strDNSHostName, strDNSDomain, _
 arrDNSServerSearchOrder, arrDNSDomainSuffixSearchOrder)
If intEnableDNS = 0 Then
  WScript.Echo "  Successfully enabled DNS."
ElseIf intEnableDNS = 1 Then
  WScript.Echo "  Successfully enabled DNS." & VbCrLf & "    Must reboot."
Else
  WScript.Echo "  Unable to enable DNS."
End If

 WScript.Echo VbCrLf & String(80,"-")

 Set colNicConfigs = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

 For Each objNicConfig In colNicConfigs
  strDNSHostName = objNicConfig.DNSHostName
Next
WScript.Echo VbCrLf & "DNS Host Name: " & strDNSHostName

 For Each objNicConfig In colNicConfigs
  WScript.Echo VbCrLf & "  Network Adapter " & objNicConfig.Index & _
 VbCrLf &   "    " & objNicConfig.Description
  WScript.Echo "    DNS Domain: " & objNicConfig.DNSDomain
  WScript.Echo "    DNS Server Search Order:"
  If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
    For Each strDNSServer In objNicConfig.DNSServerSearchOrder
      WScript.Echo "        " & strDNSServer
    Next
  End If
  WScript.Echo "    DNS Domain Suffix Search Order:"
  If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
    For Each strDNSDomainSuffix In objNicConfig.DNSDomainSuffixSearchOrder
      WScript.Echo "        " & strDNSDomainSuffix
    Next
  End If
Next

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

On Error Resume Next

 strComputer = "."
arrNewDNSServerSearchOrder = Array("192.168.0.1", "192.168.0.2")

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

 WScript.Echo VbCrLf & "Computer: " & strComputer

 For Each objNicConfig In colNicConfigs
  WScript.Echo VbCrLf & "  Network Adapter " & objNicConfig.Index
  WScript.Echo "    DNS Server Search Order - Before:"
  If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
    For Each strDNSServer In objNicConfig.DNSServerSearchOrder
      WScript.Echo "        " & strDNSServer
    Next
  End If
  intSetDNSServers = _
   objNicConfig.SetDNSServerSearchOrder(arrNewDNSServerSearchOrder)
  If intSetDNSServers = 0 Then
    WScript.Echo "    Replaced DNS server search order list."
  Else
    WScript.Echo "    Unable to replace DNS server search order list."
  End If
Next

 WScript.Echo VbCrLf & String(80, "-")

 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 "    DNS Server Search Order - After:"
  If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
    For Each strDNSServer In objNicConfig.DNSServerSearchOrder
      WScript.Echo "        " & strDNSServer
    Next
  End If
Next

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

On Error Resume Next

 strComputer = "."
strOldDNSServer = "192.168.0.2"
strNewDNSServer = "192.168.0.5"

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

 WScript.Echo VbCrLf & "Computer: " & strComputer

 For Each objNicConfig In colNicConfigs
  WScript.Echo VbCrLf & "  Network Adapter " & objNicConfig.Index
  arrDNSServerSearchOrder = objNicConfig.DNSServerSearchOrder
  WScript.Echo "    DNS Server Search Order - Before:"
  If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
    For Each strDNSServer In objNicConfig.DNSServerSearchOrder
      WScript.Echo "        " & strDNSServer
    Next
  End If
  blnFound = 0
  For i = 0 to UBound(arrDNSServerSearchOrder)
    If arrDNSServerSearchOrder(i) = strOldDNSServer Then
      arrDNSServerSearchOrder(i) = strNewDNSServer
      blnFound = 1
    End If
  Next
  If blnFound Then
    retSetDNS = objNicConfig.SetDNSServerSearchOrder(arrDNSServerSearchOrder)
    If retSetDNS = 0 Then
      WScript.Echo "    Replaced " & strOldDNSServer & " with " & _
       strNewDNSServer & " in DNS search order."
    Else
      WScript.Echo "    Unable to change DNS server search order."
    End If
  Else
    WScript.Echo "    DNS server " & strOldDNSServer & " not found."
  End If
Next

 WScript.Echo VbCrLf & String(80, "-")

 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 "    DNS Server Search Order - After:"
  If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
    For Each strDNSServer In objNicConfig.DNSServerSearchOrder
      WScript.Echo "        " & strDNSServer
    Next
  End If
Next

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

On Error Resume Next

 strComputer = "."
strNewDNSServer = "192.168.0.4"

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

 WScript.Echo VbCrLf & "Computer: " & strComputer

 For Each objNicConfig In colNicConfigs
  intNewArraySize = 0
  WScript.Echo VbCrLf & "  Network Adapter " & objNicConfig.Index
  arrDNSServerSearchOrder = objNicConfig.DNSServerSearchOrder
  WScript.Echo "    DNS Server Search Order - Before:"
  If Not IsNull(arrDNSServerSearchOrder) Then
    For Each strDNSServer In arrDNSServerSearchOrder
      WScript.Echo "        " & strDNSServer
    Next
  End If
  WScript.Echo "    Adding " & strNewDNSServer & " to end of " & _
   "DNS search order."
  intNewArraySize = UBound(arrDNSServerSearchOrder) + 1
  ReDim Preserve arrDNSServerSearchOrder(intNewArraySize)
  arrDNSServerSearchOrder(intNewArraySize) = strNewDNSServer
  intSetDNS = _
   objNicConfig.SetDNSServerSearchOrder(arrDNSServerSearchOrder)
  If intSetDNS = 0 Then
    WScript.Echo "    Added " & strNewDNSServer & _
     " to end of DNS search order."
  Else
    WScript.Echo "    Unable to change DNS server search order."
  End If
Next

 WScript.Echo VbCrLf & String(80, "-")

 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 "    DNS Server Search Order - After:"
  If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
    For Each strDNSServer In objNicConfig.DNSServerSearchOrder
      WScript.Echo "        " & strDNSServer
    Next
  End If
Next

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
30
41
42
43
44
45
46
47
48
49
50
51
52
53

On Error Resume Next

 strComputer = "."
strNewDNSServer = "192.168.0.3"

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

 WScript.Echo VbCrLf & "Computer: " & strComputer

 For Each objNicConfig In colNicConfigs
  intNewArraySize = 0
  WScript.Echo VbCrLf & "  Network Adapter " & objNicConfig.Index
  arrDNSServerSearchOrder = objNicConfig.DNSServerSearchOrder
  WScript.Echo "    DNS Server Search Order - Before:"
  If Not IsNull(arrDNSServerSearchOrder) Then
    For Each strDNSServer In arrDNSServerSearchOrder
      WScript.Echo "        " & strDNSServer
    Next
  End If
  WScript.Echo "    Adding " & strNewDNSServer & " to top of " & _
   "DNS search order."
  intNewArraySize = UBound(arrDNSServerSearchOrder) + 1
  ReDim Preserve arrDNSServerSearchOrder(intNewArraySize)
  For i = (intNewArraySize - 1) To 0 Step -1
    arrDNSServerSearchOrder(i + 1) = arrDNSServerSearchOrder(i)
  Next
  arrDNSServerSearchOrder(0) = strNewDNSServer
  intSetDNS = objNicConfig.SetDNSServerSearchOrder(arrDNSServerSearchOrder)
  If intSetDNS = 0 Then
    WScript.Echo "    Added " & strNewDNSServer & _
     " to top of DNS search order."
  Else
    WScript.Echo "    Unable to change DNS server search order."
  End If
Next

 WScript.Echo VbCrLf & String(80, "-")

 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 "    DNS Server Search Order - After:"
  If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
    For Each strDNSServer In objNicConfig.DNSServerSearchOrder
      WScript.Echo "        " & strDNSServer
    Next
  End If
Next

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

 strComputer = "."
strDNSDomain = "fabrikam.com"

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

 For Each objNicConfig In colNicConfigs
  strDNSHostName = objNicConfig.DNSHostName
Next
WScript.Echo VbCrLf & "DNS Host Name: " & strDNSHostName

 For Each objNicConfig In colNicConfigs
  WScript.Echo VbCrLf & _
   "  Network Adapter " & objNicConfig.Index & VbCrLf & _
   "    " & objNicConfig.Description & VbCrLf & _
   "    DNS Domain - Before: " & objNicConfig.DNSDomain
  intSetDomain = objNicConfig.SetDNSDomain(strDNSDomain)
  If intSetDomain = 0 Then
    WScript.Echo "    Successfully set DNS domain to " & strDNSDomain
  ElseIf intSetDomain = 1 Then
    WScript.Echo "    Successfully set DNS domain to " & strDNSDomain & _
     VbCrLf & "    Must reboot."
  Else
    WScript.Echo "    Unable to set DNS domain."
  End If
Next

 WScript.Echo VbCrLf & String(80, "-")

 Set colNicConfigs = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

 For Each objNicConfig In colNicConfigs
  strDNSHostName = objNicConfig.DNSHostName
Next
WScript.Echo VbCrLf & "DNS Host Name: " & strDNSHostName

For Each objNicConfig In colNicConfigs
  WScript.Echo VbCrLf & _
   "  Network Adapter " & objNicConfig.Index & VbCrLf & _
   "    " & objNicConfig.Description & VbCrLf & _
   "    DNS Domain - After: " & objNicConfig.DNSDomain
Next

Name

Der Name der hinzufügenden Domäne oder Arbeitsgruppe. Darf nicht den Wert NULL haben.

Username

NetBIOS-Name und -Benutzerkonto, im Format DOMÄNE\Benutzer. Wenn der Wert dieses Parameters NULL ist, werden die Anmeldeinformationen verwendet, unter denen das Skript ausgeführt wird.

FJoinOptions

Eine Gruppe von Bitflags, die Optionen für das Hinzufügen einer Domäne oder Arbeitsgruppe angeben. Wenn Sie diesen Parameter nicht festlegen, wird der Standardwert 1 (Domäne beitreten) verwendet und der im ersten Parameter angegebene Name als Arbeitsgruppe angenommen. Sie können 0 oder weitere dieser Parameter gleichzeitig festlegen, indem Sie die erforderlichen Werte mithilfe von der Bitoperation OR verknüpfen, wie das folgende Skript zeigt.

1

&h00001

Domäne beitreten

Standard. Fügt einen Computer einer Domäne hinzu. Falls dieser Wert nicht angegeben wird, wird der Computer einer Arbeitsgruppe hinzugefügt.

4

&h00004

Kontenlöschung

Löscht ein Konto, wenn eine Domäne vorhanden ist.

32

&h00020

Domänenbeitritt falls beigetreten

Fügt einen Computer einer neuen Domäne hinzu, auch wenn er bereits Mitglied einer Domäne ist.

128

&h00080

Computerkennwort weitergeleitet

Das Kennwort für den Computer, nicht für den Benutzer, wird übergeben. Diese Option kann nur bei unsicheren Beitritten verwendet werden.

262144

&h40000

Installationsaufruf

Die APIs wurden während der Installation aufgerufen.

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

On Error Resume Next

 Const JOIN_DOMAIN = 1
strComputer = "."
strDomainName = "fabrikam.com"

 Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colCompSystems = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_ComputerSystem")

 For Each objCompSystem In colCompSystems
  WScript.Echo VbCrLf & "Computer Name: " & LCase(objCompSystem.Name)
  WScript.Echo "  Domain - Before: " & LCase(objCompSystem.Domain)
  intJoinDomain = objCompSystem.JoinDomainOrWorkgroup(strDomainName,,,, _
   JOIN_DOMAIN)
  If intJoinDomain = 0 Then
    WScript.Echo "    Joined computer to " & strDomainName & " domain."
  ElseIf intJoinDomain = 1 Then
    WScript.Echo "    Joined computer to " & strDomainName & " domain." & _
     VbCrLf & "    Must reboot."
  Else
    WScript.Echo "    Unable to join computer to " & strDomainName & _
     " domain."
WScript.Echo "Return value of JoinDomainOrWorkgroup method: " & intJoinDomain
  End If
Next

 WScript.Echo VbCrLf & String(80, "-")

 Set colCompSystems = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_ComputerSystem")

 For Each objCompSystem In colCompSystems
  WScript.Echo VbCrLf & "Computer Name: " & LCase(objCompSystem.Name)
  WScript.Echo "  Domain - After: " & LCase(objCompSystem.Domain)
  intDomainRole = objCompSystem.DomainRole
  Select Case intDomainRole
    Case 0 strDomainRole = "Standalone Workstation"
    Case 1 strDomainRole = "Member Workstation"
    Case 2 strDomainRole = "Standalone Server"
    Case 3 strDomainRole = "Member Server"
    Case 4 strDomainRole = "Backup Domain Controller"
    Case 5 strDomainRole = "Primary Domain Controller"
    Case Else strDomainRole = "Cannot determine domain role."
  End Select
  WScript.Echo "  Domain Role: " & strDomainRole
Next

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

On Error Resume Next

 strComputer = "."
arrNewDNSSuffixSearchOrder = Array("hr.fabrikam.com", "contoso.com")

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

 For Each objNicConfig In colNicConfigs
  strDNSHostName = objNicConfig.DNSHostName
Next
WScript.Echo VbCrLf & "DNS Host Name: " & strDNSHostName

 For Each objNicConfig In colNicConfigs
  WScript.Echo VbCrLf & _
   "  Network Adapter " & objNicConfig.Index & VbCrLf & _
   "    " & objNicConfig.Description & VbCrLf & _
   "    DNS Domain Suffix Search Order - Before:"
  If Not IsNull(objNicConfig.DNSDomainSuffixSearchOrder) Then
    For Each strDNSSuffix In objNicConfig.DNSDomainSuffixSearchOrder
      WScript.Echo "      " & strDNSSuffix
    Next
  End If
Next

 WScript.Echo VbCrLf & String(80, "-")

 Set objNetworkSettings = _
 objWMIService.Get("Win32_NetworkAdapterConfiguration")
intSetSuffixes = _
 objNetworkSettings.SetDNSSuffixSearchOrder(arrNewDNSSuffixSearchOrder)
If intSetSuffixes = 0 Then
  WScript.Echo VbCrLf & "Replaced DNS domain suffix search order list."
ElseIf intSetSuffixes = 1 Then
  WScript.Echo VbCrLf & "Replaced DNS domain suffix search order list." & _
   VbCrLf & "    Must reboot."
Else
  WScript.Echo VbCrLf & "Unable to replace DNS domain suffix " & _
   "search order list."
End If

 WScript.Echo VbCrLf & String(80, "-")

 Set colNicConfigs = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each objNicConfig In colNicConfigs
  WScript.Echo VbCrLf & _
   "  Network Adapter " & objNicConfig.Index & VbCrLf & _
   "    " & objNicConfig.Description & VbCrLf & _
   "    DNS Domain Suffix Search Order - After:"
  If Not IsNull(objNicConfig.DNSDomainSuffixSearchOrder) Then
    For Each strDNSSuffix In objNicConfig.DNSDomainSuffixSearchOrder
      WScript.Echo "      " & strDNSSuffix
    Next
  End If
Next

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

On Error Resume Next

 strComputer = "."
blnFullDNSRegistrationEnabled = True
blnDomainDNSRegistrationEnabled = True

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

 For Each objNicConfig In colNicConfigs
  strDNSHostName = objNicConfig.DNSHostName
Next
WScript.Echo VbCrLf & "DNS Host Name: " & strDNSHostName

 For Each objNicConfig In colNicConfigs
  WScript.Echo VbCrLf & _
   "  Network Adapter " & objNicConfig.Index & VbCrLf & _
   "    " & objNicConfig.Description & VbCrLf & _
   "    DNS Full Registration Enabled - Before: " & _
   objNicConfig.FullDNSRegistrationEnabled & VbCrLf & _
   "    DNS Domain Registration Enabled - Before: " & _
   objNicConfig.DomainDNSRegistrationEnabled
  intDynReg = objNicConfig.SetDynamicDNSRegistration _
   (blnFullDNSRegistrationEnabled, blnDomainDNSRegistrationEnabled)
  If intDynReg = 0 Then
    WScript.Echo VbCrLf & "    Successfully set dynamic DNS registration."
  ElseIf intDynReg = 1 Then
    WScript.Echo VbCrLf & _
     "    Successfully set dynamic DNS registration." & _
     VbCrLf & "    Must reboot."
  Else
    WScript.Echo VbCrLf & "    Unable to set dynamic DNS registration."
  End If
Next

 WScript.Echo VbCrLf & String(80, "-")

 Set colNicConfigs = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

 For Each objNicConfig In colNicConfigs
  WScript.Echo VbCrLf & "  Network Adapter " & objNicConfig.Index & _
 VbCrLf &   "    " & objNicConfig.Description & VbCrLf & _
   "    DNS Full Registration Enabled - After: " & _
   objNicConfig.FullDNSRegistrationEnabled & VbCrLf & _
   "    DNS Domain Registration Enabled - After: " & _
   objNicConfig.DomainDNSRegistrationEnabled
Next

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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237

On Error Resume Next

 ' Constants for FileSystemObject
Const FOR_READING = 1
Const FOR_WRITING = 2
Const FOR_APPENDING = 8

 ' Paths to input and output files. Input file must be text file with name
' of accessible machine, comma, and valid domain name on each line.
strFileInput = "c:\scripts\hosts.txt"
strFileOutput = "c:\scripts\newhosts.csv"

 ' Domain name and DNS servers corresponding to subdomains
strTopDomain = "fabrikam.com"
arrDNSSrv1 = Array("192.168.0.1", "192.168.0.2", "192.168.0.3") 'hr
arrDNSSrv2 = Array("192.168.0.2", "192.168.0.3", "192.168.0.1") 'it
arrDNSSrv3 = Array("192.168.0.3", "192.168.0.1", "192.168.0.2") 'ac

 ' Create a Script Runtime FileSystemObject.
Set objFSO = CreateObject("Scripting.FileSystemObject")

 ' If the input file exists, dump contents of input file into a string.
strInput = GetInput(strFileInput)

 ' Get computer info by breaking input stream into array at line breaks.
arrHosts = Split(strInput, VbCrLf)

 ' Check to see if the output file exists. If so, open it for appending.
' If not, create it and open it for writing.

 If objFSO.FileExists(strFileOutput) Then
  Set objOutputFile = objFSO.OpenTextFile (strFileOutput, FOR_APPENDING)
Else
  Set objOutputFile = objFSO.CreateTextFile(strFileOutput)
End If
If Err <> 0 Then
  Wscript.Echo "Unable to open " & strFileOutput & " for output."
  WScript.Quit
End If

 ' Write header for file.
objOutputFile.WriteLine "Inventory of computers moved to new domains." & _
 VbCrLf  & "Taken " & Now & VbCrLf & VbCrLf & String(120, "-") & VbCrLf

 For Each strHost In arrHosts

 ' Get names and domains by breaking each computer info array at commas.
  arrComputers = Split(strHost, ",")
  strComputer = arrComputers(0)
  strSubDomain = arrComputers(1)
  strDomain = strSubDomain & "." & strTopDomain
  WScript.Echo VbCrLf & "Host: " & strComputer & VbCrLf

 ' Ping remote computer. If no response display error message and end script
  blnPingSuccess = PingClient(strComputer)
  If blnPingSuccess = True Then

 ' Connect to the WMI service.
    Set objWMIService = GetObject("winmgmts:" _
     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

     If Err = 0 Then

 ' Write header for each computer.
      objOutputFile.WriteLine "Host:,," & strComputer & VbCrLf & VbCrLf & _
       ", Settings before operations:" & VbCrLf

 ' Get current settings and write to output file.
      GetSettings
      objOutputFile.WriteLine VbCrLf & "," & String(60, "-")

 ' Change domain and DNS search order.
      ChangeDNS

 ' Get settings after changes and write to output file.
      objOutputFile.WriteLine VbCrLf & "," & String(60, "-") & VbCrLf & _
       VbCrLf & ",Settings after operations:" & VbCrLf
      GetSettings
      objOutputFile.WriteLine VbCrLf & String(120, "-") & VbCrLf

     Else

       objOutputFile.WriteLine "Host: " & strComputer & VbCrLf _
       & VbCrLf & "Error connecting to WMI service." & VbCrLf & _
       "Error Number: " & Err.Number & VbCrLf & _
       "Error Source: " & Err.Source & VbCrLf & _
       "Error Description: " & Err.Description & VbCrLf & VbCrLf & _
       String(120, "-") & VbCrLf
      Err.Clear

     End If

   Else

     objOutputFile.WriteLine "Host: " & strComputer & VbCrLf _
     & VbCrLf & ",Unable to connect." & VbCrLf & VbCrLf & _
     String(120, "-") & VbCrLf

   End If

 Next

 ' Write footer for file and close.
objOutputFile.WriteLine String(64, "=") & VbCrLf
objOutputFile.Close

 WScript.Echo "Inventory complete. Data written to " & strFileOutput & "."

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

 Function GetInput(strFileInput)

 ' Check to see if the input file exists.
' If so, dump contents of input file into a string.

 If objFSO.FileExists(strFileInput) Then
  Set objInputFile = objFSO.GetFile(strFileInput)
  If objInputFile.Size > 0 Then
    Set objInputFile = objFSO.OpenTextFile(strFileInput, FOR_READING)
    strInputStream = objInputFile.ReadAll
    objInputFile.Close
    GetInput = strInputStream
  Else
    Wscript.Echo strFileInput & " is empty."
    WScript.Quit
  End If
Else
  WScript.Echo strFileInput & " does not exist on this computer."
  WScript.Quit
End If

 End Function

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

 Function PingClient(strComputer)

 Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("ping -n 2 -w 1000 " & strComputer)
strPingResults = LCase(objExec.StdOut.ReadAll)
If InStr(strPingResults, "reply from") Then
  PingClient = True
Else
  PingClient = False
End If

 End Function

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

 Sub GetSettings

 Set colCompSystems = objWMIService.ExecQuery _
("SELECT * FROM Win32_ComputerSystem")

 For Each objCompSystem in colCompSystems
  objOutputFile.WriteLine VbCrLf & ",Domain:,," & objCompSystem.Domain
Next

 Set colNicConfigs = objWMIService.ExecQuery("SELECT " & _
 "* FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True")

 For Each objNicConfig In colNicConfigs
  objOutputFile.WriteLine VbCrLf & ",Network Adapter " & _
   objNicConfig.Index & VbCrLf & _
   ",," & objNicConfig.Description & VbCrLf & _
   ",,DNS Domain:,," & objNicConfig.DNSDomain
  strRow = ",,DNS Server Search Order:,,"
  If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
    For Each strDNSServer In objNicConfig.DNSServerSearchOrder
      strRow = strRow & strDNSServer & ",,"
    Next
  End If
  objOutputFile.WriteLine strRow
  strRow = ",,IP Addresses:,,"
  If Not IsNull(objNicConfig.IPAddress) Then
    For Each strIPAddress In objNicConfig.IPAddress
      strRow = strRow & strIPAddress & ",,"
    Next
  End If
  objOutputFile.WriteLine strRow
  strRow = ",,Subnet Masks:,,"
  If Not IsNull(objNicConfig.IPSubnet) Then
    For Each strIPSubnet In objNicConfig.IPSubnet
      strRow = strRow & strIPSubnet & ",,"
    Next
  End If
  objOutputFile.WriteLine strRow
Next

 End Sub

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

 Sub ChangeDNS

 Set colNicConfigs = objWMIService.ExecQuery("SELECT " & _
 "* FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True")

 ' Test that child domain from input file is valid.
errSubDomain = False
Select Case strSubDomain
  Case "hr" arrDNSServers = arrDNSSrv1
  Case "it" arrDNSServers = arrDNSSrv2
  Case "ac" arrDNSServers = arrDNSSrv3
  Case Else errSubDomain = True
End Select

 If errSubDomain = False Then
  For Each objNicConfig In colNicConfigs
    objOutputFile.WriteLine VbCrLf & ",Network Adapter " & _
     objNicConfig.Index & VbCrLf & _
     ",," & objNicConfig.Description & VbCrLf & VbCrLf & _
     ",,Attempting to make changes in DNS configuration ..."
    intDomain = objNicConfig.SetDNSDomain(strDomain)
    If intDomain = 0 Then
      objOutputFile.WriteLine ",,Assigned new domain."
      intServers = objNicConfig.SetDNSServerSearchOrder _
       (arrDNSServers)
      If intServers = 0 Then
        objOutputFile.WriteLine ",,Assigned new DNS server " & _
         "search order."
      Else
        objOutputFile.WriteLine ",,Unable to assign new DNS " & _
         "server search order."
      End If
    Else
      objOutputFile.WriteLine ",,Unable to assign new domain or " & _
       "DNS server search order."
    End If
  Next
Else
  objOutputFile.WriteLine "Subdomain" & strSubDomain & _
  "could not be found."
End If

 End Sub

Befehlszeilentools

Dnscmd.exe: Problembehandlungstool für DNS-Server

Windows Server 2003-Supporttools

Befehlszeilentools

DNSRECORD.PL

Windows 2000 Resource Kit

Befehlszeilentools

DNSZONES.PL

Windows 2000 Resource Kit

Befehlszeilentools

Netsh.exe

Windows-Betriebssysteme¹

WSH

Keines

WMI

Win32_OperatingSystem

WMI

Win32_NTDomain

Nur Windows XP und Windows Server 2003

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Dnscache