创新路
我们一直在努力

VBS脚本获取电脑配置信息

介于日常生活中归纳总结电脑配置信息繁复,可以用如下脚本获取,当然更简便的下载个鲁大师就可以了。

根据网上多个VBS函数脚本,再自行修改,得到如下。

只需要新建文本文档,将代码粘贴进去,更改后缀名后即可使用。

以下是创建文件方法:

 

20161202164230

 

 

 

 

 

 

20161202164212-2

 

 

 

 

右键编辑:将以下代码粘贴进去,保存。

‘函数开始
Set wmiService = GetObject(“winmgmts:\\.\root\cimv2”)
Set Items = wmiService.ExecQuery(“Select * From Win32_NetworkAdapter”)
s=””
For Each objItem in Items
If LCase(Left(objItem.PNPDeviceID, 4))=”pci\” Then
Set Its = wmiService.ExecQuery(“Select * From Win32_NetworkAdapterConfiguration where Caption='”& objItem.Caption &”‘”)
For Each It in Its
If not IsNull(It.MACAddress) Then
n=n+1
s=s&”网卡”& n &”:”&vbCrLf _
&”网卡名称:”& It.Caption &vbCrLf _
&”物理地址:”& It.MACAddress &vbCrLf&vbCrLf
If not IsNull(It.IPAddress) Then
s=left(s,len(s)-2)&”IPv4地址:”& It.IPAddress(0) _
& vbCrLf &”IPv6地址:”& It.IPAddress(1) &vbCrLf&vbCrLf ‘以上获取IP,MAC和网卡信息
End If
End If
Next
End If
Next
set wmi=GetObject(“winmgmts:\\.\root\CIMV2”)
set w=wmi.ExecQuery(“select * from win32_processor”) ‘获取CPU信息
a=”CPU名称”
for each i in w
a=a & vbcrlf & i.Name
next
set w=wmi.ExecQuery(“select * from win32_ComputerSystem”) ‘获取内存信息,大小以KB形式保存
a=a & vbcrlf & vbcrlf & “内存大小”
for each i in w
a=a & vbcrlf & i.TotalPhysicalMemory
next
set w=wmi.ExecQuery(“select * from win32_DiskDrive”) ‘获取硬盘信息,大小以KB形式保存
a=a & vbcrlf & vbcrlf & “硬盘大小”
for each i in w
a=a & vbcrlf & i.Size
Next
Set FSO = CreateObject(“Scripting.FileSystemObject”)
set f=fso.opentextfile(“电脑信息.txt”,2,true) ‘将以上信息全部写入文档中
f.write “电脑信息:” & vbcrlf & vbcrlf & a & vbcrlf & s
f.close
msgbox “生成电脑信息”
‘函数结束

 

效果图:(关键信息打码)

 

20161202164212-1

未经允许不得转载:天府数据港官方信息博客 » VBS脚本获取电脑配置信息

客官点个赞呗! (0)
分享到:

评论 抢沙发

评论前必须登录!

天府云博 - 做有态度的开发&运维&设计学习分享平台!

联系我们百度云主机