Dela via

WMI-uppgifter: Nätverk

  • Artikel

WMI-uppgifter för nätverk hanterar och hämtar information om anslutningar och IP- eller MAC-adresser. Andra exempel finns i TechNet ScriptCenter på https://www.microsoft.com/technet.

Skriptexemplen som visas i det här avsnittet hämtar endast data från den lokala datorn. Mer information om hur du använder skriptet för att hämta data från fjärrdatorer finns i Ansluta till WMI på en fjärrdator.

Följande procedur beskriver hur du kör ett skript.

Så här kör du ett skript

  1. Kopiera koden och spara den i en fil med tillägget .vbs, till exempel filename.vbs. Kontrollera att textredigeraren inte lägger till ett .txt filnamnstillägg.
  2. Öppna ett kommandotolksfönster och navigera till katalogen där du sparade filen.
  3. Skriv cscript filename.vbs i kommandotolken.
  4. Om du inte kan komma åt en händelselogg, kontrollera om du kör från en kommandotolk med administratörsrättigheter. Vissa händelseloggar, till exempel säkerhetshändelseloggen, kan skyddas av användaråtkomstkontroller (UAC).

Obs

Som standard visar cscript utdata från ett skript i kommandotolkens fönster. Eftersom WMI-skript kan generera stora mängder utdata kanske du vill omdirigera utdata till en fil. Skriv cscript filename.vbs > outfile.txt i kommandotolken för att omdirigera utdata från filename.vbs skriptet till outfile.txt.

I följande tabell visas skriptexempel som kan användas för att hämta olika typer av data från den lokala datorn.

Hur gör jag... WMI-klasser eller -metoder
... inaktivera en nätverksanslutning med hjälp av WMI? Om du använder DHCP använder du metoden Win32_NetworkAdapterConfiguration och ReleaseDHCPLease för att frigöra IP-adressen. Om du inte använder DHCP kan du inte använda WMI för att inaktivera en nätverksanslutning. Om du vill återaktivera nätverksanslutningen använder du objNetCard.RenewDHCPLease. Du kan också släppa eller förnya alla DHCP-lån med hjälp av metoderna ReleaseDHCPLeaseAll och RenewDHCPLeaseAll.
VB 
strComputer = "."
Set objWMIService = GetObject( _
    "winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration " _
        & "Where IPEnabled = True")
For Each objNetCard in colNetCards
    objNetCard.ReleaseDHCPLease()
Next
PowerShell 
$Computer = "."
$net = Get-WMIObject -class Win32_NetworkAdapterConfiguration -ComputerName $computer
$netenabled = $net | where {$_.IPenabled}
foreach ($NetCard in $netenabled) {
    "Releasing lease on: {0}" -f $netcard.caption
 $netcard.ReleaseDHCPLease()
}
... inaktivera eller aktivera ett nätverkskort?

Använd klassen Win32_NetworkAdapter och metoderna Inaktivera eller Aktivera.
... avgöra vilken IP-adress som har tilldelats till en viss nätverksanslutning?

Använd Win32_NetworkAdapter-klassen och egenskapen NetConnectionID för att fastställa MAC-adressen för nätverksanslutningen. Använd sedan klassen Win32_NetworkAdapterConfiguration för att hitta IP-adressen som är associerad med MAC-adressen.

VB 
              
              strComputer = "." Ange objWMIService = GetObject(_ "winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery _ ("Select * From Win32_NetworkAdapter " _ & "Where NetConnectionID = " & _ "'Local Area Connection 2'") 
För varje objItem i colItems strMACAddress = objItem.MACAddress Next


Ange colItems = objWMIService.ExecQuery _ ("Välj * från Win32_NetworkAdapterConfiguration")


For Each objItem in colItems
If objItem.MACAddress = strMACAddress Then
For Each strIPAddress in objItem.IPAddress
Wscript.Echo "IP Address: " &  strIPAddress
Next
End If
Next
VB 
strComputer = "."
Set objWMIService = GetObject( _
    "winmgmts:\\" & strComputer & "\root\cimv2")
Set colNics = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapter " _
        & "Where NetConnectionID = " & _
        "'Local Area Connection'")
 
For Each objNic in colNics
    Set colNicConfigs = objWMIService.ExecQuery _
      ("ASSOCIATORS OF " _
          & "{Win32_NetworkAdapter.DeviceID='" & _
      objNic.DeviceID & "'}" & _
      " WHERE AssocClass=Win32_NetworkAdapterSetting")
    For Each objNicConfig In colNicConfigs
        For Each strIPAddress in objNicConfig.IPAddress
            Wscript.Echo "IP Address: " &  strIPAddress
        Next
    Next
