Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

59 lines
1.9 KiB

  1. //var disk = GetObject ("winmgmts:win32_logicaldisk='C:'");
  2. var disk = GetObject ("winmgmts:root/default:X");
  3. var wbemCimtypeSint8 = 16;
  4. var wbemCimtypeUint8 = 17;
  5. var wbemCimtypeSint16 = 2;
  6. var wbemCimtypeUint16 = 18;
  7. var wbemCimtypeSint32 = 3;
  8. var wbemCimtypeUint32 = 19;
  9. var wbemCimtypeSint64 = 20;
  10. var wbemCimtypeUint64 = 21;
  11. var wbemCimtypeReal32 = 4;
  12. var wbemCimtypeReal64 = 5;
  13. var wbemCimtypeBoolean = 11;
  14. var wbemCimtypeString = 8;
  15. var wbemCimtypeDatetime = 101;
  16. var wbemCimtypeReference = 102;
  17. var wbemCimtypeChar16 = 103;
  18. var wbemCimtypeObject = 13;
  19. var wbemCimtypeIUnknown = 104;
  20. GetAs ("wbemCimtypeBoolean", wbemCimtypeBoolean);
  21. GetAs ("wbemCimtypeUint8", wbemCimtypeUint8);
  22. GetAs ("wbemCimtypeSint8", wbemCimtypeSint8);
  23. GetAs ("wbemCimtypeUint16", wbemCimtypeUint16);
  24. GetAs ("wbemCimtypeSint16", wbemCimtypeSint16);
  25. GetAs ("wbemCimtypeUint32", wbemCimtypeUint32);
  26. GetAs ("wbemCimtypeSint32", wbemCimtypeSint32);
  27. GetAs ("wbemCimtypeUint64", wbemCimtypeUint64);
  28. GetAs ("wbemCimtypeSint64", wbemCimtypeSint64);
  29. GetAs ("wbemCimtypeReal32", wbemCimtypeReal32);
  30. GetAs ("wbemCimtypeReal64", wbemCimtypeReal64);
  31. GetAs ("wbemCimtypeChar16", wbemCimtypeChar16);
  32. GetAs ("wbemCimtypeString", wbemCimtypeString);
  33. GetAs ("wbemCimtypeDatetime", wbemCimtypeDatetime);
  34. GetAs ("wbemCimtypeReference", wbemCimtypeReference);
  35. GetAs ("wbemCimtypeObject", wbemCimtypeObject);
  36. GetAs ("wbemCimtypeIUnknown", wbemCimtypeIUnknown);
  37. function GetAs (cimStr, cimtype)
  38. {
  39. WScript.Echo ();
  40. WScript.Echo (cimStr);
  41. WScript.Echo ("=================");
  42. try {
  43. var prop = disk.Properties_("P");
  44. var v = prop.GetAs (cimtype);
  45. if ((cimtype == wbemCimtypeObject) || (cimtype == wbemCimtypeIUnknown)) {
  46. WScript.Echo ("Value:", "<object>");
  47. } else {
  48. WScript.Echo ("Value:" , v);
  49. }
  50. } catch(e) {
  51. WScript.Echo ("Error:", e.number, e.description);
  52. }
  53. }