vbs获取IP地址
来源:互联网 发布:sqlserver无法新建表 编辑:程序博客网 时间:2024/04/30 08:47
Set WshNetwork = WScript.CreateObject("WScript.Network")
cName = WshNetwork.ComputerName '取本机计算机名
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("" & cName & ".txt",ForAppending,True)
objTextFile.Write("计算机名:"&cName&",")
objTextFile.Write("IP:"&GetIP(".")&",")
objTextFile.Write(formatdatetime(now,1)&",")
objTextFile.Write(time&",")
objTextFile.Close
Function GetIP(ComputerName) '取本机IP
Dim objWMIService,colItems,objItem,objAddress
Set objWMIService = GetObject("winmgmts:\\" & ComputerName & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objItem in colItems
For Each objAddress in objItem.IPAddress
If objAddress <> "" then
GetIP = objAddress
Exit For
End If
Next
Next
End Function
cName = WshNetwork.ComputerName '取本机计算机名
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("" & cName & ".txt",ForAppending,True)
objTextFile.Write("计算机名:"&cName&",")
objTextFile.Write("IP:"&GetIP(".")&",")
objTextFile.Write(formatdatetime(now,1)&",")
objTextFile.Write(time&",")
objTextFile.Close
Function GetIP(ComputerName) '取本机IP
Dim objWMIService,colItems,objItem,objAddress
Set objWMIService = GetObject("winmgmts:\\" & ComputerName & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objItem in colItems
For Each objAddress in objItem.IPAddress
If objAddress <> "" then
GetIP = objAddress
Exit For
End If
Next
Next
End Function
- vbs获取IP地址
- 通过vbs获取本机IP地址和MAC地址
- 通过vbs获取本机IP地址和MAC地址
- VBS 获取本机IP地址、IE版本
- VBS笔记, IP地址切换
- VBS 从指定 DNS 获取给定域名(Domain)的 IP 地址
- 用vbs脚本修改IP地址
- VBS教程:获取本机网卡地址
- 获取客户端IP地址
- 获取IP地址!
- 获取IP地址
- 获取IP地址
- 获取对方ip地址
- 获取 IP 地址
- 获取客户端ip地址
- asp获取ip地址
- php获取ip 地址
- 获取IP地址
- 苹果设计主管换人:乔布斯拟物风格或被放弃
- 学会一个人伤感。习惯一个人寂寞
- android 修改自带DatePickerDialog的“设置”、“取消”
- XCode 相对目录
- windows回调函数
- vbs获取IP地址
- :Hibernate中常见问题 No row with the given identifier exists问题的原因及解决 .
- java 类的使用
- 好网站值得收藏
- Dotfuscator Professional Edition 4.9. 使用教程
- Java中ArrayList与HashMap的遍历
- 编程语言选择
- 3.5 标识名和变量的作用域
- Extjs Combobox通过Dom获取ValueField和DisplayField