Don Hite at myITforum.com

The Prerequisite Hotfix For Configuration Manager 2007 R3 Is Unavailable

2010-10-16T13:50:58Z

MS KB977384 is required in order to install R3 so why is it unavailable? Is the website flooded, corrupted or it is just a Microsoft thing that we are slowly becoming accustomed to? At either rate I think that Microsoft should reevaluate their Rx releases and do a better job at distributing them. How much time would it take to add the hotfix to the download or maybe recompile the download to integrate it? Enquiring minds want to know.

Hotfix Request

The system is currently unavailable. Please try back later, or contact support if you want immediate assistance.http://support.microsoft.com/contactus/?ws=support

Last Review : October 16, 2010

Microsoft Security Essentials New Version Available

2010-10-13T16:21:00Z

Microsoft Security Essentials Version 1.0.2498.0 was released late last week (10-07-2010) and is now available for download from the Microsoft Downloads page.

If you are running Microsoft Security Essentials on your workstation you will be receiving a desktop message that the new version is available or you can download the newest version from the link below.

Microsoft XP: mssefullinstall-x86fre-en-us-xp

Microsoft Vista: mssefullinstall-x86fre-en-us-vista-win7

Microsoft Windows 7: mssefullinstall-amd64fre-en-us-vista-win7

Download:

http://www.microsoft.com/downloads/en/details.aspx?FamilyID=e1605e70-9649-4a87-8532-33d813687a7f

The Configuration Manager 2007 Dashboard Download

2010-10-13T15:56:15Z

The Configuration Manager 2007 Dashboard allows you to watch and track application and operating system deployments as well as security updates and site health status via a customizable internet web interface.

The dashboard requires Windows SharePoint Services and can be accessed from a workstation desktop without the Configuration Manager console.

The dashboard installs to the x:\Program Files\ConfigMgr Dashboard Framework and the x:\ProgramData\ConfigMgr Dashboard Framework directories.

The dashboard can be accessed via your web browser http://Server_Name:Port_Number and comes preconfigured with a handful of web parts to get you started and you don’t need to be a Sharepoint or MOSS expert to develop your own dashboard reports..

Download:

http://www.microsoft.com/downloads/en/details.aspx?FamilyID=27fe0d80-38c6-464a-953a-1c2edcf35c2d

Microsoft SQL Server 2008 Service Pack 2 Feature Pack Downloads

2010-10-13T13:09:18Z

The Microsoft SQL Server 2008 Service Pack (SP) 2 Feature Pack downloads are now available from Microsoft now that SP 2 has been officially released. The Feature pack is a collection of stand alone application packages listed below that are provided free of charge from Microsoft to add additional value to your SQL Server 2008 SP2 infrastructure.

Microsoft ADOMD.NET
Microsoft Analysis Management Objects
Microsoft Connector 1.0 for SAP BI
Microsoft Core XML Services (MSXML) 6.0
Microsoft OLEDB Provider for DB2
Microsoft SQL Server 2005 Backward Compatibility Components
Microsoft SQL Server 2005 JDBC Driver 1.2
Microsoft SQL Server 2008 Analysis Services 10.0 OLE DB Provider
Microsoft SQL Server 2008 Command Line Utilities
Microsoft SQL Server 2008 Data Mining Add-ins for Microsoft Office 2007
Microsoft SQL Server 2008 Data mining Viewer Controls
Microsoft SQL Server 2008 Management Objects
Microsoft SQL Server 2008 Native Client
Microsoft SQL Server 2008 Policies
Microsoft SQL Server 2008 Replication Management Objects
Microsoft SQL Server 2008 Report Builder 2.0
Microsoft SQL Server 2008 Reporting Services Add-in for Microsoft Share Point Technologies
Microsoft SQL Server 2008 Upgrade Advisor
Microsoft SQL Server Driver for PHP 1.0
Microsoft SQL Server System CLR Types
Microsoft SQL Service Broker External Activator
Microsoft SQLXML 4.0 SP1
Microsoft Sync Framework
Microsoft Windows PowerShell Extensions for SQL Server
SQL Server Compact 3.5 SP1
SQL Server Remote Blob Store

Downloads

http://www.microsoft.com/downloads/en/details.aspx?FamilyID=1b2bd555-cb5b-47b9-88c7-3f89f3b43779&displaylang=en

SQL 2008 Reporting Services Add Ins For Microsoft SharePoint Downloads

2010-10-13T12:36:34Z

