我正在尝试编写一个 PowerShell 脚本,它将查询 Active Directory 中的所有服务器并查看应用 Windows 更新的最后日期。
我遇到了一些麻烦,所以为了完成它,我创建了两个脚本,一个在 Powershell 中获取服务器,另一个在 VBScript 中查询最后日期。我找到了一个允许我查询上次安装日期的 Powershell模块,但它非常慢,尤其是在远程服务器上。
这是PS代码:
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
}
它太慢了,几乎无法使用。
我有一些我拼凑起来的 VBScript,速度要快得多。见下文:
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
有没有一种简单的方法可以让 VBScript 的速度进入 Powershell 代码?
如果有人感兴趣,这是工作的 Powershell 代码(再次修改):
$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