Vbscript to remotely enumerate software updates (SCCM 2007)

Question

Hi
Im trying to create a VBscript to initiate enumerate software updates.
The below link has a code to do this locally.
https://msdn.microsoft.com/en-us/library/cc145902.aspx
Is it possible to get this done remotely via VBScript or even Powershell? Prefer Vbscript, as some of the servers I am targeting are Windows 2003.
What I am trying to achieve is, once we have deployed our monthly patches to the server and has been rebooted, I want to run a a script to confirm what has worked and not. The idea is for the script to remotely initiate a software scan cycle on a target
machine. Then the script will remotely initiate the enumerate software updates. If the result shows that nothing is required, then its good. However, if it lists some updates are to be installed, then this machine will be flagged as non compliant.
Thanks,
DM

Answer 1

THanks for that.
I have gone through the vast amount of scripts. The useful ones seems to be all in powershell.
However, due to Windows 2003, I might have to stick with VBScript.
This script works ok, but for local machine. Im not too keen on using psexec to use this on remote machines.
Does anyone know how to rework this code, to make it work remotely?
Sub EnumerateUpdates()
    ' Initialize variables.
    dim updatesDeployment
    dim progress
    dim updateCount
    dim update
    dim progressStage
    dim percentComplete
    dim errorCode
    dim updateData
    dim notify
    ' Create an UpdatesDeployment instance.
    set updatesDeployment = CreateObject ("UDA.CCMUpdatesDeployment")
    ' Get the current updates.
    Set updatesColl = updatesDeployment.EnumerateUpdates( 2, 0, progress )
    ' Get a count of the current updates.
    updateCount = updatesColl.GetCount()
    ' Determine whether there are any updates to enumerate.
    if updatecount = 0 then
        WScript.echo "No updates found."
    else
        ' Loop through the updates.
        for nIndex = 0 To updateCount-1
            Set update = updatesColl.GetUpdate(nIndex)
            WScript.echo "Update ID: " & update.GetId()
            if update.GetEnforcementDeadline() <> Null then
                 WScript.echo "Enforcement Deadline: " & update.GetEnforcementDeadline()
            else
                 WScript.echo "Enforcement Deadline: None"
            end if
            WScript.echo "Bulletin ID: " & update.GetBulletinId()
            WScript.echo "Article ID: " & update.GetArticleId()
            WScript.echo "Name: " & update.GetName(1033)
            WScript.echo "Summary: " & update.GetSummary(1033)
            WScript.echo "Information Link: " & update.GetInfoLink(1033)
            WScript.echo "Manufacturer: " & update.GetManufacturer(1033)
            WScript.echo "State: " & update.GetState()
            update.GetProgress progressStage, percentComplete, errorCode
            WScript.echo "Progress Stage: " & progressStage
            WScript.echo "Percent Complete: " & percentComplete
            WScript.echo "Error Code: " & errorCode
            WScript.echo "Notification Option: " & update.GetNotificationOption()
            WScript.echo " "
        next
    end if
End Sub
Thanks, DM.