|
下面收集了一些例子；
获取本地硬盘的信息：
Imports System
Imports System.Management
Module Module1
Public Sub Main()
Dim disk As ManagementObject = New ManagementObject("win32_logicaldisk.deviceid=""c:""")
disk.Get()
Console.WriteLine("Logical disk size is " + disk("Size").ToString + " bytes")
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 System
Imports System.Management
Module Module1
Public Sub Main()
Dim co As ConnectionOptions = New ConnectionOptions
co.Username = "Admin"''''登录的用户名称
co.Password = "12345678"''''Password
Dim ms As System.Management.ManagementScope = New System.Management.ManagementScope("\\192.168.1.2\root\cimv2", co)
Dim oq As System.Management.ObjectQuery = New System.Management.ObjectQuery("SELECT * FROM Win32_OperatingSystem")
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.ToString())
Next
End Sub
End Module
---------------------------------------------------------------------------------------
建立一个进程：
Imports System
Imports System.Management
Module Module1
Public Sub Main()
Dim processClass As ManagementClass = New ManagementClass("Win32_Process")
Dim inParams As ManagementBaseObject = processClass.GetMethodParameters("Create")
inParams("CommandLine") = "calc.exe"
&nb [1] [2] 下一页
[办公软件]使用TRIMMEAN函数去除几个最高分和几个最低分之后… [操作系统]几个常用的DOS网络命令详解
[网络技术]常被宽带共享上网用户关注的几个问题 [电脑技术]衡量CPU性能的几个参数指标介绍
[电脑技术]使用扫描仪的几个常规高级技巧 [电脑技术]使用电子邮件EMail应注意的几个问题
[VB.NET程序]VB.NET下通过WMI共享文件夹 [VB.NET程序]几个 WMI 的例子（初级） - 1
[VB.NET程序]几个 WMI 的例子（初级） - 3 [VB.NET程序]几个 WMI 的例子（初级） - 4
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
