VBA執行WMI

透過VBA執行WMI取得Windows 系統名稱，至於什麼是WMI以後再慢慢解釋，先看程式碼

Sub GetFullName()
    Dim objWMIService, colProcessList As Object
    Dim uname, udomain As String
    Dim objProcess As Object
    
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'EXCEL.EXE'")
    
    For Each objProcess In colProcessList
        objProcess.GetOwner uname, udomain
    Next

    MsgBox UCase(udomain) & "\" & UCase(uname)
End Sub

這裡介紹一個WMI程式碼產生器，是由微軟所提供，有需要可至網站下載 WMI Code Creator v1.0