使用VBS脚本自动获取本地计算机的硬件信息

                                                                             

    复制以下文本到新的文本文件，修改文本文件名《获取员工电脑配置信息.vbs》 双击vbs脚本文件，可以获取本地计算机的硬件信息。

 

ON ERROR RESUME Next

MsgBox"本操作为采集公司办公设备，请大家积极配合，" & Chr(13) & Chr(10) & "认真填写你所在部门和姓名," & Chr(13) & Chr(10) & "有问题请联系技术部,谢谢合作",vbYes, "众成公司计算机盘点系统"

Temp = 0

Set WSHNetwork = WScript.CreateObject("WScript.Network")

ComputerName = WSHNetwork.ComputerName

While Dept=""

Dept=InputBox("请输入你所在的部门:","提示")

Wend

While Name=""

Name=InputBox("请输入你名字:","提示")

Wend

While Showq=""

Showq=InputBox("请输入你电脑显示器的型号:" & Chr(13) & Chr(10) & "例：方正17纯平，方正17液晶 等","提示")

Wend

TempFiles = ".\" &Dept&"-"&Name& ComputerName &".txt"

Set FSO = CreateObject("Scripting.FileSystemObject")

Set TempFile = FSO.CreateTextFile(TempFiles)

strComputer = "."

Set objWMIService = Getobject("winmgmts:\\" & strComputer & "\root\cimv2")

Set CPU = objWMIService.ExecQuery("Select * From Win32_Processor")

For Each Item In CPU

CPU2 = "CPU:" & Item.Name

Next

Set Board = objWMIService.ExecQuery("Select * From Win32_BaseBoard")

For Each Item In Board

Board2 = "主板: " & Item.Product

Next

Set colItems = objWMIService.ExecQuery("Select * From Win32_PhysicalMemory",,48)

For Each objItem In colItems

A = objItem.Capacity/1048576

Temp = temp+objItem.Capacity

N = N+1

Next

Memory = Temp/1048576

If N = 1 Then

Memory2 = "内存: " & N & "条" & A & "M"

Else

Memory2 = "内存: " & N & "条" & A & "M" &" 总计" & Memory & "M"

End If

Set Video = objWMIService.ExecQuery("Select * From Win32_VideoController",,48)

For Each Item In Video

Video2 = "显卡: " & Item.Description

Next

Set Disk = objWMIService.ExecQuery("Select * From Win32_DiskDrive")

For Each Item In Disk

Disk2 = Disk2 & Item.Model & " "

Next

Disk3 = "硬盘: " & Trim(Disk2)

Set Network = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = true")

For Each Item In Network

Lan = "网卡: " & Item.Description

Next

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)

IP = IP & IPConfig.IPAddress(i) & " "

Next

End If

Next

IP = "IP: " & Trim(IP)

Set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")

For Each Item In mc

If Item.IPEnabled=True Then

Mac=Mac & Item.MacAddress & " "

End If

Next

Mac = "MAC: " & Trim(Mac)

Name = "姓名: "&Name

Dept = "部门: "&Dept

Showq = "显示器: "&Showq

TempFile.WriteLine("==============请将以下信息全部复制粘贴出来=========")

TempFile.WriteLine(Dept)

TempFile.WriteLine(Name)

TempFIle.WriteLine(Showq)

TempFile.WriteLine(CPU2)

TempFile.WriteLine(Board2)

TempFile.WriteLine(Memory2)

TempFile.WriteLine(Video2)

TempFile.WriteLine(Disk3)

TempFile.WriteLine(Lan)

TempFile.WriteLine(IP)

TempFile.WriteLine(mac)

TempFile.WriteLine("==============请将以上信息全部复制粘贴出来=========")

TempFile.Close

MsgBox "信息已经生成,请将文本内容发送法务通或QQ给我们，谢谢合作",vbYes," 温州市众成企业有限公司"

 

    将以上信息复制保存《获取员工电脑配置信息.vbs》运行后就会在当前脚本下生成本地计算机配置:

                     

 

参考来源：https://buluo.qq.com/p/detail.html?bid=279063&pid=7357354-1483062580

 

下载此文档：使用VBS脚本自动获取本地计算机的硬件信息（金超超）   类型：docx,   大小：205 KB