Here you will find information and download links for SQL 2008 reporting services (SSRS) Add Ins For Microsoft SharePoint 2007 and 2010 available from Microsoft.

SSRS Add-in for SharePoint 2007

Microsoft SQL Server 2008 Reporting Services Add-in for SharePoint Technologies allows you to take advantage of new SQL Server 2008 report processing and management capabilities in SharePoint integrated mode. This version also includes Report Builder server mode, and the ability to launch Report Builder directly from a Report Server. The download provides a Report Viewer Web part, Web application pages, and support for using standard Windows SharePoint Services 3.0 or Microsoft Office SharePoint Services 2007.

Download

http://go.microsoft.com/fwlink/?LinkID=186086

SSRS Add-in for SharePoint 2010

The Microsoft SQL Server 2008 R2 Reporting Services Add-in for Microsoft SharePoint Technologies 2010 allows you to integrate your reporting environment with SharePoint to experience the benefits of using the collaborative environment provided by SharePoint. Once you install the Reporting Services Add-in and configure your servers for integration, you can publish Reporting Services content to a SharePoint library and then view and manage those documents directly from a SharePoint site.

Download

http://go.microsoft.com/fwlink/?LinkID=186085

VBS Script To Send All Active Directory Sever Names To Excel

2010-10-12T14:29:17Z

This VBS Script will send all of your Active Directory (AD) sever names to an Excel spreadsheet.

VBS Script

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

objExcel.Cells(1, 1).Value = "Machine Name"

objExcel.Cells(1, 2).Value = "Network Operating System"

Set objAdRootDSE = GetObject("LDAP://RootDSE")

Set objRS = CreateObject("Adodb.Recordset")

varConfigNC = objAdRootDSE.Get("defaultNamingContext")

strConnstring = "Provider = ADsDSOObject"

strWQL = "Select * FROM 'LDAP://" & varConfigNC _

& "' Where ObjectCategory= 'Computer' and OperatingSystem = 'Windows*Server*'"

objRS.Open strWQL, strConnstring

Do until objRS.eof

Set objServer = GetObject(objRS.Fields.Item(0))

strServerName = objServer.CN

strOperatingSystem = objServer.OperatingSystem

objExcel.Cells(intRow, 1).Value = strServerName

objExcel.Cells(intRow, 2).Value = strOperatingSystem

intRow = intRow + 1

objRS.movenext

Loop

objRS.close

objExcel.Range("A1:B1").Select

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)

Set objRange = objExcel.Range("A1")

objRange.Sort objRange,1,,,,,,1

MsgBox "Done"

VBS Script To Send All Domain Controller Names To Excel

2010-10-12T14:28:45Z

This VBS Script will send all of your Active Directory (AD) Domain Controller (DC) names to an Excel spreadsheet including their DNS host name and Distinguished UNC Name.

VBS Script:

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

objExcel.Cells(1, 1).Value = "Domain Controller Name"

objExcel.Cells(1, 2).Value = "DNS Host Name"

objExcel.Cells(1, 3).Value = "Distinguished Name"

Const ADS_SCOPE_SUBTREE = 2

Set objRootDSE = GetObject("LDAP://RootDSE")

strConfigurationNC = objRootDSE.Get("configurationNamingContext")

Set objConnection = CreateObject("ADODB.Connection")

Set objCommand = CreateObject("ADODB.Command")

objConnection.Provider = "ADsDSOObject"

objConnection.Open "Active Directory Provider"

Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000

objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

objCommand.CommandText = _

"Select ADsPath From 'LDAP://" & strConfigurationNC & "' Where objectClass='nTDSDSA'"

Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst

Do Until objRecordSet.EOF

Set objParent = GetObject(GetObject(objRecordset.Fields("ADsPath")).Parent)

objExcel.Cells(intRow, 1).Value = objParent.CN

objExcel.Cells(intRow, 2).Value = objparent.DNSHostName

objExcel.Cells(intRow, 3).Value = objparent.serverReference

intRow = intRow + 1

objRecordSet.MoveNext

Loop

objExcel.Range("A1:C1").Select

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)

Set objRange = objExcel.Range("A1")

objRange.Sort objRange,1,,,,,,1

MsgBox "Done"

VBS Script To Enumerate A Specified SQL Database Tables Column Names

2010-10-12T14:15:54Z

This VBS Script can be used to list or enumerate all of the column names for a specified table much like the previous SQL Query post SQL Query To Locate A Specified SQL Database Table Or Column Name and the previous VBS post VBS Script To Locate A Specified SQL Database Table Or Column Name. The results will be written to an excel spreadsheet that can be saved or printed for your reference.

