Windows 7 wmi类的64位等效类“;win32reg_addremoveprograms";?
下面我的代码在32位Windows计算机上运行良好,但是由于代码中使用了32位WMI类Windows 7 wmi类的64位等效类“;win32reg_addremoveprograms";?,windows-7,powershell,wmi,Windows 7,Powershell,Wmi,下面我的代码在32位Windows计算机上运行良好,但是由于代码中使用了32位WMI类win32reg\u addremoveprograms,它拒绝在64位计算机上运行。这个类有64位的等价物吗 $ServerFile = "D:\SharePoint\Powershell\AddRemovePrograms\Machines.txt" $ServerList = Get-Content $ServerFile $Excel = New-Object -Com Excel.Applicati
win32reg\u addremoveprograms
,它拒绝在64位计算机上运行。这个类有64位的等价物吗
$ServerFile = "D:\SharePoint\Powershell\AddRemovePrograms\Machines.txt"
$ServerList = Get-Content $ServerFile
$Excel = New-Object -Com Excel.Application
$Excel.displayalerts=$False
$Excel.visible = $True
$workbook = $Excel.Workbooks.Add()
$workbook.workSheets.item(2).delete()
$workbook.WorkSheets.item(2).delete()
$Sheet = $workbook.WorkSheets.Item(1)
$Sheet.Name= "Program List";
$intRow = 1
foreach ($NextServer in $ServerList)
{
$Sheet.Cells.Item($intRow,1) = “Computer Name”
$Sheet.Cells.Item($intRow,2) = $NextServer
$Sheet.Cells.Item($intRow,1).Interior.ColorIndex = 8
$Sheet.Cells.Item($intRow,1).Font.ColorIndex = 11
$Sheet.Cells.Item($intRow,1).Font.Bold = $True
$Sheet.Cells.Item($intRow,2).Interior.ColorIndex = 8
$Sheet.Cells.Item($intRow,2).Font.ColorIndex = 11
$Sheet.Cells.Item($intRow,2).Font.Bold = $True
$intRow = $intRow + 2
$Sheet.Cells.Item($intRow,1) = "Programs"
$Sheet.Cells.Item($intRow,1).Interior.ColorIndex = 12
$Sheet.Cells.Item($intRow,1).Font.ColorIndex = 8
$Sheet.Cells.Item($intRow,1).Font.Bold = $True
$intRow = $intRow + 1
$colItems =get-wmiobject -class "win32reg_addremoveprograms" -computername $NextServer | select-object -property DisplayName | sort-object DisplayName
foreach ($objItem in $colItems)
{
if ($objItem.DisplayName.IndexOf('Update') -eq -1 -and $objItem.DisplayName.IndexOf('2007 Microsoft Office') -eq -1)
{
$Sheet.Cells.Item($intRow,1) = $objItem.DisplayName
$intRow = $intRow + 1
}
}
$intRow = $intRow + 2
}
$workArea = $Sheet.UsedRange
$workArea.EntireColumn.AutoFit()
$workbook.SaveAs("D:\SharePoint\Powershell\AddRemovePrograms\Programs.xls")
$workbook.close()
$a = [System.Runtime.InteropServices.Marshal]::ReleaseComObject($workArea)
$a = [System.Runtime.InteropServices.Marshal]::ReleaseComObject($Sheet)
$a = [System.Runtime.InteropServices.Marshal]::ReleaseComObject($workbook)
$Excel.Quit()
$a = [System.Runtime.InteropServices.Marshal]::ReleaseComObject($Excel)
[System.GC]::Collect()
[System.GC]::WaitForPendingFinalizers()
Remove-Variable Excel, intRow ,workbook, Sheet,colItems, ServerFile, ServerList, a
您的64位计算机上是否安装了客户端?因为Win32Reg\u AddRemovePrograms
WMI类是由SCCM/SMS客户端添加的,因此如果未安装该类,则该类不可用
还请注意,Win32Reg\u addremove程序
仅提供有关32位已安装应用程序的信息。要获取有关64位应用程序的信息,请使用Win32Reg\u AddRemovePrograms64
类(在SMS 2003 SP3及更高版本中提供)