电脑配置采集并导出（用于资产统计）支持单机和网络存放

tonekey2016

由于工作需求需要对1000台以上的电脑做资产统计并导出excel，内容还要记录使用科室、使用人、出厂日期、过保日期等等，苦于无奈想偷懒只能编辑了个vbs脚本自动采集，此版本分单机版和网络版本。

注：运行的编号必须是5位数，多一个和少一个脚本会自动退出
脚本源码如下：

[Asm] 纯文本查看 复制代码

ON ERROR RESUME NEXT
Temp = 0
Set WSHNetwork = WScript.CreateObject("WScript.Network")

T1:

UserName =InputBox("本工具用来收集终端硬件信息，不涉及任何个人及企业数据，请输入标签编号，计算机应以J开头的5位编码，打印机以D开头的5位编码", "请输入：")
    if len(UserName)<>5 then WScript.Quit(0)

depatment =InputBox("请输入部门信息", "请输入：")
UserName1 =InputBox("请输入使用人的工号", "请输入：")
position =InputBox("请输入位于的楼号信息", "请输入：")
position1 =InputBox("请输入位于的楼层信息", "请输入：")
position2 =InputBox("请输入位于的房间信息", "请输入：")
TempFiles ="\\155.155.1.173\shares\zctj\"& UserName &".csv"
'网络路径请设置"\\155.155.1.173\shares\zctj\Local\"
printername =InputBox("请输入连接的打印机型号，多台打印机可用 | 分割，不能是逗号", "请输入：")
set wshshell=wscript.createobject("wscript.shell")
wshshell.run ("%comspec% /c regsvr32 /s scrrun.dll"),0,True
wshshell.run ("%comspec% /c sc config  winmgmt start= auto"),0,True
wshshell.run ("%comspec% /c net start winmgmt"),0
Set WshNetwork = WScript.Createobject("WScript.Network")
computername=WshNetwork.ComputerName

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 = Item.Name
Next
 
Set Board = objWMIService.ExecQuery("Select * From Win32_BaseBoard")
For Each Item In Board
Board2 = Item.Manufacturer
Board3 = Item.serialnumber
if Item.serialnumber="" then Board3 =InputBox("无法自动获得主机SN，请输入主机SN", "请输入：")

Next
 
Set colItems = objWMIService.ExecQuery("Select * From Win32_PhysicalMemory")
For Each objItem In colItems
A = objItem.Capacity/1073741824
Temp = temp+objItem.Capacity
N = N+1
Next
Memory = Temp/1073741824

Memory2 = Memory


Set Disk = objWMIService.ExecQuery("Select * From Win32_DiskDrive")
For Each Item In Disk
Disk2 = Disk2 & Item.Model & "("& Round(Item.Size/1000000000) & "G)   "
Next
Disk3 = Trim(Disk2)

Function GetIPMAC(ComputerName) 
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
  GetIPMAC = objAddress & "," & objItem.MACAddress
  Exit For
 End If  
 Next
 Exit For
Next
End Function

Set os = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") 
For Each Item in os
os= Item.Caption
Next
Set colItems = objWMIService.ExecQuery("Select * from Win32_VideoController", , 48)
 J = 0
    For Each objItem In colItems
     If J = 0 Then video2 =   (Trim(objItem.Caption) & (objItem.VideoModeDescription)) Else video3 =    (Trim(objItem.Caption) & (objItem.VideoModeDescription))
    J = J + 1
	Video2 = "Video Card:" & Item.Description
Next
Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS", , 48)
	For Each objItem In colItems
	OpDate=objItem.ReleaseDate
	OpDate1=left(OpDate,8)
Next

Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem",,48)
	For Each objItem in colItems
	Model=objItem.Model
Next

Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS", , 48)
	For Each objItem in colItems
	SSN=objItem.SerialNumber
Next
leixin="台式机"

TempFile.WriteLine("编号,部门,用户,楼号,楼层,房间号,打印机,计算机名,操作系统,处理器,内存,磁盘,IP地址,MAC地址,显卡,制造厂商,序列号,型号,出厂日期,类型,采集时间")
TempFile.WriteLine(UserName&","&depatment&","&UserName1&","&position&","&position1&","&position2&","&printername&","&computername&","&os&","&CPU2&","&Memory2&","&Disk3&","&GetIPMAC(".")&","&Video2&video3&","&Board2&","&SSN&","&Model&","&OpDate1&","&leixin&","&now())
TempFile.Close

set ws=createobject("wscript.shell")
ws.run TempFiles,x,ture

脚本运行界面如下：



链接：https://pan.baidu.com/s/1MQB_WC9VGxt3DHpCMTZwgQ?pwd=pn7b
提取码：pn7b
--来自百度网盘超级会员V9的分享

小弟还差34积分就能升级，希望大家点赞收藏一下，不胜感激！


最终呈现的效果是在文件夹目录下生成一个J0001.CSV的文件，文件内容如图所示：

tonekey2016

mokjf 发表于 2023-5-11 11:47
我这边是先把计算机的配置和信息都做好，然后mac做唯一，后面电脑再怎么挪，只要他进网了，我就能找到他 ...

我这里的客户是 交换机上绑定mac地址，然后准入平台准入

tonekey2016

weiyepin 发表于 2023-5-11 13:30
不能采集显示器的信息

是的 没采集显示器的信息

tonekey2016

weiyepin 发表于 2023-5-11 13:36
有无相关参数能获取显示器信息？

Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")

不过抓取不到 显示器的品牌，采集到的信息只有“通用即插即用监视器”

tonekey2016

bachelor66 发表于 2023-5-11 11:41
多硬盘的怎么办？

自动抓 我们测试过了 目前对多硬盘 可能会存在数据表格偏移现象，偶发的

gqc58

感谢分享，厉害了

scdianb

很不错了！

toml

大公司很实用啊，经常要做固定资产统计

mokjf

大佬厉害，对于你的脚本我想说一下，如果能做个自动获取的就更好，毕竟单位什么人有，到最后还是你一台台去弄的，
PS：1000台计算机做个方案买软件才是一劳永逸的方法

tonekey2016

mokjf 发表于 2023-5-11 11:32
大佬厉害，对于你的脚本我想说一下，如果能做个自动获取的就更好，毕竟单位什么人有，到最后还是你一台台去 ...

卓管软件可以做到自动统计，前提是要有人先做好标准然后后面维护的时候不要乱写，当时用这个的原因是对比卓管的资产统计里面少很多关键字，数据不完整或者数据不对，所以重新对1000台电脑逐步地毯式排摸

bachelor66

多硬盘的怎么办？                             

zdmboot

不错的，试用一下。。。。。。

lubmail

可以 这个要收藏  谢谢