Tip: Rather than pre-populating the input dialog boxes I took the liberty of adding comments next to the appropriate dialog boxes as a guide.

VBS Script:

strServer = InputBox ("Enter SQL Server Name") 'SQL Server

strDatabase = InputBox ("Enter Database Name") 'SMS_XXX

strTableName = InputBox ("Enter Table Name") 'Operating_System_Data

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

objExcel.Cells(1, 1).Value = "Table Name"

objExcel.Cells(1, 2).Value = "Column Name"

Const adOpenStatic = 3

Const adLockOptimistic = 3

Set objConnection = CreateObject("ADODB.Connection")

objConnection.Open "Provider=SQLOLEDB;Data Source =" & strServer & ";" & _

"Trusted_Connection=Yes;Initial Catalog =" & strDatabase

Set objRecordSet = CreateObject("ADODB.Recordset")

objRecordSet.Open "Select SysObjects.Name T_Name, SysColumns.Name C_Name" & _

" From SysReferences" & _

" Right Outer Join SysColumns " & _

" Join SysTypes on SysColumns.XType = SysTypes.XType " & _

" Join SysObjects on SysColumns.Id = SysObjects.Id" & _

" On SysReferences.ConstId = SysObjects.Id" & _

" Where SysObjects.XType = 'U'" & _

" And SysObjects.Name = " & "'" & strTableName & "'", objConnection, adOpenStatic, adLockOptimistic

objRecordSet.MoveFirst

Do Until objRecordSet.EOF

objExcel.Cells(intRow, 1).Value = objRecordSet.Fields("T_Name").Value

objExcel.Cells(intRow, 2).Value = objRecordSet.Fields("C_Name").Value

objRecordSet.MoveNext

intRow = intRow + 1

Loop

objExcel.Range("A1:B1").Select

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)

Set objRange = objExcel.Range("A1")

objRange.Sort objRange,1,,,,,,1

MsgBox "Done"

VBS Script To Locate A Specified SQL Database Table Or Column Name

2010-10-12T14:15:29Z

This VBS Script like the SQL Query To Locate A Specified SQL Database Table Or Column Name post will allow you to search a database to help you locate or find all of the tables as well as all of the columns that contain specified keywords. The results will be written to an excel spreadsheet that can be saved or printed for your reference.

Note: The script has the like functionally built-in so there is no need to add the wildcard % character before and after the TableName and ColumName input dialog box prompts. For example if you want to search for all table names that have the keyword “Data” in them at the TableName input dialog box enter Data rather than %Data% or %Data.

Tip: Rather than pre-populating the input dialog boxes I took the liberty of adding comments next to the appropriate dialog boxes as a guide.

VBS Script:

trServer = InputBox ("Enter SQL Server Name") 'SQL Server

strDatabase = InputBox ("Enter Database Name") 'SMS_XXX

strTableName = InputBox ("Enter Table Name") 'Data

strColumnName = InputBox ("Enter Column Name") 'Key

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

objExcel.Cells(1, 1).Value = "Table Name"

objExcel.Cells(1, 2).Value = "Column Name"

Const adOpenStatic = 3

Const adLockOptimistic = 3

Set objConnection = CreateObject("ADODB.Connection")

objConnection.Open "Provider=SQLOLEDB;Data Source =" & strServer & ";" & _

"Trusted_Connection=Yes;Initial Catalog =" & strDatabase

Set objRecordSet = CreateObject("ADODB.Recordset")

objRecordSet.Open "Select SysObjects.Name T_Name, SysColumns.Name C_Name" & _

" From SysReferences" & _

" Right Outer Join SysColumns " & _

" Join SysTypes on SysColumns.XType = SysTypes.XType " & _

" Join SysObjects on SysColumns.Id = SysObjects.Id" & _

" On SysReferences.ConstId = SysObjects.Id" & _

" Where SysObjects.XType = 'U'" & _

" And SysObjects.Name Like " & "'%" & strTableName & "%'" & _

" And SysColumns.Name Like " & "'%" & strColumnName & "%'", objConnection, adOpenStatic, adLockOptimistic

objRecordSet.MoveFirst

Do Until objRecordSet.EOF

objExcel.Cells(intRow, 1).Value = objRecordSet.Fields("T_Name").Value

objExcel.Cells(intRow, 2).Value = objRecordSet.Fields("C_Name").Value

objRecordSet.MoveNext

intRow = intRow + 1

Loop

objExcel.Range("A1:B1").Select

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)

