$objSession = CreateObject("Microsoft.Update.Session")

$strWks="remotesys"
$objSession = CreateObject("Microsoft.Update.Session", $strWks)

ERROR : invalid method/function call: too many parameters!

$sc = CreateObject("ScriptControl")
$sc.language = "VBScript"
$sc.addcode('Session=CreateObject("Microsoft.Update.Session","' + $strWks + '"')
$sc.run
$ObjSession=$sc.codeobject.session

function GetInstalledsoftware(optional $machine)
	Dim $root, $softwarekey, $index
	dim $temparray[10]

	if not $machine
		$root = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
	else
		$root = "\\" + $machine + "\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
	endif

	$SoftwareKey = enumkey($root,$Index)

	while not @error
		$DisplayName = readvalue($root + $SoftwareKey, "displayname")
		$DisplayVersion = readvalue($root + $SoftwareKey, "DisplayVersion")
		if $DisplayName
			if $count >  ubound($temparray)
				redim preserve $temparray[ubound($temparray)+10]
			endif
			$temparray[$count] = $DisplayName +"  "+ $DisplayVersion
			$count = $count + 1
		endif
		$Index = $Index + 1
		$SoftwareKey = enumkey($root, $Index)
	loop
	if $count > 0
		redim preserve $temparray[$count-1]
	else
		$temparray = ""
	endif
	$getinstalledsoftware = $temparray
endfunction

;NAME  check_win_patch.kix
;
;DESCRIPTION  This is a script to check for patches on systems.
;
Break On
Dim $SO
;
$SO = SetOpt('Explicit',          'On')
$SO = SetOpt('NoMacrosInStrings', 'On')
;
Dim $strWks, $strComps, $colComps, $objComp
;
$strComps = "u:\Desktop\computers.ini"
;
$colComps = Split(ReadProfileString($strComps,"computers",""),chr(10))
;
For Each $objComp in $colComps
   If $objComp <> ""
      $strWks - ReadProfileString($strComps,"computers",$objComp)
   EndIf
   GetAllPatches($strWks)
   ; more stuff to do here
Next
;
Function GetAllPatches($strWks)
   Dim $objSession, $objSC, $objSearcher, $colUpdates, $intI, $intHistoryCount, $objIdentity, $objUpdate, $objIdentity
   ;
   $objSC = CreateObject("ScriptControl")
   If @ERROR
      ? "There was an error creating the scriptcontrol object " + @SERROR
   EndIf
   $objSC.language = "VBScript"
   $objSC.addcode('Session=CreateObject("Microsoft.Update.Session","' + $strWks + '")')
   If @ERROR
      "There was an error creating the Update Session object"
      ? @SERROR
   EndIf
   $objSC.run
   If @ERROR
      ? "There was an error running the Update Session object " + @SERROR
   EndIf
   $objSession = $objSC.codeobject.session
   If @ERROR
      ? "There was an error creating the Session Object after running the Update Session " @SERROR
   EndIf
   $objSearcher = $objSession.CreateUpdateSearcher
   If @ERROR
      ? " There was an error creating the Update Searcher object " + @SERROR
   EndIf
   $intHistoryCount = $objSearcher.GetTotalHistoryCount
   If @ERROR
      ? "There was an error getting the Update Searcher History count " + @SERROR
   EndIf
   $colUpdates = $objSearcher.QueryHistory(0, $intHistoryCount)
   If @ERROR
      ? "There was an error getting the update collection " + @SERROR
   EndIf
   ;
   ; I haven't really decided what to do with them yet.
   ; So, just printing out the data
   ;
   For Each $objUpdate in $colUpdates
      ? "Title:                   " + $objUpdate.Title
      ? "Description:             " + $objUpdate.Description
      ? "Update application date: " + $objUpdate.Date
      $intI = $objUpdate.Operation
      Select
         Case $intI = 1
            ? "Operation type:         Installation"
         Case $intI = 2
            ? "Operation type:         Uninstallation"
         Case 1
            ? "Operation type:         could not be determined"
      EndSelect
      $intI = $objUpdate.ResultCode
      Select
         Case $intI = 0
            ? "Operation result:       The operation has not started."
         Case $intI = 1
            ? "Operation result:       The operation is in progress."
         Case $intI = 2
            ? "Operation result:       The operation completed successfully."
         Case $intI = 3
            ? "Operation result:       The operation complted, but one or more errors occurred"
            ? "                        during the operation and the results are potentially incomplete."
         Case $intI = 4
            ? "Operation result:       The operation failed to complete."
         Case $intI = 5
            ? "Operation result:       The operation was aborted."
         Case 1
            ? "Operation result:       Could not be determined."
      EndSelect
      $objIdentity = $objUpdate.UpdateIdentity
      ? "Update ID:              " + $objIdentity.UpdateID
      ? "------------------------------------------------------------?
   Next
