显示IP

vbs

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

ipText = "Local IPv4 Addresses:" & vbCrLf & vbCrLf

For Each objItem in colItems
  If Not IsNull(objItem.IPAddress) Then
    For Each strIPAddress in objItem.IPAddress
      If Left(strIPAddress, 3) <> "127" Then
        ipText = ipText & "[" & objItem.Description & "]" & vbCrLf & strIPAddress & vbCrLf & vbCrLf
      End If
    Next
  End If
Next

If ipText = "Local IPv4 Addresses:" & vbCrLf & vbCrLf Then
  ipText = "No valid IPv4 address found." & vbCrLf & "Please check your network connection!"
End If

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Popup ipText, 0, "IP Address", 64

保存为 Show-IP.vbs

ps1

$ipAddresses = Get-NetIPAddress -AddressFamily IPv4 |
  Where-Object { $_.IPAddress -notlike "127.*" -and $_.Status -eq "Up" } |
  Select-Object InterfaceAlias, IPAddress

if ($ipAddresses.Count -eq 0) {
  $ipText = "No valid IPv4 address found.`nPlease check network!"
} else {
  $ipText = "Local IPv4 Addresses:`n`n"
  foreach ($ip in $ipAddresses) {
    $ipText += "[$($ip.InterfaceAlias)]`n$($ip.IPAddress)`n`n"
  }
}

(New-Object -ComObject WScript.Shell).Popup($ipText, 0, "IP Address", 64)

保存为 Show-IP.ps1