Client Management Suite

 View Only

  • 1.  Vbscript to get task agent server registration in 7.1

    Posted May 15, 2012 12:02 AM

    I am looking for a way to check a clients task server registration via vbscript.  I assume it has to be buried in an xml file somewhere or from calling a function, etc.  So far I haven't been able to find it.  I know it has to be readable somewhere since when you open the agent and check the task status tab, it is there and you can get it from using RAAD.

    Thanks!



  • 2.  RE: Vbscript to get task agent server registration in 7.1
    Best Answer

    Posted May 15, 2012 09:26 AM

     

    On Error Resume Next
     
    Const wbemFlagReturnImmediately = &h10
    Const wbemFlagForwardOnly = &h20
     
    arrComputers = Array("<<<YOUR COMPUTER NAME HERE>>>") ' Change that
    For Each strComputer In arrComputers
       WScript.Echo
       WScript.Echo "=========================================="
       WScript.Echo "Computer: " & strComputer
       WScript.Echo "=========================================="
     
       Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
       Set colItems = objWMIService.ExecQuery("SELECT * FROM AltirisAgent_ClientTaskAgentStatus", "WQL", _
                                              wbemFlagReturnImmediately + wbemFlagForwardOnly)
     
       For Each objItem In colItems
          WScript.Echo "CurrStatusCode: " & objItem.CurrStatusCode
          WScript.Echo "LastCheckedForTasks: " & WMIDateStringToDate(objItem.LastCheckedForTasks)
          WScript.Echo "LastRegistered: " & WMIDateStringToDate(objItem.LastRegistered)
          WScript.Echo "MachineGUID: " & objItem.MachineGUID
          WScript.Echo "TaskName: " & objItem.TaskName
          WScript.Echo "TaskReturnCode: " & objItem.TaskReturnCode
          WScript.Echo "TaskServer: " & objItem.TaskServer
          WScript.Echo "TaskStatusCode: " & objItem.TaskStatusCode
          WScript.Echo
       Next
    Next
     
     
    Function WMIDateStringToDate(dtmDate)
    WScript.Echo dtm: 
    WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
    Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
    & " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2))
    End Function


  • 3.  RE: Vbscript to get task agent server registration in 7.1

    Posted May 15, 2012 11:05 AM

    That is exactly what I was looking for.  I had thought for a second that it might be in WMI... but never actually looked there.  I was expecting it to be a registry key or an xml file or a dll function call.  Thanks!