87,904
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
apple749769 2002-07-08
- 打赏
- 举报
SORRY, ==> request.servervariables("REMOTE_ADDR")
apple749769 2002-07-08
- 打赏
- 举报
request.servervariables("REMOTE_ADD")
chinaillboy 2002-07-07
- 打赏
- 举报
我对VBS不熟，以前倒是有个例子，可惜找不着了。下面这个不知可否解燃眉之急：
ComputerName = InputBox("Enter the name of the computer you wish to query")
set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//"& ComputerName &"").ExecQuery("select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
set IPConfigSet = GetObject("localhost")
for each IPConfig in IPConfigSet
if Not IsNull(IPConfig.IPAddress) then
for i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
WScript.Echo "IPAddress: " & IPConfig.IPAddress(i)
next
end if
next
运行方法：
1.将以上代码存为ip.vbs，放到c:\下；
2.进入DOS方式，输入：wscript ip.vbs，在弹出地窗口中输入：localhost
ComputerName = InputBox("Enter the name of the computer you wish to query")
set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//"& ComputerName &"").ExecQuery("select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
set IPConfigSet = GetObject("localhost")
for each IPConfig in IPConfigSet
if Not IsNull(IPConfig.IPAddress) then
for i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
WScript.Echo "IPAddress: " & IPConfig.IPAddress(i)
next
end if
next
运行方法：
1.将以上代码存为ip.vbs，放到c:\下；
2.进入DOS方式，输入：wscript ip.vbs，在弹出地窗口中输入：localhost
