Security

  <?xml version="1.0" encoding="utf-8" standalone="yes" ?> 
- <HiddenStatus>
     <ServerInfo Name="D-GE-MNG02" WSUSVersion="3.2.7600.226" /> 
     <GeneratingInfo FromDate="10/9/2009 11:47:27 AM" ToDate="1/7/2010 11:47:27 AM" Entries="3402" /> 
   - <HiddenUpdate>
        <Computer Name="p04521" Date="1/6/2010 10:37:18 AM" /> 
        <UpdateInfo Title="Update for Windows XP (KB971737)" Description="Install this update to help strengthen authentication credentials in specific scenarios. After you install this item, you may have to restart your computer." Severity="Unspecified" />

Imports Microsoft.UpdateServices.Administration
Imports System
Imports System.Xml
Imports System.Collections.Generic
Imports System.Text
Imports System.IO
 
Module HiddenUpdatesToXML
 
    Const usage As String = vbCrLf & "HiddenUpdates.exe creates an HTML file with a " & _
                           "list of computers where updates are set hidden by users." & _
                            vbCrLf & vbCrLf & _
                            "USAGE:" & vbCrLf & vbCrLf & _
                            "    HiddenUpdates.exe 90" & vbCrLf
 
    Sub Main(ByVal args() As String)

On Error Resume Next
Dim oSearcher, oSearchResult, i, oUpdate
Set oSearcher = CreateObject("Microsoft.Update.Searcher")
oSearcher.Online = False
Set oSearchResult = oSearcher.Search("IsHidden=1")
If Err.Number = 0 Then
	If oSearchResult.Updates.Count > 0 Then
		For i = 0 To oSearchResult.Updates.Count - 1
			Set oUpdate = oSearchResult.Updates(i)
			oUpdate.IsHidden = False
		Next
	End If
End If

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Fileversion=1.0.0.5
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=y
#AutoIt3Wrapper_Run_Tidy=y
#AutoIt3Wrapper_Res_LegalCopyright=Wolfgang Führer
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;----------------------------------------------
; UnhideHiddenUpdates.au3
; --Beschreibung--
; Wolfgang Führer
; 07.01.2010  -  11:30:55,06
;----------------------------------------------
 
Opt("MustDeclareVars", 0) ;0=no, 1=require pre-declare

-- Abfrage an die WSUS Datenbank um eine Übersicht
-- des Patchstatus aller PCs zu bekommen
-- September 2008 - Wolfgang Führer
 
SELECT 
T.TargetID,
T.FullDomainName,
M.Downloaded,
M.Failed,
M.InstalledPendingReboot,
T.IPAddress,
M.Installed,
M.NotInstalled,
M.Unknown,
T.LastSyncTime,
M.LastChangeTime
FROM 
tbComputerTarget T, tbComputerSummaryForMicrosoftUpdates M 
WHERE 
T.TargetID = M.TargetID
ORDER BY 
T.FullDomainName