|
获取远程机器的目录以及文件信息：
Imports System
Imports System.Management
Module Module1
Public Sub Main()
Dim disk As ManagementObject = New ManagementObject("win32_logicaldisk.deviceid=""c:""")
disk.Get()
Console.WriteLine("硬盘容量大小（bytes）： " & disk("Size"))
End Sub
End Module
---------------------------------------------------------------------------------------
获取物理内存大小：
Imports System
Imports System.Management
Module Module1
Public Sub Main()
Dim strComputer = "ComputerName" ''''计算机名
Dim wbemServices, wbemObjectSet, wbemObject
wbemServices = GetObject("winmgmts:\\" & strComputer)
wbemObjectSet = wbemServices.InstancesOf("Win32_LogicalMemoryConfiguration")
For Each wbemObject In wbemObjectSet
Console.WriteLine("物理内存的大小 （kb）：" & wbemObject.TotalPhysicalMemory)
Next
End Sub
End Module
---------------------------------------------------------------------------------------
获取可用内存大小：
Imports System
Imports System.Management
Module Module1
Public Sub Main()
Dim strComputer As String = ".", i, intValue As Integer
Dim colItems, objWMIService, objItem
objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
''''重复执行 20 次检查
For i = 1 To 20
''''产生内存快照
colItems = objWMIService.ExecQuery("Select * From Win32_PerfRawData_PerfOS_Memory")
For Each objItem In colItems
intValue = objItem.AvailableMbytes
Console.WriteLine("可用内存大小 （MB）： " & intValue )
''''延时 5 秒
Threading.Thread.Sleep(5000)
Next
Next
End Sub
End Module
---------------------------------------------------------------------------------------
获取服务名：
[1] [2] 下一页
[办公软件]使用TRIMMEAN函数去除几个最高分和几个最低分之后… [操作系统]几个常用的DOS网络命令详解
[网络技术]常被宽带共享上网用户关注的几个问题 [电脑技术]衡量CPU性能的几个参数指标介绍
[电脑技术]使用扫描仪的几个常规高级技巧 [电脑技术]使用电子邮件EMail应注意的几个问题
[VB.NET程序]VB.NET下通过WMI共享文件夹 [VB.NET程序]几个 WMI 的例子（初级） - 1
[VB.NET程序]几个 WMI 的例子（初级） - 2 [VB.NET程序]几个 WMI 的例子（初级） - 4
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
