几个 WMI 的例子(初级) - 3

原创 2004年02月05日 00:45:00

获取远程机器的目录以及文件信息:<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

Imports System

Imports System.Management

 

Module Module1

    Public Sub <?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" />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

 

---------------------------------------------------------------------------------------

获取服务名:

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_Service")

        For Each wbemObject In wbemObjectSet

            Console.WriteLine("服务名称:" & wbemObject.DisplayName)

            Console.WriteLine("当前状态:" & wbemObject.State)

            Console.WriteLine("启动模式:" & wbemObject.StartMode)

        Next

    End Sub

End Module

理解CMMI 3级过程域非常好的例子

大多从事软件质量保证工作的朋友肯定都接触过CMMI过程域相关的知识(QA角色就是CMMI模型中要求建立的),CMMI是一个庞大的体系,所以深刻理解并不是那么容易,如下一个非常好的例子可以帮助朋友们理解...
  • u011981242
  • u011981242
  • 2015年09月22日 10:56
  • 2968

利用WMI实现远程登录、文件拷贝、建立进程、启动服务

swfwmi.h #ifndef __SW_FACE_CONNON_WMI__ #define __SW_FACE_CONNON_WMI__ #include "swftype.h" namespac...
  • iamherego
  • iamherego
  • 2013年09月11日 17:15
  • 3001

WMI问题全解(Windows管理规范)

问题 1:WMI 是什么,它能帮我做什么? 问题 2: WMI 适用于那些平台? 问题 3:如果 WMI 向外界暴露特定的功能,我如何才能知道? 问题 4:如果 WMI 没有提供我想要的功能,我...
  • whatday
  • whatday
  • 2013年03月16日 10:42
  • 4569

内存溢出之JAVA初学教程3(java初级文件操作例子)

  • 2015年06月19日 09:22
  • 11KB
  • 下载

CSS3:几个例子带你读懂columns多列

CSS3中新出现的多列布局(multi-column)是传统HTML网页中块状布局模式的有力扩充。这种新语法能够让WEB开发人员轻松的让文本呈现多列显示。我们知道,当一行文字太长时,读者读起来就比较费...
  • b954960630
  • b954960630
  • 2017年12月21日 18:10
  • 154

python 操作wmi例子

原文地址:操作wmi例子" style="text-decoration:none; color:rgb(8,68,135)">python 操作wmi例子作者:拔草 Python操作WMI例程...
  • showy_ho
  • showy_ho
  • 2014年07月30日 09:35
  • 1315

vc使用wmi例子

#define _WIN32_DCOM #define _WIN32_WINNT 0X0500 #include #include #include #include "wbemidl....
  • jiftlixu
  • jiftlixu
  • 2012年04月18日 15:31
  • 3092

使用j-Interop实现java连接wmi获取windows系统信息的例子

  • 2014年04月25日 15:58
  • 827KB
  • 下载

linux初级令、经常使用的几个命令

  • 2010年08月13日 11:05
  • 119KB
  • 下载

Android初级开发(四)——布局中的几个常用控件

中午没有睡觉,下午真的困得要死。。。趁着经理还没有给我布置任务,抓紧时间码一下空间与布局的基本知识,借此提提神。。。希望自己不要敲着敲着就睡着啦zzz...
  • qq_28585471
  • qq_28585471
  • 2017年07月31日 13:53
  • 95
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:几个 WMI 的例子(初级) - 3
举报原因:
原因补充:

(最多只允许输入30个字)