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

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


配置.jpg (325.47 KB, 下载次数: 0)
下载附件
2023-5-11 11:12 上传

脚本运行界面如下:


1.jpg (15.97 KB, 下载次数: 0)
下载附件
2023-5-11 11:13 上传



2.jpg (10.24 KB, 下载次数: 0)
下载附件
2023-5-11 11:13 上传



3.jpg (10.03 KB, 下载次数: 0)
下载附件
2023-5-11 11:14 上传



4.jpg (12.26 KB, 下载次数: 0)
下载附件
2023-5-11 11:14 上传



5.jpg (9.39 KB, 下载次数: 0)
下载附件
2023-5-11 11:14 上传



6.jpg (9.14 KB, 下载次数: 0)
下载附件
2023-5-11 11:14 上传



7.jpg (13.37 KB, 下载次数: 0)
下载附件
2023-5-11 11:14 上传

链接:https://pan.baidu.com/s/1MQB_WC9VGxt3DHpCMTZwgQ?pwd=pn7b
提取码:pn7b
--来自百度网盘超级会员V9的分享
小弟还差34积分就能升级,希望大家点赞收藏一下,不胜感激!
最终呈现的效果是在文件夹目录下生成一个J0001.CSV的文件,文件内容如图所示:


快照1.jpg (113.14 KB, 下载次数: 0)
下载附件
2023-5-11 11:28 上传

下载次数, 下载附件

tonekey2016
OP
  


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

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


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

是的 没采集显示器的信息
tonekey2016
OP
  


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

Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")
不过抓取不到 显示器的品牌,采集到的信息只有“通用即插即用监视器”
tonekey2016
OP
  


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

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

感谢分享,厉害了
scdianb   

很不错了!
toml   

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

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

谢谢分享
您需要登录后才可以回帖 登录 | 立即注册

返回顶部