vbs经典代码手册

vbs经典代码手册

ID:47106082

大小:255.50 KB

页数:47页

时间:2019-08-04

vbs经典代码手册_第1页
vbs经典代码手册_第2页
vbs经典代码手册_第3页
vbs经典代码手册_第4页
vbs经典代码手册_第5页
资源描述:

《vbs经典代码手册》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、VBS代码片断大全[一]1VBS取得本机IPstrComputer="."SetobjWMIService=GetObject("winmgmts:"&strComputer&"rootcimv2")SetIPConfigSet=objWMIService.ExecQuery("SelectIPAddressfromWin32_NetworkAdapterConfigurationWhereIPEnabled=TRUE")ForEachIPConfiginIPConfigSetIfNotIsNull(IPConfig.IPAddress)ThenForEachstrAddre

2、ssinIPConfig.IPAddressWScript.EchostrAddressNextEndIfNext--------------------------------------------------------------------------------2取得本机计算机名strComputer="."SetobjWMIService=GetObject("winmgmts:"&strComputer&"rootcimv2")SetcolComputers=objWMIService.ExecQuery("Select*fromWin32_ComputerS

3、ystem")ForEachobjComputerincolComputersWscript.EchoobjComputer.NameNext--------------------------------------------------------------------------------4检查升级包strComputer="."SetobjWMIService=GetObject("winmgmts:"&strComputer&"rootcimv2")SetcolOperatingSystems=objWMIService.ExecQuery("Select*f

4、romWin32_OperatingSystem")ForEachobjOperatingSystemincolOperatingSystemsWscript.EchoobjOperatingSystem.ServicePackMajorVersion&"."&objOperatingSystem.ServicePackMinorVersionNext--------------------------------------------------------------------------------5检查HotFixstrComputer="."SetobjWMIServ

5、ice=GetObject("winmgmts:"&strComputer&"rootcimv2")SetcolQuickFixes=objWMIService.ExecQuery("Select*fromWin32_QuickFixEngineering")ForEachobjQuickFixincolQuickFixesWscript.Echo"Description:"&objQuickFix.DescriptionWscript.Echo"HotFixID:"&objQuickFix.HotFixIDNext------------------------------

6、--------------------------------------------------6检查本地管理员数目SetobjNetwork=CreateObject("Wscript.Network")strComputer=objNetwork.ComputerNameSetobjGroup=GetObject("WinNT://"&strComputer&"/Administrators,group")ForEachobjUserinobjGroup.MembersWscript.EchoobjUser.NameNext-------------------------

7、-------------------------------------------------------7磁盘系统strComputer="."SetobjWMIService=GetObject("winmgmts:"&strComputer&"rootcimv2")SetcolDisks=objWMIService.ExecQuery("Select*fromWin32_LogicalDiskWhereDriveType=3")ForEachobjDi

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。