Do
  strComputer = "."
  Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\wmi")
  Set colItems = objWMIService.ExecQuery("Select * from HDSentinel",,48)
  For Each objItem in colItems
    If objItem.ID = "Drive 0" Then

    datetime = FormatDateTime(Now)
    drvid = objItem.ID & "," & objItem.ModelID & "," & objItem.SerialNumber
    potime = 0

    smart = Split(objItem.SMART, chr(13))
    For Each attr in smart

      info = Split(attr, ",")

      If (info(0) = "9") Then
        potime = CLng ("&H" & info(6))
      End If

      If (info(0) = "193") Or (info(0) = "225") Then
        attrv = CLng ("&H" & info(6))
        Wscript.Echo datetime &","& drvid &","& potime &","& info(0) &" "& info(1) &","& info(6) &","& attrv
      End If

      Next
    End If
    Next

  WScript.Sleep 60000

Loop Until False