VBS脚本如何获取当前计算机的ip地址?

发布网友 发布时间：2022-04-25 03:40

我来回答

共3个回答

热心网友 时间：2023-10-23 19:56

如果你有Winsock控件的话，可以用下面的程序来得到：
Dim WS
Set WS=CreateObject("MSWinsock.Winsock")
MsgBox "Local IP=" & WS.LocalIP
弹出信息框中会显示本地IP。
而Winsock控件，可从通过安装VB6.0来获得。
///
代码如下
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

热心网友 时间：2023-10-23 19:56

如果你有Winsock控件的话，可以用下面的程序来得到：
Dim WS
Set WS=CreateObject("MSWinsock.Winsock")
MsgBox "Local IP=" & WS.LocalIP
弹出信息框中会显示本地IP。
而Winsock控件，可从通过安装VB6.0来获得。

热心网友 时间：2023-10-23 19:57

返回安装在计算机中的每个支持 IP 的网络适配器的 IP 地址。
脚本代码
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & " ootcimv2")
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