Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

这是从微软上范例....

因为...通常都是用建立物件的函式. ..

访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容

传回档案中的 ActiveX 物件的引用。
语法
GetObject([pathname] [, class])
     
GetObject 函数的语法包含下面几个指名引数：
单元      描述

pathname      选择性的；Variant (String)。包含待撷取物件的档案的完整路径和名称。如果省略 pathname，则 class 是必要的。
class      选择性的；Variant (String)。代表该物件的物件类别的字串。
     
其中，class 引数的语法格式为 appname.objecttype，且语法具有以下几个单元：
单元      描述

appname      必要的；Variant (String)。提供该物件的应用程式名称。
objecttype      必要的；Variant (String)。待建立物件的型态或物件类别。
     
请注意
使用 GetObject 函数可以存取档案中的 ActiveX 物件，而且可以将该物件指定给物件变数。您可以使用 Set 陈述式将 GetObject 传回的物件指定给物件变数。例如：
Dim CADObject As Object
Set CADObject = GetObject("C:\CAD\SCHEMA.CAD")
     
当执行上述程式码时，就会启动与指定的 pathname 相关连的应用程式，同时启动指定档案中的物件。
如果 pathname 是一个长度为零的字串 ("")，则 GetObject 传回指定型态的新的物件执行个体。如果省略了 pathname 引数，则 GetObject 传回指定型态的目前使用中物件。如果目前没有指定型态的物件，就会产生错误。
有些应用程式允许只启动档案的一部份，其方法是在档案名称后加上一个惊叹号 (!) 以及用于识别想要启动的档案部份的字串。关于如何建立这种字串的资讯，请参阅有关应用程式建立物件的文件。
例如，在绘图应用程式中，一个存放在档案中的图可能有多层。可以使用下述程式码来启动图中被称为 SCHEMA.CAD 的某一层：
Set LayerObject = GetObject("C:\CAD\SCHEMA.CAD!Layer3")
     
如果不指定物件的 class，则 Automation 会根据所提供的档案名称，来确定被启动的应用程式以及被启动的物件。不过，有些档案可能不止支援一种物件物件类别。例如，图片可能支援三种不同型态的物件：Application 物件，Drawing 物件，以及 Toolbar 物件，所有这些都是同一个档案中的一部份。为了描述要具体启动档案中的哪种物件，就应使用这个选择性的 class 引数。例如：
Dim MyObject As Object
Set MyObject = GetObject("C:\DRAWINGS\SAMPLE.DRW", "FIGMENT.DRAWING")
     
在上述范例中，FIGMENT 是一个绘图应用程式的名称，而 DRAWING 则是它支援的一种物件型态。
物件被启动之后，就可以在程式码中使用所宣告的物件变数来引用它。在前面的范例中，可以使用物件变数 MyObject 来存取这个新物件的属性和方法。例如：
MyObject.Line 9, 90
MyObject.InsertText 9, 100, "Hello, world."
MyObject.SaveAs "C:\DRAWINGS\SAMPLE.DRW"
     
附注   当系统中有物件目前既存的执行个体，或是要建立已载入的档案的物件时，就使用 GetObject 函数。如果物件目前还没有执行个体，或是不想启动已载入档案的物件，则应该使用 CreateObject 函数。
如果物件已登录成单一执行个体的物件，则不管执行多少次 CreateObject，都只能建立该物件的一个执行个体。若使用单一执行个体物件，当使用长度为零的字串 ("") 语法呼叫时，GetObject 总是传回同一个执行个体；而若是省略 pathname 引数，就会出错。您无法使用 GetObject 来获取 Visual Basic 建立的物件类别的引用。

判断磁碟机上的可用空间百分比

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
  & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery _
  ("Select * from Win32_LogicalDisk Where DeviceID = 'C:'")
For Each objDisk in colDisks
  Wscript.Echo objDisk.FreeSpace
Next

感谢大大提供这么清楚的解释...^^"

照你的解释来说...

物件就是   ---- >>   {impersonationLevel=impersonate}
呼叫这一曾   --->> \\" & strComputer & "\root\cimv2"

对吧....^^a


那我依职很好奇....这个名称{impersonationLevel=impersonate}  
在电脑要怎么找阿??      
我以GetObject来解释......
"他可能是宰入系统已经宰入的物件，只不过...我们是跟系统借用....可以这样解释吗??"
跟我们平常用的CreateObject的函式....
是直接建立物件....(应该是这样解释吧....^^a)

而...他用GetObject来读取...
"会不会是因为WMI物件不能用CreateObject来做"


PS:

可以知道WMI他所有的物件吗??


拍谢...^^"
我问的问题很多....
我速穿着好奇纸尿裤长大的....