VBS获取硬件信息

' ScriptCryptor Project Options Begin
' HasVersionInfo: Yes
' Companyname: 凯瑟影工作室
' Productname: 凯瑟盘点软件
' Filedescription: 汉狮设备盘点使用
' Copyrights: 
' Trademarks: 
' Originalname: 凯瑟盘点软件
' Comments: 
' Productversion:  1. 0. 0. 0
' Fileversion:  1. 0. 0. 0
' Internalname: 凯瑟软件
' Appicon: ..\..\..\..\Program Files (x86)\DingDing\logo.ico
' AdministratorManifest: No
' ScriptCryptor Project Options End

' 标题
MsgBox "北京汉狮设备盘点使用   制作人:Jason凯伊"

'请输入您的姓名  
While Name=""
 Name=InputBox("请输入你中文名字:","盘点信息-姓名")
 Wend

' 请输入所在部门 例子：

While Dept=""
 Dept=InputBox("请输入你所在的部门:","盘点信息-部门")
 Wend
 

 
' 请输入您有几台电脑
while PC=""
PC=InputBox("请输入办公电脑数量 ，例子：1台 ","盘点信息-电脑数量")
Wend

'请输入您除了电脑，其他设备
While other=""
other=InputBox("请输入其他型号名称 例子：显示器、USB转接器、移动硬盘等，如果没有，填写没有或者否即可","盘点信息-其他设备")
Wend

' 输出文件格式

Files =".\\" &Dept&"-"&Name&".txt"
Set fso = CreateObject("scripting.filesystemobject")
Set Files = fso.CreateTextfile(Files,true)

Set wmi=GetObject("winmgmts:") 

Set board = wmi.Instancesof("win32_baseboard")
for Each b in board
msg =msg& "设备型号: " 
msg = msg+b.Product
product = msg
next 
msg=msg&Chr(13)&Chr(13)

Set sn = wmi.Instancesof("win32_bios")
for Each s in sn
msg = msg&"BIOS序列号：" 
msg = msg+s.SerialNumber
bios = msg
next
msg=msg&Chr(13)&Chr(13)

Set cpu = wmi.Instancesof("win32_processor")
for each u in cpu
msg = msg&"CPU型号： "
msg = msg+u.Name
Processor = msg
next

msg=msg&Chr(13)&Chr(13)

Set mem = wmi.Instancesof("win32_computersystem")
for Each m in mem
msg = msg&"内存总容量 ："
msg = msg& Round((m.totalphysicalmemory/1024^3),2)&"G"
next
msg=msg&Chr(13)&Chr(13)

Set disks=wmi.instancesof("win32_diskdrive") 
For Each d In disks 
n= Round(d.size/(1024^3),2)&"G" 
msg = msg&"硬盘总容量："
msg = msg+n
diskdrive = msg
Next 

msg=msg&Chr(13)&Chr(13)

Set display = wmi.Instancesof("win32_videocontroller")
for Each video in display
msg = msg&"显卡型号 ："
msg = msg +video.name
controller = msg
next
msg=msg&Chr(13)&Chr(13)

Set system =wmi.Instancesof("win32_OperatingSystem")
for Each sys in system
msg = msg&"系统版本 :"
msg = msg+sys.version
Operation = msg
next

msg=msg&Chr(13)&Chr(13)&chr(13)

msg = msg&"所在部门 ："
msg = msg+Dept

msg=msg&Chr(13)

msg = msg&"提交姓名 ："
msg = msg+Name
msg=msg&Chr(13)&Chr(13)&chr(13)&chr(13)&chr(13)&chr(13)
msg = chr(13)&msg& "请点击确定"

'输出结果

   
    Name = "姓名: "&Name
    Dept = "部门: "&Dept
    PC = "电脑数量: "&PC
    Other = "其他设备: "& other&chr(13)&chr(13)
    
    
Files.WriteLine(Dept)
Files.WriteLine(Name)
Files.WriteLine(PC)
Files.WriteLine(Other)
Files.WriteLine(Operation)

Files.close

MsgBox msg,0,"盘点设备预览表" 
MsgBox "盘点信息资料已经生成，请小伙伴动动手指，将生成的文件发送给张凯毅 ^_^"