 Loading |
|
Loading |
| VBScript |
| JavaScript |
| Powershell |
Search Options: WMI Win32_PowerPointActivePresentation Query
|
||
|
var wbemFlagReturnImmediately = 0x10;
var wbemFlagForwardOnly = 0x20; var arrComputers = new Array("."); for (i = 0; i < arrComputers.length; i++) { WScript.Echo(); WScript.Echo("=========================================="); WScript.Echo("Computer: " + arrComputers[i]); WScript.Echo("=========================================="); var objWMIService = GetObject("winmgmts:\\\\" + arrComputers[i] + "\\root\\MSAPPS11"); var colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PowerPointActivePresentation", "WQL", wbemFlagReturnImmediately | wbemFlagForwardOnly); var enumItems = new Enumerator(colItems); for (; !enumItems.atEnd(); enumItems.moveNext()) { var objItem = enumItems.item(); WScript.Echo("Author: " + objItem.Author); WScript.Echo("CreateDate: " + WMIDateStringToDate(objItem.CreateDate)); WScript.Echo("LastAuthor: " + objItem.LastAuthor); WScript.Echo("LastSavedDate: " + WMIDateStringToDate(objItem.LastSavedDate)); WScript.Echo("Name: " + objItem.Name); WScript.Echo("Paragraphs: " + objItem.Paragraphs); WScript.Echo("Path: " + objItem.Path); WScript.Echo("Size: " + objItem.Size); WScript.Echo("Slides: " + objItem.Slides); WScript.Echo("Template: " + objItem.Template); WScript.Echo("View: " + objItem.View); WScript.Echo("Words: " + objItem.Words); } } function WMIDateStringToDate(dtmDate) { if (dtmDate == null) { return "null date"; } var strDateTime; if (dtmDate.substr(4, 1) == 0) { strDateTime = dtmDate.substr(5, 1) + "/"; } else { strDateTime = dtmDate.substr(4, 2) + "/"; } if (dtmDate.substr(6, 1) == 0) { strDateTime = strDateTime + dtmDate.substr(7, 1) + "/"; } else { strDateTime = strDateTime + dtmDate.substr(6, 2) + "/"; } strDateTime = strDateTime + dtmDate.substr(0, 4) + " " + dtmDate.substr(8, 2) + ":" + dtmDate.substr(10, 2) + ":" + dtmDate.substr(12, 2); return(strDateTime); } | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: | ||