Set objRange = objExcel.Range("A1")

objRange.Sort objRange,1,,,,,,1

MsgBox "Done"

SQL Query To Locate A Specified SQL Database Table Or Column Name

2010-10-12T14:14:57Z

The SQL query directly below will allow you to search the database from which the script is executed within to help you locate or find all of the tables as well as all of the columns that contain both of the keywords specified.

In the example below we are searching for all table names that contain all or part of the keyword specified which in the example is “Name” which also has a column name containing the keyword “Item”.

Note: If you just want to find a table name or just a column name comment out or remove the And statement that you do not wish to enumerate. The SysObjects.Name is the Table name and SysColumns.Name is the Column name.

SQL Query:

Select

SysObjects.Name 'Table Name',

SysColumns.Name 'Column Name'

From SysReferences

Right Outer Join SysColumns

Join SysTypes on SysColumns.XType = SysTypes.XType

Join SysObjects on SysColumns.Id = SysObjects.Id

on SysReferences.ConstId = SysObjects.Id

Where SysObjects.XType = 'U'

And SysObjects.Name Like '%Name%'

And SysColumns.Name Like '%Item%'

Order by SysObjects.Name, SysColumns.Name

This SQL Query can be used if you know the name of the table using the script above and you wish to review all of the available column names for the specified table.

Select

SysObjects.Name 'Table Name',

SysColumns.Name 'Column Name'

From SysReferences

Right Outer Join SysColumns

Join SysTypes on SysColumns.XType = SysTypes.XType

Join SysObjects on SysColumns.Id = SysObjects.Id

on SysReferences.ConstId = SysObjects.Id

Where SysObjects.XType = 'U'

And SysObjects.Name = 'Operating_System_DATA'

Order by SysColumns.Name

Microsoft Risk and Health Assessment Program Tool Downloads

2010-10-08T17:15:18Z

Below you will find a list of the currently available Microsoft risk and health assessment program tool downloads.

Note: All Download Packages Are Intended For Microsoft Premier Customers Only.

Risk and Health Assessment Program for Cluster Server (CSRAP) – Scoping Tool v1.5

This package includes all of the scoping tools necessary to prepare and qualify your environment to receive a Risk and Health Assessment Program for Cluster Server (CSRAP).

http://www.microsoft.com/downloads/en/details.aspx?FamilyID=69665e3e-83ab-450c-9e08-3b523456f6c3

Risk and Health Assessment Program for Exchange Server – Scoping Tool v1.4

This package includes all of the scoping tools necessary to prepare and qualify your environment to receive a Risk and Health Assessment Program for Exchange Server (ExRAP).

http://www.microsoft.com/downloads/en/details.aspx?FamilyID=23457155-7c8b-4355-8a57-d2c2a4d1da57

Risk and Health Assessment Program for Active Directory – Scoping Tool v1.5

This package includes all of the scoping tools necessary to prepare and qualify your environment to receive a Risk and Health Assessment Program for Active Directory (ADRAP).

http://www.microsoft.com/downloads/en/details.aspx?FamilyID=22205827-c164-4b62-9f8d-c3cd6077bd82

Risk and Health Assessment Program for Configuration Manager - Scoping Tool v1.0

This package includes all of the scoping tools necessary to prepare and qualify your environment to receive a Risk and Health Assessment Program for Configuration Manager (CMRAP).

http://www.microsoft.com/downloads/en/details.aspx?FamilyID=bb0ce933-68eb-44b4-a569-19e9e274489f

Risk and Health Assessment Program for Windows Desktop (WDRAP) – Scoping Tool

This package includes all of the scoping tools necessary to prepare and qualify your environment to receive a Risk and Health Assessment Program for Windows Desktop (WDRAP).

http://www.microsoft.com/downloads/en/details.aspx?FamilyID=9e4e81e0-fae9-4578-898c-0ad2170b31ef

Risk and Health Assessment Program for Microsoft SQL Server – Scoping Tool v1.2

This package includes all of the scoping tools necessary to prepare and qualify your environment to receive a Risk and Health Assessment Program for Microsoft SQL Server.

http://www.microsoft.com/downloads/en/details.aspx?FamilyID=7edc8686-89f6-4076-bff4-dba53c7639e7

Risk and Health Assessment Program for Microsoft SharePoint Server (SPRAP) – Scoping Tool v2.5

This package includes all of the scoping tools necessary to prepare and qualify your environment to receive a Risk and Health Assessment Program for Microsoft SharePoint Server (SPRAP).