Next
... fastställa MAC-adressen för ett nätverkskort?

Använd klassen Win32_NetworkAdapterConfiguration och kontrollera värdet för egenskapen MACAddress.
... fastställa IP-adressen för en dator?

Använd klassen Win32_NetworkAdapterConfiguration och kontrollera värdet för egenskapen IPAddress. Detta returneras som en matris, så använd en For-Each-loop för att hämta värdet.

VB 
strComputer = "."
Set objWMIService = GetObject( _ 
    "winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
    ("Select IPAddress from Win32_NetworkAdapterConfiguration ")
 
For Each IPConfig in IPConfigSet
    If Not IsNull(IPConfig.IPAddress) Then 
        For i=LBound(IPConfig.IPAddress) _
            to UBound(IPConfig.IPAddress)
                WScript.Echo IPConfig.IPAddress(i)
        Next
    End If
Next
PowerShell 
$Computer = "."
$IPconfigset = Get-WmiObject Win32_NetworkAdapterConfiguration
  
# Iterate and get IP address
$count = 0
foreach ($IPConfig in $IPConfigSet) {
   if ($Ipconfig.IPaddress) {
      foreach ($addr in $Ipconfig.Ipaddress) {
   "IP Address   : {0}" -f  $addr;
   $count++ 
   }
   }
}
if ($count -eq 0) {"No IP addresses found"}
else {"$Count IP addresses found on this system"}
... konfigurera en dator för att börja hämta sin IP-adress via DHCP?

Använd klassen Win32_NetworkAdapterConfiguration och metoden EnableDHCP.

VB 
strComputer = "."
Set objWMIService = GetObject(_
    "winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration " _
        & "where IPEnabled=TRUE")
 
For Each objNetAdapter In colNetAdapters
    errEnable = objNetAdapter.EnableDHCP()
Next
... tilldela en dator en statisk IP-adress?

Använd klassen Win32_NetworkAdapterConfiguration och metoden EnableStatic.

VB 
strComputer = "."
Set objWMIService = GetObject( _
    "winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration " _
        & "where IPEnabled=TRUE")
strIPAddress = Array("192.168.1.141")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.1.100")
strGatewayMetric = Array(1)
 
For Each objNetAdapter in colNetAdapters
    errEnable = objNetAdapter.EnableStatic( _
        strIPAddress, strSubnetMask)
    errGateways = objNetAdapter.SetGateways(_
        strGateway, strGatewaymetric)
Next
... få information om nätverkskort utan att även hämta information om saker som RAS- och VPN-anslutningar?

Använd klassen Win32_NetworkAdapterConfiguration. I din WQL--fråga använder du den här satsen: Där IPEnabled = True.

VB 
strComputer = "."
Set objWMIService = GetObject( _
    "winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
    ("Select IPAddress from Win32_NetworkAdapterConfiguration" _
        & " where IPEnabled=TRUE")
 
For Each IPConfig in IPConfigSet
    If Not IsNull(IPConfig.IPAddress) Then 
        For i=LBound(IPConfig.IPAddress) _
        to UBound(IPConfig.IPAddress)
            WScript.Echo IPConfig.IPAddress(i)
        Next
    End If
Next
... skicka en signal till en dator utan att använda Ping.exe?

Använd klassen Win32_PingStatus.

Win32_PingStatus kan returnera data för datorer som har både IPv4-adresser och IPv6-adresser.

VB 
              
              strComputer = "." Ange objWMIService = GetObject(_ "winmgmts:\\" & strComputer & "\root\cimv2") Set colPings = objWMIService.ExecQuery _ ("Select * From Win32_PingStatus where Address = '192.168.1.1'") 
For Each objStatus in colPings
If IsNull(objStatus.StatusCode) _
or objStatus.StatusCode<>0 Then
WScript.Echo "Computer did not respond."
Else
Wscript.Echo "Computer responded."
End If
Next
VB 
strComputer = "client1"
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
    If InStr(strPingResults, "destination net unreachable") Then
        WScript.Echo strComputer & "did not respond to ping."
    Else
        WScript.Echo strComputer & " responded to ping."
    End If 
Else
    WScript.Echo strComputer & " did not respond to ping."
End If

WMI-uppgifter för skript och program

WMI C++-programexempel

TechNet ScriptCenter