ss=MsoNormal style=\"MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none\" align=left>下面收集了
些例子； prefix = o ns = \"urn:schemas-microsoft-com:office:office\" />获取本地硬盘
信息:Imports
Imports
.ManagementModule Module1
Public Sub prefix = st1 ns = \"urn:schemas-microsoft-com:office:smarttags\" />
Dim disk As ManagementObject = New ManagementObject(\"win32_logicaldisk.deviceid=\"\"c:\"\"\")
disk.Get
Console.WriteLine(\"Logical disk size is \" + disk(\"Size\").
+ \" 
s\")End Sub
End Module
驱动器类型disk(“DriveType”):
Value=2
Value=3
Value=4
Value=5
Value=6
Floppy disk
Hard disk
network drive
CDROM
RAM Disk
---------------------------------------------------------------------------------------
从新启动远程计算机:(需要权限)
Imports
Imports
.ManagementModule Module1
Public Sub
Dim co As ConnectionOptions = New ConnectionOptions
co.Username = \"Admin\"´登录
用户名称co.Password = \"12345678\"´Password
Dim ms As
.Management.ManagementScope = New .Management.ManagementScope(\"\\\\192.168.1.2\\root\\cimv2\", co)Dim oq As
.Management.ObjectQuery = New .Management.ObjectQuery(\"SELECT * FROM Win32_Operating\")
Dim mos As ManagementObjectSearcher = New ManagementObjectSearcher(ms, oq)
Dim _query As ManagementObjectCollection = mos.Get
Dim mo As ManagementObject
For Each mo In _query
Dim tmp
As String = {\"\"}mo.InvokeMethod(\"Reboot\", tmp)
Console.WriteLine(mo.
)Next
End Sub
End Module
---------------------------------------------------------------------------------------
建立
个进程:Imports
Imports
.ManagementModule Module1
Public Sub
Dim processClass As ManagementClass = New ManagementClass(\"Win32_Process\")
Dim inParams As ManagementBaseObject = processClass.GetMethodParameters(\"Create\")
inParams(\"CommandLine\") = \"calc.exe\"
Dim outParams As ManagementBaseObject = processClass.InvokeMethod(\"Create\", inParams, Nothing)
Console.WriteLine(\"Creation of calculator process
ed: \" + outParams(\"value\"))Console.WriteLine(\"进程 ID:\" & outParams(\"processId\"))
End Sub
End Module
结束
个进程:Imports
Imports
.ManagementModule Module1
Public Sub
Dim service As ManagementObject = New ManagementObject(\"win32_service=\"\"winmgmt\"\"\")
Dim options As InvokeMethodOptions = New InvokeMethodOptions
options.Timeout = New TimeSpan(0, 0, 0, 5)
Dim outParams As ManagementBaseObject = service.InvokeMethod(\"StopService\", Nothing, options)
Console.WriteLine(\"状态:\" & outParams(\"Returnvalue\"))
End Sub
End Module
最新评论