VBS代码片断大全[一]1 VBS取得本机IPstrComputer = "."Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2")Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress fromWin32_NetworkAdapterConfiguration Where IPEnabled=TRUE")For Each IPConfig in IPConfigSetIf Not IsNull(IPConfig.IPAddress) ThenFor Each strAddress in IPConfig.IPAddressWScript.Echo strAddressNextEnd IfNext--------------------------------------------------------------------------------2 取得本机计算机名strComputer = "."Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2")Set colComputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")For Each objComputer in colComputersWscript.Echo Next--------------------------------------------------------------------------------4 检查升级包strComputer = "."Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2")Set colOperatingSystems = objWMIService.ExecQuery("Select * fromWin32_OperatingSystem")For Each objOperatingSystem in colOperatingSystemsWscript.Echo objOperatingSystem.ServicePackMajorVersion & "." & objOperatingSystem.ServicePackMinorVersionNext--------------------------------------------------------------------------------5 检查Hot FixstrComputer = "."Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2")Set colQuickFixes = objWMIService.ExecQuery ("Select * fromWin32_QuickFixEngineering")For Each objQuickFix in colQuickFixesWscript.Echo "Description: " & objQuickFix.DescriptionWscript.Echo "Hot Fix ID: " & objQuickFix.HotFixIDNext--------------------------------------------------------------------------------6 检查本地管理员数目Set objNetwork = CreateObject("work")strComputer = puterNameSet objGroup = GetObject("" & strComputer & "/Administrators,group")For Each objUser in objGroup.MembersWscript.Echo 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 colDisksWscript.Echo "Disk drive: "& objDisk.DeviceID & " -- " & objDisk.FileSystemNext--------------------------------------------------------------------------------8 检测自动登录是否开启Const HKEY_LOCAL_MACHINE = &HstrComputer = "."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 ThenWscript.Echo "Auto logon is enabled."ElseWscript.Echo "Auto logon is disabled."End If--------------------------------------------------------------------------------9 关闭自动登录Const HKEY_LOCAL_MACHINE = &HstrComputer = "."Set objReg=GetObject("winmgmts:\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\WinLogon" strValueName = "AutoAdminLogon"dwValue = 0oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue-------------------------------------------------------------------------10 检查Guest是否禁用Set objNetwork = CreateObject("work")strComputer = puterNameSet objUser = GetObject("" & strComputer & "/Guest")If objUser.AccountDisabled ThenWscript.Echo "The Guest account is disabled."ElseWscript.Echo "The Guest account is enabled."End If-------------------------------------------------------------------------11 关闭GuestSet objNetwork = CreateObject("work")strComputer = puterNameSet objUser = GetObject("" & strComputer & "/Guest")If objUser.AccountDisabled ThenWscript.Echo "The Guest account is already disabled."ElseobjUser.AccountDisabled = TrueobjUser.SetInfoWscript.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 colSharesWscript.Echo "Name: " & Wscript.Echo "Path: " & objShare.PathWscript.Echo "Type: " & objShare.TypeNext--------------------------------------------------------------------------------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.Countfor each aa in colFilesNL=NL & vbcrlf & nextWscript.Echo NL作者：2005-4-21 19:39 回复此发言--------------------------------------------------------------------------------14 我如何向用户显示一个用来选择文件的对话框？问：嗨，Scripting Guy！有没有什么方法可以让我使用脚本向用户显示一个对话框，供用户选择文件使用？-- BF答：您好，BF。