VBS经典代码大全 - 360文档中心

合集下载

相关主题

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

VBS代码片断大全[一]

1 VBS

取得本机IP

strComputer = "."

Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2")

Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from

Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

For Each IPConfig in IPConfigSet

If Not IsNull(IPConfig.IPAddress) Then

For Each strAddress in IPConfig.IPAddress

WScript.Echo strAddress

2 取得本机计算机名

strComputer = "."

Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2")

Set colComputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")

For Each objComputer in colComputers

Wscript.Echo

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

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

6 检查本地管理员数目

Set objNetwork = CreateObject("work")

strComputer = puterName

Set objGroup = GetObject("" & strComputer & "/Administrators,group")

For Each objUser in objGroup.Members

Wscript.Echo

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

8 检测自动登录是否开启

Const HKEY_LOCAL_MACHINE = &H

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 = &H

strComputer = "."

Set objReg=GetObject("winmgmts:\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\WinLogon" strValueName = "AutoAdminLogon"

dwValue = 0