http://www.microsoft.com/downloads/en/details.aspx?FamilyID=535266cc-88e8-4180-a4da-838f94d6a10d

Risk and Health Assessment for Microsoft SharePoint Server Datasheet

The Risk and Health Assessment Program for Microsoft SharePoint Server has been developed to provide in-depth analysis of your Office SharePoint Server and Windows SharePoint Services configurations, custom code, and operational procedures, uncovering areas that are potential risks to server stability or that do not align with Microsoft best practices.

http://www.microsoft.com/downloads/en/details.aspx?FamilyID=b72ef7b3-0291-4c15-b669-e94c685b00ba

VBS Script To Send All Non Client Resources To Excel

2010-10-08T16:43:19Z

This VBS script will allow you to send a list of machines to an Excel spreadsheet that either do not have the ConfigMgr client installed or the client information for the resource is not reported.

VBS Script:

strComputer = InputBox ("Enter Site Server Name")

strSiteCode = InputBox ("Enter Site Code")

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

objExcel.Cells(1, 1).Value = "Machine Name"

objExcel.Cells(1, 2).Value = "Operating System"

Set objWMIService = GetObject("winmgmts://" & strComputer & "\root\sms\site_" & strSiteCode)

Set colItems = objWMIService.ExecQuery("Select * From SMS_R_System Where Client = 0 Or Client Is Null")

For Each objItem in colItems

objExcel.Cells(intRow, 1).Value = objItem.Name

objExcel.Cells(intRow, 2).Value = objItem.OperatingSystemNameandVersion

intRow = intRow + 1

objExcel.Range("A1:B1").Select

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)

Set objRange = objExcel.Range("A1")

objRange.Sort objRange,1,,,,,,1

MsgBox "Done"

VBS Script To Send Collection Names And Collection ID Information To Excel

2010-10-08T15:09:48Z

This VBS Script will prompt you to enter your site server name and site code and will in turn list all of the collection names and their corresponding ID’s to an excel spreadsheet for your reference.

VBS Script:

strServer = InputBox ("Enter Site Server Name")

strDatabase = InputBox ("Enter Three Letter Site Code")

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

objExcel.Cells(1, 1).Value = "Collection Name"

objExcel.Cells(1, 2).Value = "Collection ID"

Const adOpenStatic = 3

Const adLockOptimistic = 3

Set objConnection = CreateObject("ADODB.Connection")

objConnection.Open "Provider=SQLOLEDB;Data Source =" & strServer & ";" & _

"Trusted_Connection=Yes;Initial Catalog =SMS_" & strDatabase

Set objRecordSet = CreateObject("ADODB.Recordset")

objRecordSet.Open "Select C.Name, C.CollectionID" & _

" From v_Collection C", objConnection, adOpenStatic, adLockOptimistic

objRecordSet.MoveFirst

Do Until objRecordSet.EOF

objExcel.Cells(intRow, 1).Value = objRecordSet.Fields("Name").Value

objExcel.Cells(intRow, 2).Value = objRecordSet.Fields("CollectionID").Value

objRecordSet.MoveNext

intRow = intRow + 1

Loop

objExcel.Range("A1:B1").Select

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)

Set objRange = objExcel.Range("A1")

objRange.Sort objRange,1,,,,,,1

MsgBox "Done"

VBS Script To Create A Configuration Manager Web Report Data Dictionary

2010-10-08T15:08:10Z

This VBS Script will create a Configuration Manager Web Reports data dictionary for your reference as an Excel spreadsheet.

VBS Script:

strComputer = InputBox ("Enter Site Server Name")

strSiteCode = InputBox ("Enter Site Code")

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

objExcel.Cells(1, 1).Value = "Report ID"

objExcel.Cells(1, 2).Value = "Name"

objExcel.Cells(1, 3).Value = "Category"

objExcel.Cells(1, 4).Value = "Comment"

objExcel.Cells(1, 5).Value = "Report GUID"

objExcel.Cells(1, 6).Value = "Drill Through Columns"

objExcel.Cells(1, 7).Value = "Drill Through Report ID"

objExcel.Cells(1, 8).Value = "Drill Through Report Path"

objExcel.Cells(1, 9).Value = "Drill Through URL"

objExcel.Cells(1, 10).Value = "Graph Caption"

objExcel.Cells(1, 11).Value = "Graph Type"

objExcel.Cells(1, 12).Value = "Graph X Column"

objExcel.Cells(1, 13).Value = "Graph Y Column"