EndFunction

$objsc.addcode('Set Session=CreateObject("Microsoft.Update.Session","' + $strWks + '")')

[computers]
comp1=netbios-name1
comp2=netbios-name2
comp3=netbios-name3

Dim $strCommand
$strCommand = 'Set Session = CreateObject("Microsoft.Update.Session","' + $strWks + '")'
? "The update session command is:"
? $strCommand
$objSC.AddCode($strCommand)

$strCommand = 'Function CO
Set Session = CreateObject("Microsoft.Update.Session","' + $strWks + '")
End Function'
$objSC.AddCode($strCommand)
$objSC.Run("CO")

$objSession = $objSC.CodeObject.Session

The operation completed successfully.
Invalid number of parameters.
Invalid number of parameters.
-2147352562
[317]
-2147352562
There was an error getting the update collection Invalid number of parameters.
Title:                   Update for Windows Server 2003 (KB2641690)
Description:             Install this update to resolve an issue which requires
an update to the certificate revocation list on Windows systems and to keep your
 systems certificate list up to date. After you install this update, you may hav
e to restart your system.
Update application date: 11/17/2011 3:39:47 PM
Operation type:         Installation
Operation result:       The operation completed successfully.
Update ID:              9b1eb814-0ee1-49c1-98cc-6f893ba8ba0f
------------------------------------------------------------?

Title:                   Windows Malicious Software Removal Tool - November 2011
 (KB890830)
Description:             After the download, this tool runs one time to check yo
ur computer for infection by specific, prevalent malicious software (including B
laster, Sasser, and Mydoom) and helps remove any infection that is found. If an
infection is found, the tool will display a status report the next time that you
 start your computer. A new version of the tool will be offered every month. If
you want to manually run the tool on your computer, you can download a copy from
 the Microsoft Download Center, or you can run an online version from microsoft.
com. This tool is not a replacement for an antivirus product. To help protect yo
ur computer, you should use an antivirus product.
Update application date: 11/12/2011 6:56:29 PM
Operation type:         Installation
Operation result:       The operation completed successfully.
Update ID:              846185a2-40da-4909-91d1-064ae329a0ff

