RemoveExpired.vbs Its VBS From: [email protected] [mailto:[email protected]] On Behalf Of [email protected] Sent: 18 November 2013 15:42 To: [email protected] Subject: [mssms] RE: Expired Updates in CM12
Hey Thanks Alan! Do you have a way to remove these expired updates out of Software Update groups? PS or VB? JEFF CARREON Applications Systems Engineer Client Configuration Management & Provisioning - Engineering Wells Fargo End User Computing l 1525 WT Harris Blvd l Charlotte, NC 28262 MAC D1112-036 Tel 704-590-4640 l Cell 704-942-4213 [email protected]<mailto:[email protected]> From: [email protected]<mailto:[email protected]> [mailto:[email protected]] On Behalf Of Jacobs, Alan Sent: Monday, November 18, 2013 10:27 AM To: '[email protected]' Subject: [mssms] RE: Expired Updates in CM12 RemoveExpired.vbs option explicit dim CRLF: CRLF=chr(13) & chr(10) dim WSH: set WSH = CreateObject("WScript.Shell") dim FSO: set FSO = CreateObject("Scripting.FileSystemObject") dim WMI: set WMI = GetObject("winmgmts:/root/SMS") dim Prov: set Prov = nothing dim I, f for each I in WMI.ExecQuery("select * from SMS_ProviderLocation where ProviderForLocalSite=TRUE") set Prov = I next if Prov is nothing then err.Raise 438,"No provider found for the local site" dim SiteCode: SiteCode = Prov.SiteCode dim SiteServer: SiteServer = Prov.Machine set WMI = GetObject("winmgmts:" & Prov.NamespacePath) dim Pkg for each Pkg in WMI.ExecQuery("select * from SMS_SoftwareUpdatesPackage") Log "Processing package " & Pkg.PackageID & " - " & Pkg.Name ' remove orphaned package-to-content relations (not associated with CIs) for each i in WMI.ExecQuery("select pc.* from SMS_PackageToContent pc left join SMS_CIToContent cc on cc.ContentID=pc.ContentID where pc.PackageID=""" & Pkg.PackageID & """ and cc.ContentID is null") i.Delete_ next Log "Package source path: " & Pkg.PkgSourcePath dim srcFolder: set srcFolder = FSO.GetFolder(Pkg.PkgSourcePath) dim foldersToDelete: set foldersToDelete = CreateObject("Scripting.Dictionary") foldersToDelete.CompareMode = vbTextCompare ' collect subfolders currently in pkg source for each i in srcFolder.SubFolders if i.Attributes=16 and i.Name<>"." and i.Name<>".." then 'Log "Existing folder " & i.Name foldersToDelete.Add i.Name, nothing end if next ' exclude subfolders associated with active content for each i in WMI.ExecQuery("select pc.* from SMS_PackageToContent pc where pc.PackageID=""" & Pkg.PackageID & """") 'Log "Excluding active folder " & i.ContentSubFolder if foldersToDelete.Exists(i.ContentSubFolder) then foldersToDelete.Remove(i.ContentSubFolder) next f = vbFalse ' delete remaining folders for each i in srcFolder.SubFolders if foldersToDelete.EXists(i.NAme) then Log "Deleting orphaned subfolder " & i.name i.Delete f = vbTrue end if next if f = vbTrue then Log "Refreshing package " & pkg.PackageID pkg.RefreshPKgSource end if next Log "cleanup completed" '================== logging support ============== dim logMode dim logWindow sub Log(msg) if IsEmpty(logWindow) then call LogInit select case logMode case "console": WScript.StdOut.WriteLine msg case "window": if IsObject(logWindow) then logWindow.document.all.logLines.innerHtml = logWindow.document.all.logLines.innerHTML & msg & "<br/>" end select end sub sub LogInit if not WScript.Interactive then logMode = "none" elseif lcase(right(WScript.FullName, 11))="cscript.exe" then logMode = "console" else set logWindow = WScript.CreateObject("InternetExplorer.Application", "Log_") with logWindow .Navigate("about:blank") .Document.Title = WScript.ScriptName .AddressBar = false .ToolBar = false .StatusBar = false .Resizable = true .Visible = 1 do while .Busy: WScript.Sleep 100: loop .document.body.innerHTML = "<div id=""logLines"" style=""font:10pt sans-serif;text-align:left;"" />" end with logMode = "window" end if end sub sub LogTerm if IsObject(logWindow) then logWindow.Quit: set logWindow = nothing end sub ' provide a way of terminating the script in windowed mode - closing the log window will terminate the script sub Log_onQuit WScript.Quit end sub From: [email protected]<mailto:[email protected]> [mailto:[email protected]] On Behalf Of [email protected]<mailto:[email protected]> Sent: 18 November 2013 14:17 To: [email protected]<mailto:[email protected]> Subject: [mssms] Expired Updates in CM12 Anyone know of a cmdlet to remove expired updates from CM Software Update group? Or does anyone have a PS code on how to reverse the add-CMSoftwareUpdateToGroup? JEFF CARREON Applications Systems Engineer Client Configuration Management & Provisioning - Engineering Wells Fargo End User Computing l 1525 WT Harris Blvd l Charlotte, NC 28262 MAC D1112-036 Tel 704-590-4640 l Cell 704-942-4213 [email protected]<mailto:[email protected]>
