ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 372|回复: 13

[原创] JSA利用FileSystem和Shell获取主机名,ip地址,id名,开机时间等信息

[复制链接]

TA的精华主题

TA的得分主题

发表于 2024-11-4 09:17 | 显示全部楼层 |阅读模式
一,准备工作:

1,将WPS版本升级至18608版本或以上
2,点击最左上角的"文档"
3,点击右边的"设置"
4,在"设置中心"里将"沙箱保护"关闭(如果不关闭,无法Shell)
5,关闭WPS客户端,再重新打开.

二,开始获取信息:
1,先运行writeToRange函数,这样可以将所有systeminfo保存在工作表中,不用每次都Shell
2,然后再运行main函数,就可以得到name 、id 和 ip以及其他你想要的信息

在FileSystem出现以前,是Shell配合Kill使用的,但是如果路径不存在,kill会报错,因此,需要try和catch包裹,现在有了FileSystem.Remove(path)就方便多了,如果路径存在,就删除,返回值为true,如果路径不存在,不操作也不报错,返回值为false。(返回值可以设置变量接收,也可以不接收)
1.png
2.png
3.png

get systeminfo.rar

8.99 KB, 下载次数: 19

评分

2

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-11-4 09:22 | 显示全部楼层
本人的其他帖子:
JSA加载前端流行库之一(lodash库)(附详细说明)
https://club.excelhome.net/thread-1696573-1-1.html
JSA加载前端流行库之二(ramda库)
https://club.excelhome.net/thread-1696617-1-1.html
JSA加载前端流行库之三(dayjs库)
https://club.excelhome.net/thread-1696930-1-1.html
JSA加载前端流行库之四(QRcode库),自己DIY二维码
https://club.excelhome.net/thread-1698154-1-1.html
JSA加载前端流行库之五(calendar库),实现阴阳历转换,天干地支,生肖,节气,星座的查询
https://club.excelhome.net/thread-1698477-1-1.html
JSA加载前端流行库之六(pinyin-pro库),具有将汉字转换为拼音等功能
https://club.excelhome.net/thread-1698767-1-1.html
JSA加载前端流行库之七(Chance.js库),随机数字,字符串,名字,城市,日期,地址,邮箱等
https://club.excelhome.net/thread-1699454-1-1.html
JSA加载前端流行库之八(danfo.js库),模拟python的pandas库
https://club.excelhome.net/thread-1702468-1-1.html
JSA网抓图片并保存至本地电脑的方法
https://club.excelhome.net/thread-1697161-1-1.html
JSA在不打开表格的情况下读取里面的数据(真正的不打开表,而不是打开后再隐藏)
https://club.excelhome.net/thread-1697707-1-1.html
JSA模拟会员功能将表格中指定单元格导出为图片至桌面
https://club.excelhome.net/thread-1698068-1-1.html
JSA在不用fetch及wget的情况下网抓多张图片并聚合成一张图片然后导出至桌面
https://club.excelhome.net/thread-1698071-1-1.html
JSA制作一个周易八卦起卦解卦系统
https://club.excelhome.net/thread-1700973-1-1.html
内外网隔离的电脑在无网络的情况下,不使用蓝牙及usb,通过手机摄像头对手机传输数据
https://club.excelhome.net/thread-1701087-1-1.html
FileSystem各种方法初探(2024年秋季更新 18608版本及以后版本)
https://club.excelhome.net/thread-1704117-1-1.html
18608版本及以后版本的表格、文档、PPT的互操作(组件通信)
https://club.excelhome.net/thread-1704317-1-1.html
利用FileSystem的方法递归遍历指定文件夹的所有层级文件(另有Value的另类用法)
https://club.excelhome.net/thread-1704539-1-1.html
JSA自定义一个打印函数,让数组等数据结构在调试时更清晰.
https://club.excelhome.net/thread-1705080-1-1.html
JSA利用FileSystem和Shell获取主机名,ip地址,id名,开机时间等信息
https://club.excelhome.net/thread-1705176-1-1.html

TA的精华主题

TA的得分主题

发表于 2024-11-4 09:24 | 显示全部楼层
原来沙箱保护的原因,其他 shell systemifo来搞定吧

TA的精华主题

TA的得分主题

发表于 2024-11-5 06:38 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-11-5 08:27 | 显示全部楼层
重新上传一下压缩包

get systeminfo.rar

8.99 KB, 下载次数: 5

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-11-5 15:23 | 显示全部楼层
这是一个class版本
class版本.png

get systeminfo(class版本).rar

9.28 KB, 下载次数: 5

TA的精华主题

TA的得分主题

发表于 2024-11-6 08:48 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-11-6 17:54 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

我这边不报错。
你可以把这句删了,换成DoEvents()试试

TA的精华主题

TA的得分主题

发表于 2024-11-6 18:23 | 显示全部楼层
spaghetti8 发表于 2024-11-6 17:54
我这边不报错。
你可以把这句删了,换成DoEvents()试试

谢谢指点,遗憾的是还不能正常运行

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-11-6 18:45 | 显示全部楼层
xd3210 发表于 2024-11-6 18:23
谢谢指点,遗憾的是还不能正常运行

重写一个,再看看
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-21 16:34 , Processed in 0.039509 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表