VBS经典代码大全Word文档下载推荐.docx

VBS经典代码大全Word文档下载推荐.docx

《VBS经典代码大全Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《VBS经典代码大全Word文档下载推荐.docx（67页珍藏版）》请在冰豆网上搜索。

strComputer&

"

\root\cimv2"

）

SetIPConfigSet=objWMIService.ExecQuery（"

SelectIPAddressfrom

Win32_NetworkAdapterConfigurationWhereIPEnabled=TRUE"

ForEachIPConfiginIPConfigSet

IfNotIsNull（IPConfig.IPAddress）Then

ForEachstrAddressinIPConfig.IPAddress

WScript.EchostrAddress

Next

EndIf

--------------------------------------------------------------------------------

2取得本机计算机名

strComputer="

）

SetcolComputers=objWMIService.ExecQuery（"

Select*fromWin32_ComputerSystem"

ForEachobjComputerincolComputers

Wscript.EchoobjComputer.Name

4检查升级包

SetcolOperatingSystems=objWMIService.ExecQuery（"

Select*from

Win32_OperatingSystem"

ForEachobjOperatingSystemincolOperatingSystems

Wscript.EchoobjOperatingSystem.ServicePackMajorVersion&

objOperatingSystem.ServicePackMinorVersion

5检查HotFix

SetcolQuickFixes=objWMIService.ExecQuery（"

Win32_QuickFixEngineering"

ForEachobjQuickFixincolQuickFixes

Wscript.Echo"

Description:

objQuickFix.Description

HotFixID:

objQuickFix.HotFixID

6检查本地管理员数目

SetobjNetwork=CreateObject（"

Wscript.Network"

strComputer=objNetwork.ComputerName

SetobjGroup=GetObject（"

WinNT:

//"

/Administrators,group"

ForEachobjUserinobjGroup.Members

Wscript.EchoobjUser.Name

7磁盘系统

SetcolDisks=objWMIService.ExecQuery（"

Select*fromWin32_LogicalDiskWhere

DriveType=3"

ForEachobjDiskincolDisks

Diskdrive:

&

objDisk.DeviceID&

--"

objDisk.FileSystem

8检测自动登录是否开启

ConstHKEY_LOCAL_MACHINE=&

H80000002

SetobjReg=GetObject（"

\root\default:

StdRegProv"

strKeyPath="

Software\Microsoft\WindowsNT\CurrentVersion\WinLogon"

strValueName="

AutoAdminLogon"

objReg.GetDWORDValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

IfdwValue=1Then

Autologonisenabled."

Else

Autologonisdisabled."

9关闭自动登录

dwValue=0

oReg.SetDWORDValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

-------------------------------------------------------------------------

10检查Guest是否禁用

SetobjUser=GetObject（"

/Guest"

IfobjUser.AccountDisabledThen

　Wscript.Echo"

TheGuestaccountisdisabled."

TheGuestaccountisenabled."

11关闭Guest

TheGuestaccountisalreadydisabled."

objUser.AccountDisabled=True

objUser.SetInfo

TheGuestaccounthasbeendisabled."

12检索本地共象

\\"

SetcolShares=objWMIService.ExecQuery（"

Select*fromWin32_Share"

ForeachobjShareincolShares

Name:

objShare.Name

Path:

objShare.Path

Type:

objShare.Type

13脚本检索一个文件夹下.txt文件汗哦值得学习

SetobjWMIService=GetObject（"

\\.\root\cimv2"

SetcolFiles=objWMIService.ExecQuery（"

SELECT*FROMCIM_DataFileWHEREPath=

'

\\DocumentsandSettings\\Administrator\\桌面\\'

ANDD