陈晓猫

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: :: 管理 ::

2017年2月17日

卸载搜狗浏览器
摘要： 搜狗浏览器没有提供卸载快捷方式，从控制面板调用太慢了，写了个VBS脚本实现： Dim msg msg = MsgBox("卸载搜狗浏览器，确定要卸载吗？", vbOKCancel + vbExclamation, "运行脚本确认") If msg = vbOK ThenDim oFSO, oFold 阅读全文
posted @ 2017-02-17 10:55 陈晓猫 阅读(449) 评论(0) 推荐(0) 编辑

禁止光盘优盘自动播放（Shell Hardware Detection服务）
摘要： strComputer = "."Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")Set colServiceList = objWMIService.ExecQuery ("Select * fro 阅读全文
posted @ 2017-02-17 08:59 陈晓猫 阅读(1359) 评论(0) 推荐(0) 编辑