Vbsedit includes all these samples. Try it now!



' List Resultant Set of Policy Group Policy Extension Status


On Error Resume Next
Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")

strComputer = "."
Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\rsop\computer")

Set colItems = objWMIService.ExecQuery("Select * from RSOP_ExtensionStatus")

For Each objItem in colItems
Wscript.Echo "Display name: " & objItem.DisplayName
dtmConvertedDate.Value = objItem.BeginTime
dtmTime = dtmConvertedDate.GetVarDate
Wscript.Echo "Begin time: " & dtmTime
dtmConvertedDate.Value = objItem.EndTime
dtmTime = dtmConvertedDate.GetVarDate
Wscript.Echo "End time: " & dtmTime
Wscript.Echo "Error: " & objItem.Error
Wscript.Echo "Extension GUID: " & objItem.ExtensionGuid
Wscript.Echo "Logging Status: " & objItem.LoggingStatus
Wscript.Echo
Next


VbsEdit includes all these samples!


This package includes VbsEdit 32-bit, VbsEdit 64-bit, HtaEdit 32-bit and HtaEdit 64-bit.
The evaluation version never expires.




Home  

Copyright © 2001-2017 Adersoft