WMI $colItems.Count ^ ERROR

[Laddy]

Hello everyone

Sorry for my english, I speak a little bit.

I try to make my first AutoIt script using wmi.

I try to list the 5 most recent System Restore points. I think me being out in the translation VBS -> Autoit and unfortunately I hit a trouble on the line 22.

Can you help ?

thank a lot.

Laddy

If $colItems.Count = 0 Then

Error Script i don't understand why ??

$dtmConvertedDate = ObjCreate("WbemScripting.SWbemDateTime")
$objWMI = ObjGet("winmgmts:\\localhost\root\default")
$colItems = $objWMI.ExecQuery("SELECT * FROM SystemRestore", "WQL", 0x10 + 0x20)
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$i = 0
If $colItems.Count = 0 Then
    MsgBox(0, "Aucun Point", "No restore point in system.")
Else
    $i = $colItems.Count
    ;For Each $objItem In $colItems
    If IsObj($colItems) Then
        For $objItem In $colItems
            If $i < 6 Then
                $dtmConvertedDate.Value = $objItem.CreationTime
                $dtmCreationTime = $dtmConvertedDate.GetVarDate
                MsgBox(0, "RP", "[" & $dtmCreationTime & "]" & $objItem.Description)
            EndIf
            $i = $i - 1
        Next
    EndIf
EndIf


Func WMIDateStringToDate($dtmDate)
    Return (StringMid($dtmDate, 5, 2) & "/" & _
            StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
             & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate, 13, 2))
EndFunc   ;==>WMIDateStringToDate
Exit

Edited October 28, 2010 by Laddy

[Juvigy]

$colItems is empty - it looks like $objWMI.ExecQuery("SELECT * FROM SystemRestore", "WQL", 0x10 + 0x20)

did not return any items.

[Laddy]

Hi Juvigy

I am not sure I understood. Sorry

colItems.Count normally should not be empty. With my script visual basic script I have no problem.

If colItems.Count is empty, I take it that restoring system must be off right?

How to fix this problem?

this is not mandatory? "WQL", 0x10 + 0x20

Edited October 28, 2010 by Laddy

[Laddy]

Ok it's ok now thank a lot for your reply

[Juvigy]

$dtmConvertedDate = ObjCreate("WbemScripting.SWbemDateTime")
$objWMI = ObjGet("winmgmts:\\localhost\root\default")
$colItems = $objWMI.ExecQuery("SELECT * FROM SystemRestore")
ConsoleWrite($colItems.Count&@CRLF)

Value of 0 means that it is disabled

[GEOSoft]

Here is another way to do what you want. Of course you will have to add the code to convert the date etc.

$RPSet = ObjGet("winmgmts:root/default")
$sColl = $RPSet.InstancesOf ("SystemRestore")
MsgBox(0, "TEST Count", $sColl.count)
for $RP in $sColl
    MsgBox(0, "Result", "Dir: RP" & $RP.SequenceNumber & ", Name: " & $RP.Description & ", Type: ", $RP.RestorePointType & ", Time: " & $RP.CreationTime)
next

[UEZ]

I modified your code a litte bit:

$ip = "localhost"
$dtmConvertedDate = ObjCreate("WbemScripting.SWbemDateTime")
$objWMI = ObjGet("winmgmts:{impersonationLevel = impersonate}!\\" & $ip & "\root\default")

$i = $objWMI.ExecQuery("SELECT * FROM SystemRestore").Count

If $i = 0 Then
    MsgBox(0, "Aucun Point", "No restore point in system.")
Else
    $colItems = $objWMI.ExecQuery("SELECT * FROM SystemRestore", "WQL")
    ;For Each $objItem In $colItems
    If IsObj($colItems) Then
    For $objItem In $colItems
    If $i < 6 Then
    $dtmConvertedDate.Value = $objItem.CreationTime
    $dtmCreationTime = $dtmConvertedDate.GetVarDate
    MsgBox(0, "RP", "[" & $dtmCreationTime & "]" & $objItem.Description)
    EndIf
    $i = $i - 1
    Next
    EndIf
EndIf


Func WMIDateStringToDate($dtmDate)
    Return (StringMid($dtmDate, 5, 2) & "/" & _
    StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
    & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate, 13, 2))
EndFunc ;==>WMIDateStringToDate
Exit

Please test whether it is working!

Br,

UEZ

[PsaltyDS]

$colItems is empty - it looks like $objWMI.ExecQuery("SELECT * FROM SystemRestore", "WQL", 0x10 + 0x20)

did not return any items.

I think UEZ is hinting at this already, but I'll state it plainly.

The "0x10 + 0x20" flags are $wbemFlagReturnImmediately (0x10), and $wbemFlagForwardOnly (0x20). These flags are used to speed up the results and minimize the amount of resources used. One of the consequences of $wbemFlagForwardOnly in particular is that the .count is made invalid (not available). When you get a collection using that flag you have to run your For/In/Next loop and count the items for yourself.