- 浏览: 11787 次
最新评论
VBS脚本
- 博客分类:
- 技术杂绘
VBS脚本
2011年10月01日
2 取得本机计算机名
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colComputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
Wscript.Echo objComputer.Name
Next
4 检查升级包
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
Wscript.Echo objOperatingSystem.ServicePackMajorVersion & "." &
objOperatingSystem.ServicePackMinorVersion
Next
5 检查 Hot Fix
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colQuickFixes = objWMIService.ExecQuery ("Select * from Win32_QuickFixEngineering")
For Each objQuickFix in colQuickFixes
Wscript.Echo "Description: " & objQuickFix.Description
Wscript.Echo "Hot Fix ID: " & objQuickFix.HotFixID
Next
6 检查本地管理员数目
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators,group")
For Each objUser in objGroup.Members
Wscript.Echo objUser.Name
Next
7 磁盘系统
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery("Select * from Win32_LogicalDisk Where DriveType =
3")
For Each objDisk in colDisks
Wscript.Echo "Disk drive: "& objDisk.DeviceID & " -- " & objDisk.FileSystem
Next
8 检测自动登录是否开启
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objReg=GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\WinLogon"
strValueName = "AutoAdminLogon"
objReg.GetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName,dwValue
If dwValue = 1 Then
Wscript.Echo "Auto logon is enabled."
Else
Wscript.Echo "Auto logon is disabled."
End If
9 关闭自动登录
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objReg=GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\WinLogon"
strValueName = "AutoAdminLogon"
dwValue = 0
oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue
10 检查Guest是否禁用
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Set objUser = GetObject("WinNT://" & strComputer & "/Guest")
If
11 关闭Guest
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Set objUser = GetObject("WinNT://" & strComputer & "/Guest")
If objUser.AccountDisabled Then
Wscript.Echo "The Guest account is already disabled."
Else
objUser.AccountDisabled = True
objUser.SetInfo
Wscript.Echo "The Guest account has been disabled."
End If
12 检索本地共象
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colShares = objWMIService.ExecQuery("Select * from Win32_Share")
For each objShare in colShares
Wscript.Echo "Name: " & objShare.Name
Wscript.Echo "Path: " & objShare.Path
Wscript.Echo "Type: " & objShare.Type
Next
13 脚本检索一个文件夹下.txt文件 汗哦 值得学习
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colFiles = objWMIService.ExecQuery("SELECT * FROM CIM_DataFile WHERE Path = '\\Documents
and Settings\\Administrator\\桌面\\' AND Drive = 'E:' AND Extension = 'txt'")
Wscript.Echo "Number of .txt files found: " & colFiles.Count
for each aa in colFiles
NL=NL & vbcrlf & aa.name
next
Wscript.Echo NL
发表评论
-
安静运行批处理的vbs脚本
2012-01-19 13:28 567安静运行批处理的vbs脚本 2011年04月17日 1、 ... -
VBS脚本播放器
2012-01-19 13:28 618VBS脚本播放器 2011年11月25日 'author ... -
VBS脚本自动登录集合
2012-01-19 13:28 588VBS脚本自动登录集合 2011年03月29日 VBS脚 ... -
我的手机设置
2012-01-17 03:18 1579我的手机设置 2010年10 ... -
【★装机必备☆精品推荐★】绿叶GHOSTXP SP3快速装机版 2010.12 NTFS
2012-01-17 03:18 614【★装机必备☆精品推荐★】绿叶GHOSTXP SP3快速装机版 ... -
网管自学手册2
2012-01-17 03:18 633网管自学手册2 2010年06月15日 进阶篇:尽力熟悉 ... -
智能机那些事儿――第九讲 硬件
2012-01-17 03:18 776智能机那些事儿――第 ... -
GHOST XP SP3快速装机版
2012-01-17 03:18 583GHOST XP SP3快速装机版 2011年07月19日 ... -
我很温柔~
2012-01-16 01:52 565我很温柔~ 2011年12月06 ... -
欠揍的货
2012-01-16 01:52 517欠揍的货 2009年10月13日 ... -
标准东北话
2012-01-16 01:52 627标准东北话 2010年02月03 ... -
谨以此文献给我大学的朋友和兄弟
2012-01-16 01:52 515谨以此文献给我大学的 ... -
咱东北话的测试、、
2012-01-16 01:52 692咱东北话的测试、、 2010年07月27日 A卷(四级考 ... -
寻找异常退出终端上的进程
2012-01-11 01:47 809寻找异常退出终端上的进程 2011年09月01日 个别t ... -
notes on 'expert oracle'-no.4: memory areas-chenjianjx的专栏-iteye技术网站
2012-01-11 01:47 391notes on 'expert oracle'-no.4: ... -
一对一关联关系的使用-开心就好-iteye技术网站
2012-01-11 01:46 377一对一关联关系的使用- ... -
个税计算器-骑老虎放羊-iteye技术网站
2012-01-11 01:46 423个税计算器-骑老虎放羊-iteye技术网站 2011年09月 ... -
修改网上的jsp+ajax 进度条中的错误-学习笔记-iteye技术网站
2012-01-11 01:46 355修改网上的jsp+ajax 进度条中的错误-学习笔记-itey ...
相关推荐
wincc vbs脚本手册 西门子 组态 脚本
VBS实例 44个 vbs脚本实例, VBS取QQ-TM号码的自动登录命令行.vbs 妙用脚本清除电脑中的痕迹.vbs 后台字典文件管理器.vbs 定时关机.vbs 列出管理工具集.vbs 旁注查询工具.vbs 中文姓名笔画计算(VBS脚本版).vbs ...
Qt工程,c++代码调用vbs脚本函数,一个很简单的demo,参考学习
WinCC常用的C脚本和VBS脚本对变量进行置位,复位,取反,读写变量;
VBS脚本运行库手册之一(磁盘操作) VBS脚本运行库手册之二(磁盘操作) VBS脚本运行库手册之三(管理文件夹) VBS脚本运行库手册之四(管理文件夹) VBS脚本运行库手册之五(文件夹属性) VBS脚本运行库手册之...
wincc VBS脚本加密破解
helloworld vbs 脚本hellohelloworld vbs 脚本world vbs 脚本helloworld vbs 脚本helloworld vbs 脚本helloworld vbs 脚本
vbs脚本,设置默认打印机, 服务器管理员可以用于用户登录后指定默认打印机.
TIA Portal WinCC Engineering V17 – VBS脚本编程参考手册
WINCC中使用VBS脚本读写SQLServer数据库文件WINCC中使用VBS脚本读写SQLServer数据库文件WINCC中使用VBS脚本读写SQLServer数据库文件WINCC中使用VBS脚本读写SQLServer数据库文件
vbs脚本手册
VBS VBSCRIPT 脚本 VBS脚本入门教程5 <br>大家如果觉得好,可以到我站来看看。 email:kelonre@tom.com<br>msn:kelonre@tom.com<br>QQ:53163108 (请注明申请斑竹字样) 本站QQ群号:31686490;12647825(新群)...
Vbs脚本编程简明教程Vbs脚本编程简明教程Vbs脚本编程简明教程Vbs脚本编程简明教程Vbs脚本编程简明教程
windows常用bat/vbs脚本合集,2017年06月09日版本
我个人认为Vbs脚本其实就是一种计算机编程语言,但是由于缺少计算机程序设计语言中的部分要素,对于事件的描述能力较弱,所以称为脚本,它最方便的地方就是提供了对COM对象的简便支持。那么什么是COM对象呢?
c#(winform)调用VBS脚本 c#(winform)调用VBS脚本
博途V15 wincc使用VBS脚本添加删除趋势曲线,文件为添加删除曲线脚本
TIA博途WINCC中通过VBS脚本执行向文件中读写数据的具体操作步骤
VBS脚本管理 本地连接 的网卡 禁用 启用.结合计划任务可实现对网卡的定时禁用启用功能和切换连接。
VBS脚本实例,用来判断指定的进程是否存在,关闭指定的进程,打开执行的程序