objExcel.Cells(1, 14).Value = "Machine Detail"

objExcel.Cells(1, 15).Value = "Machine Source"

objExcel.Cells(1, 16).Value = "Number Of Prompts"

objExcel.Cells(1, 17).Value = "Refresh Interval"

objExcel.Cells(1, 18).Value = "Report Parameters"

objExcel.Cells(1, 19).Value = "Security Key"

objExcel.Cells(1, 20).Value = "Status Message Detail Source"

objExcel.Cells(1, 21).Value = "Unicode Data"

objExcel.Cells(1, 22).Value = "X Column Label"

objExcel.Cells(1, 23).Value = "Y Columnb Label"

Set objWMIService = GetObject("winmgmts://" & strComputer & "\root\sms\site_" & strSiteCode)

Set colItems = objWMIService.ExecQuery("Select * from SMS_Report")

For Each objItem in colItems

objExcel.Cells(intRow, 1).Value = objItem.ReportID

objExcel.Cells(intRow, 2).Value = objItem.Name

objExcel.Cells(intRow, 3).Value = objItem.Category

objExcel.Cells(intRow, 4).Value = objItem.Comment

objExcel.Cells(intRow, 5).Value = objItem.ReportGUID

objExcel.Cells(intRow, 6).Value = objItem.DrillThroughColumns

objExcel.Cells(intRow, 7).Value = objItem.DrillThroughReportID

objExcel.Cells(intRow, 8).Value = objItem.DrillThroughReportPath

objExcel.Cells(intRow, 9).Value = objItem.DrillThroughURL

objExcel.Cells(intRow, 10).Value = objItem.GraphCaption

objExcel.Cells(intRow, 11).Value = objItem.GraphType

objExcel.Cells(intRow, 12).Value = objItem.GraphXCol

objExcel.Cells(intRow, 13).Value = objItem.GraphYCol

objExcel.Cells(intRow, 14).Value = objItem.MachineDetail

objExcel.Cells(intRow, 15).Value = objItem.MachineSource

objExcel.Cells(intRow, 16).Value = objItem.NumPrompts

objExcel.Cells(intRow, 17).Value = objItem.RefreshInterval

objExcel.Cells(intRow, 18).Value = objItem.ReportParams

objExcel.Cells(intRow, 19).Value = objItem.SecurityKey

objExcel.Cells(intRow, 20).Value = objItem.StatusMessageDetailSource

objExcel.Cells(intRow, 21).Value = objItem.UnicodeData

objExcel.Cells(intRow, 22).Value = objItem.XColLabel

objExcel.Cells(intRow, 23).Value = objItem.YColLabel

intRow = intRow + 1

objExcel.Range("A1:W1").Select

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)

Set objRange = objExcel.Range("A1")

objRange.Sort objRange,1,,,,,,1

MsgBox "Done"

Configuration Manager Report To Retrieve Installed Software For A Specified Machine

2010-10-08T15:04:26Z

This SQL query was developed to be used as a Report to display the installed software inventory for a specified machine. This SQL Query and Report requires that you have Asset Intelligence Reports installed.

Note: To use the SQL script as a Report copy and paste the Name, Category, Comment, Prompt Properties and of course the SQL statement shown below to the appropriate new Report boxes or modify to your liking as needed.

Name: Installed Software On A Specified Machine

Category: Installed Software Products

Comment: This Report Will Display The Installed Software Inventory For A Specified Machine - Requires Asset Intelligence Reports Is Installed.

Prompt Properties:

Name: Variable

Prompt Text: Machine Name

Check “Provide a SQL statement” and enter the following:

Select Netbios_Name0

From v_R_System_Valid

SQL Query:

Select vRSV.Netbios_Name0 'Machine Name',

'Display Name' = Case

When vGIS.ARPDisplayName0 Is NULL Then ''

Else vGIS.ARPDisplayName0

End,

vGIS.ProductName0 'Product Name',

'Product Version' = Case

When vGIS.ProductVersion0 Is NULL Then ''

Else vGIS.ProductVersion0

End,

'Publisher' = Case

When vGIS.Publisher0 Is NULL Then ''

Else vGIS.Publisher0

End,

'Install Date' = Case

When vGIS.InstallDate0 Is NULL Then ''

Else Convert(VarChar(10), vGIS.InstallDate0, 101)

End

From v_R_System_Valid vRSV

Join v_GS_Installed_Software vGIS On vRSV.ResourceID = vGIS.ResourceID

Where vRSV.Netbios_Name0 like @Variable

Order By 'Display Name'