obtenir la description d'une classe WMI en utilisant vbscript

Question

Comment puis-je obtenir la description d'une classe WMI en utilisant vbscript?

Je trouve cet exemple, mais il est en C#:

// Gets the class description. 
try 
{ 
    // Gets the property qualifiers. 
    ObjectGetOptions op = new ObjectGetOptions(null, System.TimeSpan.MaxValue, true); 

    ManagementClass mc = new ManagementClass(namespace, 
     classname, op); 
    mc.Options.UseAmendedQualifiers = true; 

    foreach (QualifierData dataObject in 
     mc.Qualifiers) 
    { 
     if(dataObject.Name.Equals("Description")) 
     { 
      classdesc = 
       dataObject.Value.ToString(); 
     } 
    } 
} 
catch (ManagementException mErr) 
{ 
    if(mErr.Message.Equals("Not found ")) 
     MessageBox.Show("WMI class or not found."); 
    else 
     MessageBox.Show(mErr.Message.ToString()); 
} 

Cette image montre ce que je dois.

Answer 1

est ici l'équivalent VBScript de votre code C# (seulement sans traitement d'erreur):

Const wbemFlagUseAmendedQualifiers = &H20000 

strComputer = "." 
Set oWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
Set oClass = oWMI.Get("Win32_LogicalDisk", wbemFlagUseAmendedQualifiers) 

strDesc = oClass.Qualifiers_("Description").Value 
WScript.Echo strDesc