ss=MsoNormal style=\"MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none\" align=left>获取远程机器
![](/icons/97023de.gif)
Imports
![](/icons/97023System.gif)
Imports
![](/icons/97023System.gif)
Module Module1
Public Sub prefix = st1 ns = \"urn:schemas-microsoft-com:office:smarttags\" />
![](/icons/97023kh.gif)
Dim disk As ManagementObject = New ManagementObject(\"win32_logicaldisk.deviceid=\"\"c:\"\"\")
disk.Get
![](/icons/97023kh.gif)
Console.WriteLine(\"硬盘容量大小(
![](/icons/97023byte.gif)
End Sub
End Module
---------------------------------------------------------------------------------------
获取物理内存大小:
Imports
![](/icons/97023System.gif)
Imports
![](/icons/97023System.gif)
Module Module1
Public Sub
![](/icons/97023kh.gif)
Dim strComputer = \"ComputerName\" ´计算机名
Dim wbemServices, wbemObjectSet, wbemObject
wbemServices = GetObject(\"winmgmts:\\\\\" & strComputer)
wbemObjectSet = wbemServices.InstancesOf(\"Win32_LogicalMemoryConfiguration\")
For Each wbemObject In wbemObjectSet
Console.WriteLine(\"物理内存
![](/icons/97023de.gif)
Next
End Sub
End Module
---------------------------------------------------------------------------------------
获取可用内存大小:
Imports
![](/icons/97023System.gif)
Imports
![](/icons/97023System.gif)
Module Module1
Public Sub
![](/icons/97023kh.gif)
Dim strComputer As String = \".\", i,
![](/icons/97023int.gif)
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
![](/icons/97023int.gif)
![](/icons/97023byte.gif)
Console.WriteLine(\"可用内存大小 (MB): \" &
![](/icons/97023int.gif)
´延时 5 秒
Threading.Thread.Sleep(5000)
Next
Next
End Sub
End Module
---------------------------------------------------------------------------------------
获取服务名:
Imports
![](/icons/97023System.gif)
Imports
![](/icons/97023System.gif)
Module Module1
Public Sub
![](/icons/97023kh.gif)
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
最新评论