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他所有的物件嗎??


拍謝...^^"
我問的問題很多....
我速穿著好奇紙尿褲長大的....