Function GetAllPatches(optional $strWks)
   ; Function:     GetAllPatches
   ;
   ; Author:       Brad Van Orden
   ;               Tremendous assist from Allen Powell
   ;
   ; Version:      1.1
   ;
   ; Version History: 21 November 2011, finished initial version
   ;                  21 November 2011, Added code to remove carriage returns
   ;                                    and line feeds from the description.
   ;
   ; Action:       Returns an array of all the updates on a given system.
   ;
   ; Syntax:       GetAllPatches([$strWks])
   ;
   ; Parameters:   Optional name of a remote system to query.
   ;               If omitted, will query the current system.
   ;
   ; Returns:      Array listing all updates and their status.
   ;
   ; Dependencies: None
   ;
   ; Kixtart version: tested with 4.61
   ;
   Dim $objSession, $objSearcher, $objUpdate, $colUpdates, $intI, $objSC, $intHistoryCount
   Dim $objIdentity, $objCodeO, $arrPatch[5,1], $intCount
   ;
   If $strWks = ""
      $strWks = "."
   EndIf
   ;
   $objSC                 = CreateObject("ScriptControl")
   $objSC.Language        = "VBScript"
   $objSC.AddCode('Set Session = CreateObject("Microsoft.Update.Session","' + $strWks + '")')
   $objSC.Run
   $objCodeO              = $objSC.CodeObject
   $objSession            = $objCodeO.Session
   $objSearcher           = $objSession.CreateUpdateSearcher
   $intHistoryCount       = $objSearcher.GetTotalHistoryCount
   $colUpdates            = $objSearcher.QueryHistory(0, $intHistoryCount)
   $intCount              = 0
   $arrPatch[0,$intCount] = "Title"
   $arrPatch[1,$intCount] = "Description"
   $arrPatch[2,$intCount] = "Update Application Date"
   $arrPatch[3,$intCount] = "Operation Type"
   $arrPatch[4,$intCount] = "Operation Result"
   $arrPatch[5,$intCount] = "Update ID"
   $intCount              = $intCount + 1
   For Each $objUpdate in $colUpdates
      $arrPatch[0,$intCount] = $objUpdate.Title
      $arrPatch[1,$intCount] = Join(Split(Join(Split($objUpdate.Description,Char(13))),Chr(10)))
      $arrPatch[2,$intCount] = $objUpdate.Date
      $intI                  = $objUpdate.Operation
      Select
         Case $intI = 1
            $arrPatch[3,$intCount] = "Installation"
         Case $intI = 2
            $arrPatch[3,$intCount] = "Uninstallation"
         Case 1
            $arrPatch[3,$intCount] = "Could not be determined"
      EndSelect
      $intI = $objUpdate.ResultCode
      Select
         Case $intI = 0
            $arrPatch[4,$intCount] = "The operation has not started."
         Case $intI = 1
            $arrPatch[4,$intCount] = "The operation is in progress."
         Case $intI = 2
            $arrPatch[4,$intCount] = "The operation completed successfully."
         Case $intI = 3
            $arrPatch[4,$intCount] = "The operation completed, but one or more errors occurred during the operation and the results are potentially incomplete."
         Case $intI = 4
            $arrPatch[4,$intCount] = "The operation failed to complete."
         Case $intI = 5
            $arrPatch[4,$intCount] = "The operation was aborted."
         Case 1
            $arrPatch[4,$intCount] = "Could not be determined."
      EndSelect
      $objIdentity           = $objUpdate.UpdateIdentity
      $arrPatch[5,$intCount] = $objIdentity.UpdateID
      $intCount              = $intCount + 1
      ReDim Preserve $arrPatch[5,$intCount]
   Next
   $intCount = $intCount - 1
   ReDim Preserve $arrPatch[5,$intCount]
   $GetAllPatches = $arrPatch
EndFunction

Break On
Dim $SO
;
$SO = SetOpt('Explicit',          'On')
$SO = SetOpt('NoMacrosInStrings', 'On')
;
Dim $strWks, $strComps, $colComps, $objComp, $arrPatches[5,0], $intI
;
$strComps = "u:\Desktop\computers.ini"
;
$colComps = Split(ReadProfileString($strComps,"computers",""),chr(10))
;
For Each $objComp in $colComps
   If $objComp <> ""
      $strWks - ReadProfileString($strComps,"computers",$objComp)
   EndIf
   $arrPatches = GetAllPatches($strWks)
Next
;
For $intI = 1 to Ubound($arrPatches,2)
   ? $arrPatches[0,0] + " : " + $arrPatches[0,$intI]
   ? $arrPatches[0,1] + " : " + $arrPatches[1,$intI]
   ? $arrPatches[0,2] + " : " + $arrPatches[2,$intI]
   ? $arrPatches[0,3] + " : " + $arrPatches[3,$intI]
   ? $arrPatches[0,4] + " : " + $arrPatches[4,$intI]
   ? $arrPatches[0,5] + " : " + $arrPatches[5,$intI]
   ? "----------------------------------------------------------------"
Next

$arrPatch[1,$intCount] = Join(Split(Join(Split($objUpdate.Description,Char(13))),Chr(10)))