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 .Management
Module 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(\"硬盘容量大小(s): \" & disk(\"Size\"))
End Sub
End Module
---------------------------------------------------------------------------------------
获取物理内存大小:
Imports
Imports .Management
Module Module1
Public Sub
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
Imports .Management
Module Module1
Public Sub
Dim strComputer As String = \".\", i, Value 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
Value = objItem.AvailableMs
Console.WriteLine(\"可用内存大小 (MB): \" & Value )
´延时 5 秒
Threading.Thread.Sleep(5000)
Next
Next
End Sub
End Module
---------------------------------------------------------------------------------------
获取服务名:
Imports
Imports .Management
Module Module1
Public Sub
Dim strComputer = \" ComputerName\"
Dim wbemServices, wbemObjectSet, wbemObject
wbemServices = GetObject(\"winmgmts:\\\\\" & strComputer)
wbemObjectSet = wbemServices.InstancesOf(\"Win32_Service\")
For Each wbemObject In wbemObjectSet
Console.WriteLine(\"服务名称:\" & wbemObject.DisplayName)
Console.WriteLine(\"当前状态:\" & wbemObject.State)
Console.WriteLine(\"启动模式:\" & wbemObject.StartMode)
Next
End Sub
End Module
最新评论