Dim WMIService As Object WMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
工程——部件——找
