We still have some windows server 2003 servers without powershell. We have a need to install SCCM updates with vbscript. I can instantiate the updates, but I am not able to call the installupdates WMI method for CCM_SoftwareUpdatesManager

Here is what I have

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\ccm\ClientSDK")
Set objInstall = GetObject("winmgmts:\\" & strComputer & "\root\ccm\ClientSDK:CCM_SoftwareUpdatesManager")
Set colItems = objWMIService.ExecQuery("SELECT * FROM CCM_SoftwareUpdate WHERE ComplianceState=0", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each objItem In colItems
'----Get the Patch ID
WScript.Echo "BulletinID: " & objItem.BulletinID
WScript.Echo
' ---- Install the patch
Set UID = objInstall.Methods_("InstallUpdates")
UID = objInstall.InstallUpdates(objItem.BulletinID)
Next

This is the error I am receiving:

 SWbemObjectEx: Type mismatch

Thanks in advance for the help. I have not done any work in vbscript for a while...

That is not the whole error message.

Post in SCCM forum and ask specifically how to use SCCM to install uopdates on WS2003 server.  I think you will find it easier.

Here is a closer version of a correct script.

REmemebr this has to execute on teh remote system.  It cannot run locally

Set objWMIService = GetObject("winmgmts:\\.\root\ccm\ClientSDK")
Set objInstall = GetObject("winmgmts:\\" & strComputer & "\root\ccm\ClientSDK:CCM_SoftwareUpdatesManager")
Set colItems = objWMIService.ExecQuery("SELECT * FROM CCM_SoftwareUpdate WHERE ComplianceState=0")
For Each objItem In colItems
   objInstall.InstallUpdates objItem.BulletinID
Next

Thanks for the help!! I really appreciate it

I am closer, but I cannot find what the parameter is to pass. I am receiving a type mismatch error. I tried calling objInstall.InstallUpdates with objItem.ArticleID  objItem.UpdateID and objItem.BulletinID

There is the code:

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\ccm\ClientSDK")
Set objInstall = GetObject("winmgmts:\\" & strComputer & "\root\ccm\ClientSDK:CCM_SoftwareUpdatesManager")
Set colItems = objWMIService.ExecQuery("SELECT * FROM CCM_SoftwareUpdate WHERE ComplianceState=0", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
'----Get the Patch ID
WScript.Echo "BulletinID: " & objItem.BulletinID
WScript.Echo "UpdateID: " & objItem.UpdateID
WScript.Echo "ArticleID: " & objItem.ArticleID
objInstall.InstallUpdates objItem.ArticleID
Next

I found this link to a powershell script that has a comment stating you need to format the missing updates. It looks like you need to select the path?

https://gallery.technet.microsoft.com/scriptcenter/Install-All-Missing-8ffbd525#content

Hi,

Why are you trying to script this? If you have ConfigMgr in place you shouldn't need a script to install any updates.

We need to script this because we have some distributed applications that need to be brought down and back up in order. The have database and application dependencies. We currently script it through WSUS, but we want to migrate to SCCM for all updates. These are older servers and we cannot leverage powershell.

Mike, 

Did you ever figure out how to do this in VBScript?

I can't get your method to work.  I'm using a slight modification, as I get a syntax error on the first line when I leave it as "\\.\".

'------------------
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\ccm\ClientSDK")
Set objInstall = GetObject("winmgmts:\\" & strComputer & "\root\ccm\ClientSDK:CCM_SoftwareUpdatesManager")
Set colItems = objWMIService.ExecQuery("SELECT * FROM CCM_SoftwareUpdate WHERE ArticleID=3019215")

For Each objItem In colItems

'Added the Echo to ensure I was getting a result
WScript.Echo "BulletinID: " & objItem.BulletinID

objInstall.InstallUpdates objItem.BulletinID

Next
'------------------

I get "SWbemObjectEx: Type mismatch"

I'm trying to use VBScript (PowerShell isn't an option in my very specific use case) to install one specific SCCM update (I already know the ArticleID).

The InstallUpdates method expects an array of updates, you're passing a single BulletinID.

Try converting the colItems (which is a collection) into an array and passing the array into the InstallUpdates method.

Very old topic.  Here is the direction from the documentation.

Set colItems = objWMIService.ExecQuery("SELECT * FROM CCM_SoftwareUpdate WHERE ComplianceState=0)0
resultCode=objInstall.InstallUpdates(colItems)

https://msdn.microsoft.com/en-us/library/jj155394.aspx?f=255&MSPPError=-2147217396

Note the it takes a "collection of CCMUpdates" and not an array of IDs.  The CCM_SoftwareUpdate class returns that collection.

jrv,

are you sure passing a collection will do the trick? The documentation says it expects an array of CCM_SoftwareUpdates, not a collection and the two are slightly different.

jrv,

are you sure passing a collection will do the trick? The documentation says it expects an array of CCM_SoftwareUpdates, not a collection and the two are slightly different.

In techo-speak an array is a collection.  Look at the definition of the method call.

[IN]  CCM_SoftwareUpdate CCMUpdates[]

It is clearly a collection (array) of "CCMUpdates" type.

Parameters

CCMUpdates[]           

Data type: CCM_SoftwareUpdate

Qualifiers: [in]

Array of software updates that are installed