在Autoit中使用WMI：第四部分-『中文资料』-AUTOIT CN

autoit 发表于 2008-5-3 14:19:49

在Autoit中使用WMI：第四部分

八、续接WMI的应用No.4.进程<blockquote dir="ltr" style="margin-right: 0px">1.检查系统同时运行了多少个au3脚本使用 <a href="http://msdn2.microsoft.com/en-us/library/aa394372.aspx">Win32_Process</a> 类并找出名字为AutoIt3.exe的进程.<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $objWMIService = ObjGet( _ "winmgmts:\\" & $strComputer & "\root\CIMV2") $colItems = $objWMIService.ExecQuery( _ "SELECT * FROM Win32_Process" & _ " WHERE Name = 'AutoIt3.exe'") For $objItem in $colItems ConsoleWrite( "-------------------------------------------" & @CRLF ) ConsoleWrite( "CommandLine: " & $objItem.CommandLine & @CRLF ) ConsoleWrite( "Name: " & $objItem.Name & @CRLF & @CRLF ) Next</blockquote>2.修改进程的优先权使用 <a href="http://msdn2.microsoft.com/en-us/library/aa394372.aspx">Win32_Process</a> 类和 <a href="http://msdn2.microsoft.com/en-us/library/aa393587.aspx">SetPriority </a>途径<blockquote dir="ltr" style="margin-right: 0px">Const $ABOVE_NORMAL = 32768 $strComputer = "." $objWMIService = ObjGet("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & $strComputer & "\root\cimv2") $colProcesses = $objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = 'Notepad.exe'") For $objProcess in $colProcesses $objProcess.SetPriority($ABOVE_NORMAL) Next</blockquote>3.列出每个进程所占用的内存使用 <a href="http://msdn2.microsoft.com/en-us/library/aa394372.aspx">Win32_Process</a> 类和诸如 KernelModeTime, WorkingSetSize, PageFileUsage, 与 PageFaults 的属性<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $objWMIService = ObjGet("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & $strComputer & "\root\cimv2") $colProcesses = $objWMIService.ExecQuery _ ("Select * from Win32_Process") For $objProcess in $colProcesses ConsoleWrite( "Process: " & $objProcess.Name & @CRLF ) $sngProcessTime = (String($objProcess.KernelModeTime) + _ String($objProcess.UserModeTime)) / 10000000 ConsoleWrite( "Processor Time: " & $sngProcessTime & @CRLF ) ConsoleWrite( "Process ID: " & $objProcess.ProcessID & @CRLF ) ConsoleWrite( "Working $Size: " _ & $objProcess.WorkingSetSize & @CRLF ) ConsoleWrite( "Page File Size: " _ & $objProcess.PageFileUsage & @CRLF) ConsoleWrite( "Page Faults: " & $objProcess.PageFaults & @CRLF & @CRLF ) Next</blockquote></blockquote>No.5.磁盘和文件系统<blockquote dir="ltr" style="margin-right: 0px">1.列出每个用户所占用的磁盘空间使用 <a href="http://msdn2.microsoft.com/en-us/library/aa394136.aspx">Win32_DiskQuota</a> 类和 User 以及 DiskSpaceUsed 属性.<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $objWMIService = ObjGet("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & $strComputer & "\root\cimv2") $colQuotas = $objWMIService.ExecQuery _ ("Select * from Win32_DiskQuota") For $objQuota in $colQuotas ConsoleWrite( "Volume: "& @Tab _ & $objQuota.QuotaVolume & @CRLF ) ConsoleWrite( "User: "& @Tab & $objQuota.User & @CRLF ) ConsoleWrite( "Disk Space Used: " _ & @Tab & $objQuota.DiskSpaceUsed & @CRLF ) Next</blockquote>2.检查软驱里是否有软盘使用 <a href="http://msdn2.microsoft.com/en-us/library/aa394173.aspx">Win32_LogicalDisk</a> 类并检查 FreeSpace 属性<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $objWMIService = ObjGet( _ "winmgmts:\\" & $strComputer & "\root\cimv2") $colItems = $objWMIService.ExecQuery _ ("Select * From Win32_LogicalDisk Where DeviceID = 'A:'") For $objItem in $colItems $intFreeSpace = $objItem.FreeSpace If $intFreeSpace = "" Then ConsoleWrite( "There is no disk in the floppy drive." & @CRLF ) Else ConsoleWrite( "There is a disk in the floppy drive." & @CRLF ) EndIf Next</blockquote>3.判断磁盘是否为可移动驱动器使用 <a href="http://msdn2.microsoft.com/en-us/library/aa394173.aspx">Win32_LogicalDisk</a> 类并检查 DriveType 属性.<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $objWMIService = ObjGet("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & $strComputer & "\root\cimv2") $colDisks = $objWMIService.ExecQuery _ ("Select * from Win32_LogicalDisk") For $objDisk in $colDisks ConsoleWrite( "DeviceID: "& @Tab _ & $objDisk.DeviceID & @CRLF ) Switch $objDisk.DriveType Case 1 ConsoleWrite( "No root directory. " _ & "Drive type could not be " _ & "determined." & @CRLF ) Case 2 ConsoleWrite( "DriveType: "& @Tab _ & "Removable drive." & @CRLF ) Case 3 ConsoleWrite( "DriveType: "& @Tab _ & "Local hard disk." & @CRLF ) Case 4 ConsoleWrite( "DriveType: "& @Tab _ & "Network disk." & @CRLF ) Case 5 ConsoleWrite( "DriveType: "& @Tab _ & "Compact disk." & @CRLF ) Case 6 ConsoleWrite( "DriveType: "& @Tab _ & "RAM disk." & @CRLF ) Case Else ConsoleWrite( "Drive type could not be" _ & " determined." & @CRLF ) EndSwitch Next</blockquote>4.检查驱动器的文件系统类型使用 <a href="http://msdn2.microsoft.com/en-us/library/aa394173.aspx">Win32_LogicalDisk</a> 类和 FileSystem 属性.<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $objWMIService = ObjGet("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & $strComputer & "\root\cimv2") $colDisks = $objWMIService.ExecQuery _ ("Select * from Win32_LogicalDisk") For $objDisk in $colDisks ConsoleWrite( "DeviceID: " & $objDisk.DeviceID & @CRLF ) ConsoleWrite( "File System: " _ & $objDisk.FileSystem & @CRLF ) Next</blockquote>5.检查磁盘的可用空间使用 <a href="http://msdn2.microsoft.com/en-us/library/aa394173.aspx">Win32_LogicalDisk</a> 类和 FreeSpace 属性.<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $objWMIService = ObjGet("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & $strComputer & "\root\cimv2") $colDisks = $objWMIService.ExecQuery _ ("Select * from Win32_LogicalDisk") For $objDisk in $colDisks ConsoleWrite( "DeviceID: " & $objDisk.DeviceID & @CRLF ) ConsoleWrite( "Free Disk Space: " _ & $objDisk.FreeSpace & @CRLF ) Next</blockquote>6.进行磁盘整理使用 <a href="http://msdn2.microsoft.com/en-us/library/aa394515.aspx">Win32_Volume</a> 类和 <a href="http://msdn2.microsoft.com/en-us/library/aa389832.aspx">Defrag</a> 途径.<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $objWMIService = ObjGet("winmgmts:\\" _ & $strComputer & "\root\cimv2") $colVolumes = $objWMIService.ExecQuery ("Select * from Win32_Volume Where Name = 'K:\\'") For $objVolume in $colVolumes $errResult = $objVolume.Defrag() Next</blockquote></blockquote>No.6.网络<blockquote dir="ltr" style="margin-right: 0px">1.禁用网络连接使用 <a href="http://msdn2.microsoft.com/en-us/library/aa394217.aspx">Win32_NetworkAdapterConfiguration</a> 和 <a href="http://msdn2.microsoft.com/en-us/library/aa393047.aspx">ReleaseDHCPLease</a> 途径.<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2") $colNetCards = $objWMIService.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration " _ & "Where IPEnabled = True";) For $objNetCard in $colNetCards $objNetCard.ReleaseDHCPLease() Next</blockquote>2.得到适配器信息使用 <a href="http://msdn2.microsoft.com/en-us/library/aa394217.aspx">Win32_NetworkAdapterConfiguration</a> 类.<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $objWMIService = ObjGet( _ "winmgmts:\\" & $strComputer & "\root\cimv2") $IPConfigSet= $objWMIService.ExecQuery ("Select IPAddress from Win32_NetworkAdapterConfiguration" _ & " where IPEnabled=TRUE") For $IPConfig in $IPConfigSet If Not $IPConfig.IPAddress Then For $i=0 To UBound($IPConfig.IPAddress) ConsoleWrite( $IPConfig.IPAddress( $i) & @CRLF ) Next EndIf Next</blockquote></blockquote>

UID 发表于 2008-12-16 11:23:53

:face (34):这么好的文章没人顶

askask150 发表于 2008-12-18 04:38:27

:face (29):搞定谢谢作者

lantu 发表于 2009-1-13 10:10:36

收藏，不断学习中

还有没有续集啊

foolbyrd 发表于 2009-10-13 20:50:21

学习了，谢谢LZ

汲水先生 发表于 2009-10-22 14:51:54

收藏，不断学习中

还有没有续集啊

871224 发表于 2009-10-30 10:13:36

顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶

chinaxx 发表于 2011-4-19 09:55:21

这个东西好

页: [1]

AUTOIT CN's Archiver

在Autoit中使用WMI：第四部分