错误800A03F2 VB脚本使用GetLastInputInfo检测空闲时间

Question

我在下面的vb脚本的第1行字符9上出错。我正在使用GetLastInputInfo来检测空闲时间.. 我知道这种错误是因为在vb中使用保留字作为变量，但我认为我没有使用保留字。

我没有使用任何表单，并会使用任务计划调用此脚本。

有关于此的任何想法吗？谢谢！

Private Type InforTest
   cbSize As Long
   dwTime As Long
End Type

Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Declare Function GetLastInputInfo Lib "user32" (plii As Any) As Long

Sub Idle()

   Dim lii As InforTest
   Dim idletime as single

   lii.cbSize = Len(lii)
   Call GetLastInputInfo(lii)

   idletime  =  (GetTickCount() - lii.dwTime) / 1000)/3600 'Get idle time in hours

   if idletime  > 0.15
        WScript.Echo now
        'Do something

   End if


End Sub