Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Get-ADComputer -Filter 'OperatingSystem -like "*Server*"' -Properties * |
- Select-Object Name | Sort-Object Name |
- ForEach-Object {
- Get-WUHistory -ComputerName $_.Name | Sort-Object Date,ComputerName -Descending |
- Select-Object -First 1
- }
- On Error Resume Next
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set file = fso.OpenTextFile ("servers.csv", 1)
- server = ""
- Do Until file.AtEndOfStream
- line = file.Readline
- server = line
- 'wscript.echo server
- Set objSession = CreateObject("Microsoft.Update.Session", server)
- If Err.Number <> 0 Then
- 'WScript.Echo server & " Error: " & Err.Number & " Error (Hex): " & Hex(Err.Number) & " Source: " & Err.Source & " Description: " & Err.Description
- WScript.Echo server & " Communications Error"
- Err.Clear
- Else
- Set objSearcher = objSession.CreateUpdateSearcher
- Set colHistory = objSearcher.QueryHistory(1, 1)
- For Each objEntry in colHistory
- Wscript.Echo server & " " & objEntry.Date
- Next
- End If
- Loop
- file.Close
- $ErrorActionPreference= 'silentlycontinue'
- Get-ADComputer -Filter 'OperatingSystem -like "*Server*"' -Properties * | Select-Object Name |
- ForEach-Object {
- If (Test-Connection $_.Name -Count 1){
- Get-HotFix -ComputerName $_.Name | Sort-Object InstalledOn -Descending | Select-Object -First 1
- }
- else {
- Write-host $_.Name " Connection Error"
- }
- } |
- Sort-Object InstalledOn
- Get-HotFix -ComputerName $_.Name | Measure-Object InstalledOn -Maximum
- $ScriptBlock = {
- $hash=@{}
- $Session = New-Object -ComObject Microsoft.Update.Session
- $Searcher = $Session.CreateUpdateSearcher()
- $hash[$env:Computername] = $Searcher.QueryHistory(1,1) | select -ExpandProperty Date
- $hash
- }
- Invoke-Command -ComputerName $serverlist -ScriptBlock $ScriptBlock
- Name Value
- ---- -----
- Server1 5/16/2014 2:11:42 PM
- Server2 4/14/2014 1:55:03 PM
- Server3 5/6/2014 5:36:51 PM
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement