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