autoit调用WMI（下）

autoit · 发表于 2008-5-3 14:19:54

<table border="0" style="table-layout: fixed"><tbody><tr><td><div class="cnt">八、WMI的应用这一节将主要分类举出WMI应用的例子，不过暂时不会涉及WMI事件。No.1.计算机硬件<blockquote dir="ltr" style="margin-right: 0px">1.查看可用的物理内存你可以使用<a href="http://msdn2.microsoft.com/en-us/library/aa394239.aspx">Win32_OperatingSystem</a>类和FreePhysicalMemory属性.<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $objWMIService = ObjGet("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & $strComputer & "\root\cimv2") $colSettings = $objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem") For $objOperatingSystem in $colSettings ConsoleWrite( "可用物理内存: " & _ $objOperatingSystem.FreePhysicalMemory ) Next</blockquote>2.判断计算机是否有DVD驱动器使用<a href="http://msdn2.microsoft.com/en-us/library/aa394081.aspx">Win32_CDROMDrive</a>类下的Name或者DeviceID属性。<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $objWMIService = ObjGet("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & $strComputer & "\root\cimv2") $colItems = $objWMIService.ExecQuery _ ("Select * from Win32_CDROMDrive") For $objItem in $colItems ConsoleWrite( "Device ID: " & $objItem.DeviceID &@CRLF _ & "Description: " & $objItem.Description &@CRLF _ & "Name: " & $objItem.Name &@CRLF &@CRLF) Next</blockquote>3.检查系统信息处理器数目使用<a href="http://msdn2.microsoft.com/en-us/library/aa394102.aspx">Win32_ComputerSystem</a>类下的NumberOfProcessors属性.<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $objWMIService = ObjGet("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & $strComputer & "\root\cimv2") $colSettings = $objWMIService.ExecQuery _ ("Select * from Win32_ComputerSystem") For $objComputer in $colSettings ConsoleWrite( "System Name: " & $objComputer.Name & @CRLF ) ConsoleWrite( "Number of Processors: " & _ $objComputer.NumberOfProcessors ) Next</blockquote>4.检查PCMCIA接口数量使用<a href="http://msdn2.microsoft.com/en-us/library/aa394251.aspx">Win32_PCMCIAController</a>类下的 Count 属性<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2") $colItems = $objWMIService.ExecQuery("Select * from Win32_PCMCIAController") ConsoleWrite( "Number of PCMCIA slots: " _ & $colItems.Count)</blockquote>5.列出没有工作的硬件你可以使用 <a href="http://msdn2.microsoft.com/en-us/library/aa394353.aspx">Win32_PnPEntity</a> 类，然后通过使用<a href="http://msdn2.microsoft.com/en-us/library/aa392902.aspx">WQL</a> 查询 WHERE ConfigManagerErrorCode <> 0 来判断<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2") $colItems = $objWMIService.ExecQuery _ ("Select * from Win32_PnPEntity " _ & "WHERE ConfigManagerErrorCode <> 0") For $objItem in $colItems ConsoleWrite( "Class GUID: " & $objItem.ClassGuid & @CRLF ) ConsoleWrite( "Description: " & $objItem.Description & @CRLF ) ConsoleWrite( "Device ID: " & $objItem.DeviceID & @CRLF ) ConsoleWrite( "Manufacturer: " & $objItem.Manufacturer & @CRLF ) ConsoleWrite( "Name: " & $objItem.Name & @CRLF ) ConsoleWrite( "PNP Device ID: " & $objItem.PNPDeviceID & @CRLF ) ConsoleWrite( "Service: " & $objItem.Service & @CRLF & @CRLF ) Next</blockquote>6.列出所有鼠标的信息使用 <a href="http://msdn2.microsoft.com/en-us/library/aa394356.aspx">Win32_PointingDevice</a> 类，这样会列出所有指针设备，而不仅仅是鼠标<blockquote dir="ltr" style="margin-right: 0px">.$strComputer = "." $objWMIService = ObjGet( _ "winmgmts:\\" & $strComputer & "\root\cimv2") $colItems = $objWMIService.ExecQuery( _ "Select * from Win32_PointingDevice") For $objItem in $colItems ConsoleWrite( "Description: " & $objItem.Description & @CRLF ) ConsoleWrite( "Device ID: " & $objItem.DeviceID & @CRLF ) ConsoleWrite( "Device Interface: " _ & $objItem.DeviceInterface & @CRLF ) ConsoleWrite( "Double Speed Threshold: " _ & $objItem.DoubleSpeedThreshold & @CRLF ) ConsoleWrite( "Handedness: " & $objItem.Handedness & @CRLF ) ConsoleWrite( "Hardware Type: " & $objItem.HardwareType & @CRLF ) ConsoleWrite( "INF File Name: " & $objItem.InfFileName & @CRLF ) ConsoleWrite( "INF Section: " & $objItem.InfSection & @CRLF ) ConsoleWrite( "Manufacturer: " & $objItem.Manufacturer & @CRLF ) ConsoleWrite( "Name: " & $objItem.Name & @CRLF ) ConsoleWrite( "Number Of Buttons: " _ & $objItem.NumberOfButtons & @CRLF ) ConsoleWrite( "PNP Device ID: " & $objItem.PNPDeviceID & @CRLF ) ConsoleWrite( "Pointing Type: " & $objItem.PointingType & @CRLF ) ConsoleWrite( "Quad Speed Threshold: " _ & $objItem.QuadSpeedThreshold & @CRLF ) ConsoleWrite( "Resolution: " & $objItem.Resolution & @CRLF ) ConsoleWrite( "Sample Rate: " & $objItem.SampleRate & @CRLF ) ConsoleWrite( "Synch: " & $objItem.Synch & @CRLF & @CRLF ) Next</blockquote>7.判断计算机是台式机还是笔记本使用 <a href="http://msdn2.microsoft.com/en-us/library/aa394474.aspx">Win32_SystemEnclosure</a> 类下的 ChassisType 属性<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $objWMIService = ObjGet("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & $strComputer & "\root\cimv2") $colChassis = $objWMIService.ExecQuery _ ("Select * from Win32_SystemEnclosure") For $objChassis in $colChassis For $objItem in $objChassis.ChassisTypes ConsoleWrite( "Chassis Type: " & $objItem & @CRLF ) Next Next</blockquote>8.检查USB接口里插入的是什么设备使用 <a href="http://msdn2.microsoft.com/en-us/library/aa394506.aspx">Win32_USBHub</a> 类并检查 Description 属性<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2") $colItems = $objWMIService.ExecQuery( _ "Select * from Win32_USBHub") For $objItem in $colItems ConsoleWrite( "Device ID: " & $objItem.DeviceID & @CRLF ) ConsoleWrite( "PNP Device ID: " _ & $objItem.PNPDeviceID & @CRLF ) ConsoleWrite( "Description: " _ & $objItem.Description & @CRLF & @CRLF ) Next</blockquote>9.检查系统有多少Tape设备使用 <a href="http://msdn2.microsoft.com/en-us/library/aa394491.aspx">Win32_TapeDrive</a> 类然后使用 <a href="http://msdn2.microsoft.com/en-us/library/aa393763.aspx">Count</a> 途径<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $objWMIService = ObjGet("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & $strComputer & "\root\cimv2") $colItems = $objWMIService.ExecQuery( _ "Select * from Win32_TapeDrive") ConsoleWrite( "Number of tape drives: " _ & $colItems.Count & @CRLF )</blockquote></blockquote>No.2.计算机软件<blockquote dir="ltr" style="margin-right: 0px">1.卸载软件如果软件是使用Microsoft Windows Installer (MSI) 安装的话，使用 <a href="http://msdn2.microsoft.com/en-us/library/aa394378.aspx">Win32_Product</a> 类和 <a href="http://msdn2.microsoft.com/en-us/library/aa393941.aspx">Uninstall</a> 途径<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $objWMIService = ObjGet("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & $strComputer & "\root\cimv2") $colSoftware = $objWMIService.ExecQuery _ ("Select * from Win32_Product " _ & "Where Name = 'Personnel database'") For $objSoftware in $colSoftware $objSoftware.Uninstall() Next</blockquote>2.列出全部的已安装的软件如果软件是使用Microsoft Windows Installer (MSI) 安装的话，使用 <a href="http://msdn2.microsoft.com/en-us/library/aa394378.aspx">Win32_Product</a> 类<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $objWMIService = ObjGet("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & $strComputer & "\root\cimv2") $colSoftware = $objWMIService.ExecQuery _ ("Select * from Win32_Product") For $objSoftware in $colSoftware ConsoleWrite( "Name: " & $objSoftware.Name & @CRLF ) ConsoleWrite( "Version: " & $objSoftware.Version & @CRLF & @CRLF ) Next</blockquote>3.检查用户安装的Microsoft Office的版本使用 <a href="http://msdn2.microsoft.com/en-us/library/aa394378.aspx">Win32_Product</a> 类下的 Version 属性<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $objWMIService = ObjGet("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & $strComputer & "\root\cimv2") $colSoftware = $objWMIService.ExecQuery("Select * from Win32_Product " & _ "Where IdentifyingNumber =" _ & " '{90280409-6000-11D3-8CFE-0050048383C9}'") For $objItem in $colSoftware ConsoleWrite( "Name: " & $objItem.Name & @CRLF ) ConsoleWrite( "Version: " & $objItem.Version & @CRLF & @CRLF ) Next</blockquote></blockquote>No.3.桌面管理<blockquote dir="ltr" style="margin-right: 0px">1.判断系统是否启动在安全模式的网络状态下下使用 <a href="http://msdn2.microsoft.com/en-us/library/aa394102.aspx">Win32_ComputerSystem</a> 类并检查 PrimaryOwnerName 属性.<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $objWMIService = ObjGet("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & $strComputer & "\root\cimv2") $colSettings = $objWMIService.ExecQuery _ ("Select * from Win32_ComputerSystem") For $objComputer in $colSettings ConsoleWrite( "System Name: " _ & $objComputer.Name & @CRLF ) ConsoleWrite( "Registered owner: " _ & $objComputer.PrimaryOwnerName & @CRLF ) Next</blockquote>2.检查屏幕保护是否需要密码使用 <a href="http://msdn2.microsoft.com/en-us/library/aa394121.aspx">Win32_Desktop</a> 类并检查 ScreenSaverSecure 属性.<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2") $colItems = $objWMIService.ExecQuery("Select * from Win32_Desktop") For $objItem in $colItems ConsoleWrite( "Screen Saver Secure: " _ & $objItem.ScreenSaverSecure & @CRLF ) Next</blockquote>3.获取屏幕分辨率使用 <a href="http://msdn2.microsoft.com/en-us/library/aa394122.aspx">Win32_DesktopMonitor</a> 类并检查 ScreenHeight 和 ScreenWidth 属性.<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2") $colItems = $objWMIService.ExecQuery( "Select * from Win32_DesktopMonitor") For $objItem in $colItems ConsoleWrite( "Screen Height: " _ & $objItem.ScreenHeight & @CRLF ) ConsoleWrite( "Screen Width: " _ & $objItem.ScreenWidth & @CRLF ) Next</blockquote>4.获取系统开机的时间使用 <a href="http://msdn2.microsoft.com/en-us/library/aa394239.aspx">Win32_OperatingSystem</a> 类的 LastBootUpTime 属性. <blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $objWMIService = ObjGet("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & $strComputer & "\root\cimv2") $colOperatingSystems = $objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem") For $objOS in $colOperatingSystems ConsoleWrite( $objOS.LastBootUpTime) Next</blockquote>.5.重启或关闭远程计算机使用 <a href="http://msdn2.microsoft.com/en-us/library/aa394239.aspx">Win32_OperatingSystem</a> 类以及 <a href="http://msdn2.microsoft.com/en-us/library/aa394058.aspx">Win32Shutdown</a> 途径<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "atl-dc-01" $objWMIService = ObjGet("winmgmts:" _ & "{impersonationLevel=impersonate,(Shutdown)}!\\" & _ $strComputer & "\root\cimv2") $colOperatingSystems = $objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem") For $objOperatingSystem in $colOperatingSystems $ObjOperatingSystem.Shutdown(1) Next</blockquote>6.检查开机自启动项使用 <a href="http://msdn2.microsoft.com/en-us/library/aa394464.aspx">Win32_StartupCommand</a> 类<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $objWMIService = ObjGet("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & $strComputer & "\root\cimv2") $colStartupCommands = $objWMIService.ExecQuery _ ("Select * from Win32_StartupCommand") For $objStartupCommand in $colStartupCommands ConsoleWrite( "Command: " & $objStartupCommand.Command & @CRLF _ & "Description: " & $objStartupCommand.Description & @CRLF _ & "Location: " & $objStartupCommand.Location & @CRLF _ & "Name: " & $objStartupCommand.Name & @CRLF _ & "SettingID: " & $objStartupCommand.SettingID & @CRLF _ & "User: " & $objStartupCommand.User & @CRLF & @CRLF ) Next</blockquote></blockquote>

fugui0814 · 发表于 2009-5-3 00:52:45

DDDDDDDDDD

okbak02 · 发表于 2009-5-3 14:18:28

zhch3022 · 发表于 2010-8-19 17:26:01

学习了，谢谢。楼主

lamlp · 发表于 2010-8-27 17:21:29

顶！！！！
学习下

yiruirui · 发表于 2010-8-31 13:11:55

搞成一本书，发表一下吧！

nbmpe · 发表于 2010-9-2 23:12:33

有用,不错.

nbmpe · 发表于 2010-9-2 23:16:06

看了,不错,找下上册

fengzr · 发表于 2010-9-5 01:13:40

看看 ok

		自动登录	找回密码
密码			加入