最近,我做了一个脚本,列出所有已安装的应用程序在本地&远程机器&以结构化的方式在excelsheet中给出输出。Powershell脚本无法从Windows 7机器获取应用程序列表数据
它看起来像这样:
$a = Read-Host "Enter machine name" | Out-File -filepath C:\machine.txt
$computerName = Get-Content C:\machine.txt
$a = New-Object -comobject Excel.Application
$a.visible = $True
$b = $a.Workbooks.Add()
$c = $b.Worksheets.Item(1)
$c.Cells.Item(1,1) = "Name"
$c.Cells.Item(1,2) = "Publisher"
$c.Cells.Item(1,3) = "InstalledDate"
$c.Cells.Item(1,4) = "Version"
$c.Cells.Item(1,5) = "UninstallString"
$d = $c.UsedRange
$d.Interior.ColorIndex = 19
$d.Font.ColorIndex = 11
$d.Font.Bold = $True
$i = 2
function Get-InstalledAppReg ([string]$ComputerName) {
$RegPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
$BaseKey = [Microsoft.Win32.RegistryKey]::OpenRemoteBaseKey("LocalMachine", $ComputerName)
$OpenSubKey = $BaseKey.OpenSubKey($RegPath)
$i =2
$OpenSubKey.GetSubKeyNames() | ForEach {
$Path = "$RegPath\$_"
$BaseKey.OpenSubKey($Path).GetValue("DisplayName")
$BaseKey.OpenSubKey($Path).GetValue("Publisher")
$BaseKey.OpenSubKey($Path).GetValue("InstalledDate")
$BaseKey.OpenSubKey($Path).GetValue("Version")
$BaseKey.OpenSubKey($Path).GetValue("UninstallString")
$c.Cells.Item($i,1) = $BaseKey.OpenSubKey($Path).GetValue("DisplayName")
$c.Cells.Item($i,2) = $BaseKey.OpenSubKey($Path).GetValue("Publisher")
$c.Cells.Item($i,3) = $BaseKey.OpenSubKey($Path).GetValue("InstalledDate")
$c.Cells.Item($i,4) = $BaseKey.OpenSubKey($Path).GetValue("Version")
$c.Cells.Item($i,5) = $BaseKey.OpenSubKey($Path).GetValue("UninstallString")
$i ++
}
}
Get-InstalledAppReg($computerName)
$d.EntireColumn.AutoFit()
$b.SaveAs("c:\softhive.xlsx")
$b.Close()
$a.Quit()
Get-Process | Where { $_.Name -Eq "Excel" } | Kill
这个脚本完全跑了具有XP作为操作系统的所有远程计算机。
问题开始时,我开始在远程机器上运行Windows &机器。
最初,它给了错误的道路的错误,当我意识到,对于Windows 7,我可能不得不使用
“SOFTWARE \ Wow6432Node \微软\的Windows \ CurrentVersion \卸载”,而不是
“SOFTWARE \微软\的Windows \ CurrentVersion \卸载”。
有了这个不同的道路,当我再次运行相同的脚本,我得到一个错误:
异常调用“OpenRemoteBaseKey”与“2”参数(S):“网络路径找不到
“
在:行:24字符:62
- $ BaseKey = [Microsoft.Win32.RegistryKey] :: OpenRemoteBaseKey(< < < <“LocalMachine”,$ ComputerName)
也许我需要在脚本中更改其他东西? 我的机器,我从哪里运行脚本,是一台Windows XP SP3机器。