Here you will find the steps necessary to set or configure ConfigMgr 2007 Web Reports or ConfigMgr 2007 R2 Reporting options to open the selected reports within the console or with Internet Explorer.
1. Open the Configuration Manager console "System Center Configuration Manager"
2. Right mouse click on your "Site Database (Site_Code – Server_Name, Description) and from the context menu select "Report Options"
3. Then select “Open reports in a new window”
Note: This configuration change is console specific meaning that if you make the change on the site server it will not be set on your workstation console. Simply follow the same steps above provided you upgraded your workstation console to ConfigMgr 2007 R2 to open the reports in Internet Explorer.
Tip: From the Report Options dialog box you can also find the ConfigMgr Web Reports web page link (URL) and copy and pasted the link into your Internet browser to access the reports from IE. You can also see the Report Server NetBIOS name as well as set options to “Use Reporting Services Reports for Admin console report links”.
For additional information select “Help” on the “Report Options” dialog box.
The SQL Query here will allow you to retrieve information from your SQL Server installation pertaining to your TCP Endpoints.
SQL Query:
Select
Name 'Endpoint Name',
'Protocol' = Case
When Protocol = 1 Then 'HTTP'
When Protocol = 2 Then 'TCP'
When Protocol = 3 Then 'Name Pipes'
When Protocol = 4 Then 'Shared memory'
When Protocol = 5 Then 'Virtual Interface Adapter'
End,
Port,
'Type' = Case
When Type = 1 Then 'SOAP'
When Type = 2 Then 'TSQL'
When Type = 3 Then 'Service Broker'
When Type = 4 Then 'Database Mirroring'
'State' = Case
When State = 1 Then 'Stopped'
When State = 2 Then 'Disabled'
Else 'Started'
'Administrative Endpoint' = Case
When Is_Admin_Endpoint = 0 Then 'No'
When Is_Admin_Endpoint = 1 Then 'Yes'
IP_Address
From Sys.TCP_Endpoints
In the January 2010 Issue of TechNet Magazine Microsoft’s Steve Rachui has a great write up on System Center Configuration Manager: SQL Server Reporting Services and System Center Configuration Manager.
Check it out and drop by his blog page too.
SQL Server Reporting Services and System Center Configuration Manager
http://technet.microsoft.com/en-us/magazine/ee914611.aspx
Steve Rachui's Manageability blog - ConfigMgr/OpsMgr
http://blogs.msdn.com/steverac
This VBS script will return the last Hardware Scan information for all the resources in a specified collection.
Note: Change the All Systems collection _Res_Coll_Sms00001 to any other collection needed.
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 = "Machine Name"
objExcel.Cells(1, 2).Value = "Last HW Scan"
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 SD.Name0, WS.LastHWScan" & _
" From System_Disc SD" & _
" Join WorkstationStatus_Data WS On WS.MachineID = SD.ItemKey" & _
" Join _Res_Coll_Sms00001 RC On RC.MachineId = SD.ItemKey" _
, objConnection, adOpenStatic, adLockOptimistic
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
objExcel.Cells(intRow, 1).Value = objRecordSet.Fields("Name0").Value
objExcel.Cells(intRow, 2).Value = objRecordSet.Fields("LastHWScan").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"
This VBS script will allow you to retrieve the machine names and their appropriate Network Operating Systems (NOS) names from Active Directory.
objExcel.Cells(1, 2).Value = "Network Operating System"
Const ADS_SCOPE_SUBTREE = 2
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOOBject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("DefaultNamingContext")
strBase = "<LDAP://" & strDNSDomain & ">"
strFilter = "(&(ObjectCategory=Computer))"
strAttributes = "Name, OperatingSystem, LastLogOff"
strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";SubTree"
objCommand.CommandText = strQuery
objCommand.Properties("Page Size") = 99999
objCommand.Properties("Timeout") = 300
objCommand.Properties("Cache Results") = False
Set objRecordSet = objCommand.Execute
objExcel.Cells(intRow, 1).Value = objRecordSet.Fields("Name").value
objExcel.Cells(intRow, 2).Value = objRecordset.Fields("OperatingSystem")
loop
objExcel.Selection.Interior.ColorIndex = 19
Msgbox "Done"
Provided here for your reference - and mine - is a list of the more common SMS log files with an easy to use description of each.
Client Component Installation Manager - Ccim
Client Configuration Manager - Ccm
Client Install Data Manager - Cidm
Collection Evaluator - Colleval
Component Status Summarizer - Compsumm
Courier Sender - Coursend
Courier Sender Confirmation - Cscnfsvc
Despooler - Despool
Discovery Data Manager - Ddm
Distribution Manager - Distmgr
Hardware Inventory Agent - Hinv
Hierarchy Manager - Hman
Hierarchy Manager - Sitecomp
Inbox Manager - Inboxmgr
Inbox Manager Assistant - Inboxast
Inventory Data Loader - Dataldr
Inventory Processor - Invproc
LAN Sender - Sender
License Metering - Licrsvc
License Server Manager - Licsvcfg
Network Discovery - Netdisc
Offer Manager - Offermgr
Offer Status Summarizer - Offersum
Replication Manager - Replmgr
Scheduler - Sched
Sender - Sender
Setup - SMSsetup
Site Component Manager - Sitecomp
Site Control Manager - Sitectrl
Site System Status Summarizer - Sitestat
SMS Administrator Provider - SMSprov
SMS Executive - SMSexec
SMS NT Logon Manager - NT_logon
SMS Provider - SMSprov
SMS SQL Monitor - SMSdbmon
SMS_Bootstrap Service - SMS_bootstrap
Software Inventory Agent - Sinv
Software Inventory Processor - Sinvproc
SQL Error Logs - Errorlog (Supports up yo .6)
Status Manager - Statmgr
Windows Networking Logon Discovery - NTlgdscm
Windows Networking Logon Installation - NTlginst
Windows NT Logon Discovery Agent - Ntlgdsca
Windows NT Logon Discovery Manager - Ntlgdscm
Windows NT Logon Server Manager - NT_logon
Windows NT Server Discovery Agent – Ntsvrdis
This By Request VBS script will provide you with an example of how to merge or use two disparate WMI classes in order to consolidate information contained within the two disconnected classes.
For example the WMI SMS_G_System_WorkStation_Status class contains the Resource ID rather than the resource NetBIOS or computer name and makes retrieving the information somewhat of a challenge to amalgamate. However if you tie the ResourceID to the ResourceID for the Computer name found in the SMS_R_System WMI class the information retrieved will be matched appropriately.
strComputer = InputBox ("Enter SMS Server Name")
strSiteCode = InputBox ("Enter Site Code")
objExcel.Cells(1, 2).Value = "Resource ID"
Set objWMIService = GetObject("winmgmts://" & strComputer & "\root\sms\site_" & strSiteCode)
Set colItems = objWMIService.ExecQuery("Select * from SMS_R_System")
For Each objItems in colItems
Set colItem = objWMIService.ExecQuery _
("Select * from SMS_G_System_WorkStation_Status")
For Each objItem in colItem
ResourceID = objItems.ResourceID
objExcel.Cells(intRow, 1).Value = objItems.Name
objExcel.Cells(intRow, 2).Value = ResourceID
Next
The VBS Script here will read a list of machines in a text file called MachineList and will provide you with the processor platform information for each resource.
VBS Script
objExcel.Cells(1, 2).Value = "Architecture"
Set Fso = CreateObject("Scripting.FileSystemObject")
Set InputFile = fso.OpenTextFile("MachineList.Txt")
Do While Not (InputFile.atEndOfStream)
strComputer = InputFile.ReadLine
On Error Resume Next
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem in colItems
objExcel.Cells(intRow, 1).Value = UCase(strComputer)
If Err.Number <> 0 Then
objExcel.Cells(intRow, 2).Value = Err.Description
Else
objExcel.Cells(intRow, 2).Value = objItem.Architecture
If objExcel.Cells(intRow, 2).Value = 0 Then
objExcel.Cells(intRow, 2).Value = "x86"
ElseIf objExcel.Cells(intRow, 2).Value = 1 Then
objExcel.Cells(intRow, 2).Value = "MIPS"
ElseIf objExcel.Cells(intRow, 2).Value = 2 Then
objExcel.Cells(intRow, 2).Value = "Alpha"
ElseIf objExcel.Cells(intRow, 2).Value = 3 Then
objExcel.Cells(intRow, 2).Value = "PowerPC"
ElseIf objExcel.Cells(intRow, 2).Value = 6 Then
objExcel.Cells(intRow, 2).Value = "Intel Itanium Processor Family (IPF)"
ElseIf objExcel.Cells(intRow, 2).Value = 9 Then
objExcel.Cells(intRow, 2).Value = "x64"
End If
This By Request VBS Script is in response to an email request where I was asked the following: “I have a VB script to open my CD drive but I have to close it myself. Can you tell me what the command to close it is. All I can find is the eject command.”
Set objCdDrive = CreateObject("WMPlayer.OCX.7")
Set colCDROM = objCdDrive.cdromCollection
If colCDROM.Count >= 1 then
For i = 0 to colCDROM.Count - 1
colCDROM.Item(i).Eject
My reply was just loop it using and additional Next and I sent him back the script below.
Note: If the Drive door is already opened when you run this VBS script it will just close the door. On laptops the mechanics may not be the same as desktops and the drive door will only open since it cannot be pulled back in.
The VBS script below will allow you to send the Software Metering properties for your site to an Excel spreadsheet as viewed in the ConfigMgr Software Metering leaf. The second script will provide the same information for those that are Enabled.
VBS Script To Enumerate Software Metering Properties
objExcel.Cells(1, 1).Value = "Name"
objExcel.Cells(1, 2).Value = "Original File Name"
objExcel.Cells(1, 3).Value = "File Name"
objExcel.Cells(1, 4).Value = "File Version"
objExcel.Cells(1, 5).Value = "Language ID"
objExcel.Cells(1, 6).Value = "Site Code"
objExcel.Cells(1, 7).Value = "Apply To Child Sites"
objExcel.Cells(1, 8).Value = "Enabled"
objExcel.Cells(1, 9).Value = "Rule ID"
" Select ProductName, OriginalFileName, FileName, FileVersion, " & _
" LanguageID, SiteCode, ApplyToChildSites, Enabled, RuleID " & _
" From v_MeteredProductRule" _
objExcel.Cells(intRow, 1).Value = objRecordSet.Fields("ProductName").Value
objExcel.Cells(intRow, 2).Value = objRecordSet.Fields("OriginalFileName").Value
objExcel.Cells(intRow, 3).Value = objRecordSet.Fields("FileName").Value
objExcel.Cells(intRow, 4).Value = objRecordSet.Fields("FileVersion").Value
objExcel.Cells(intRow, 5).Value = objRecordSet.Fields("LanguageID").Value
objExcel.Cells(intRow, 6).Value = objRecordSet.Fields("SiteCode").Value
objExcel.Cells(intRow, 7).Value = objRecordSet.Fields("ApplyToChildSites").Value
objExcel.Cells(intRow, 8).Value = objRecordSet.Fields("Enabled").Value
objExcel.Cells(intRow, 9).Value = objRecordSet.Fields("RuleID").Value
objExcel.Range("A1:I1").Select
VBS Script To Enumerate Only Enabled Software Metering Properties
" From v_MeteredProductRule Where Enabled = 1 " _
The CSI-Windows VBScript UAC Function for Snooping Permissions (IfUserPerms.vbs) Version 1.2 written by our pal Darwin Sanoy has been released and is available for download.
With this script you can quickly determine if your current session is capable of elevating to administrator rights AND whether the session is currently elevated. The beauty of the script is that you can first determine if you have the necessary privileges and credentials or rights to perform a task or start an executable. If your current rights are not elevated then you can take additional scripting actions to elevate (not a part of this particular sample).
Darwin developed this script because many UAC scripting solutions and samples do not take a proactive approach to examining the environment before deciding whether to attempt a privileged operation. Checking things out ahead of time allows for assured results, fewer errors and more intelligent status messages to logs or end users when the environment does not support the desired privileges.
Download 116_IfUserPerms.zip:
http://csi-windows.com/toolkit/ifuserperms
This VBS Script will send your resources assigned and installed site codes to Excel.
objExcel.Cells(1, 2).Value = "Assigned Site"
objExcel.Cells(1, 3).Value = "Installed Site"
" Select SD.Name0, A.SMS_Assigned_Sites0, I.SMS_Installed_Sites0" & _
" From v_R_System SD" & _
" Join v_RA_System_SMSAssignedSites A On SD.ResourceID = A.ResourceID" & _
" Join v_RA_System_SMSInstalledSites I On SD.ResourceID = I.ResourceID" _
objExcel.Cells(intRow, 2).Value = objRecordSet.Fields("SMS_Assigned_Sites0").Value
objExcel.Cells(intRow, 3).Value = objRecordSet.Fields("SMS_Installed_Sites0").Value
objExcel.Range("A1:C1").Select
This VBS Script will take a remote site servers name and site code and will send the site servers roles to an Excel spreadsheet for your records.
strComputer = InputBox("Enter Site Server Name")
strSiteCode = InputBox("Enter Site Code")
objExcel.Cells(1, 1).Value = "Server Name"
objExcel.Cells(1, 2).Value = "Site Code"
objExcel.Cells(1, 3).Value = "Role Name"
Set colItems = objWMIService.ExecQuery("Select * from SMS_SystemResourceList")
objExcel.Cells(intRow, 1).Value = objItem.ServerName
objExcel.Cells(intRow, 2).Value = objItem.SiteCode
objExcel.Cells(intRow, 3).Value = objItem.RoleName
This VBS Script will send the Windows Updates from a specified machine name to excel.
strComputer = InputBox ("Enter Machine Name")
objExcel.Cells(1, 2).Value = "Update"
objExcel.Cells(1, 3).Value = "Status"
objExcel.Cells(1, 4).Value = "Date"
objExcel.Cells(1, 5).Value = "Source"
Set objSession = CreateObject("Microsoft.Update.Session", strComputer)
Set objSearcher = objSession.CreateUpdateSearcher
intHistoryCount = objSearcher.GetTotalHistoryCount
Set colHistory = objSearcher.QueryHistory(1, intHistoryCount)
For Each objEntry in colHistory
objExcel.Cells(intRow, 2).Value = objEntry.Title
Select Case objEntry.ResultCode
Case 0 ResultCode = "Not Started"
Case 1 ResultCode = "In Progress"
Case 2 ResultCode = "Success"
Case 3 ResultCode = "Error"
Case 4 ResultCode = "Failed"
Case 5 ResultCode = "Cancelled"
End Select
objExcel.Cells(intRow, 3).Value = ResultCode
objExcel.Cells(intRow, 4).Value = objEntry.Date
objExcel.Cells(intRow, 5).Value = objEntry.ClientApplicationID
objExcel.Range("A1:E1").Select
Set objRange = objExcel.Range("D1")
objRange.Sort objRange,2,,,,,,1
This VBS Script will allow you to find SMS Services on a specified site server.
objExcel.Cells(1, 1).Value = "Service Name"
objExcel.Cells(1, 2).Value = "Account Name"
Set colItems = objWMIService.ExecQuery("Select * from Win32_Service Where Name like 'SMS_%'")
objExcel.Cells(intRow, 1).Value = objItem.Name
objExcel.Cells(intRow, 2).Value = objItem.StartName
This VBS Script will send the following information for a specifies site server to excel: The Machine Name and whether it is Obsolete or Active and its last Hardware Scan Date.
objExcel.Cells(1, 2).Value = "Obsolete"
objExcel.Cells(1, 3).Value = "Active"
objExcel.Cells(1, 4).Value = "Hardware Scan Date"
" Select SD.Name0, SD.Obsolete0, SD.Active0," & _
" Convert(VarChar(11), WS.LastHwScan, 109)Date" & _
" Join v_GS_WORKSTATION_STATUS WS On SD.ResourceID = WS.ResourceID" _
objExcel.Cells(intRow, 2).Value = objRecordSet.Fields("Obsolete0").Value
If objExcel.Cells(intRow, 2).Value = "1" Then
objExcel.Cells(intRow, 2).Value = "Yes"
objExcel.Cells(intRow, 2).Value = "No"
objExcel.Cells(intRow, 3).Value = objRecordSet.Fields("Active0").Value
If objExcel.Cells(intRow, 3).Value = "1" Then
objExcel.Cells(intRow, 3).Value = "Yes"
objExcel.Cells(intRow, 3).Value = "No"
objExcel.Cells(intRow, 4).Value = objRecordSet.Fields("Date").Value
objExcel.Range("A1:D1").Select
This VBS Script will allow you to browse for a directory folder and will delete all of the files in it.
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder (0, "Select The Folder To Enumerate :", (0))
If objFolder Is Nothing Then
Wscript.Quit
Set objFolderItem = objFolder.Self
objPath = objFolderItem.Path
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(objPath)
For each objFile in objFolder.Files
If objFolder.Files.Count > 0 Then
objFile.Delete True
This VBS script will take a list of machine names from a text file called MachineList.Txt and will send the following information to an Excel spreadsheet taken from the “All Systems” Collection: Machine Name, Resource ID, Site Code and Domain name.
objExcel.Cells(1, 3).Value = "Site Code"
objExcel.Cells(1, 4).Value = "Domain"
Set colItems = objWMIService.ExecQuery("Select * from SMS_CM_RES_COLL_SMS00001 Where Name = '" & strComputer & "'")
objExcel.Cells(intRow, 2).Value = "Not Found"
Err.Clear
objExcel.Cells(intRow, 2).Value = objItem.ResourceID
objExcel.Cells(intRow, 3).Value = objItem.SiteCode
objExcel.Cells(intRow, 4).Value = objItem.Domain
LogonType 10 is RemoteInteractive and covers both Interactive and Remote Terminal Services sessions. This is not avalible for Windows 2000
strComputer = InputBox("Enter Terminal Server Name")
objExcel.Cells(1, 1).Value = "Logon Name"
objExcel.Cells(1, 2).Value = "Full Name"
objExcel.Cells(1, 3).Value = "Timestamp"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colRts = objWMIService.ExecQuery _
("Select * from Win32_LogonSession Where LogonType = 10")
For Each objSession in colRts
Set colItems = objWMIService.ExecQuery("Associators of " _
& "{Win32_LogonSession.LogonId=" & objSession.LogonId & "} " _
& "Where AssocClass = Win32_LoggedOnUser Role = Dependent" )
objExcel.Cells(intRow, 1).Value = objItem.Domain & "\" & objItem.Name
objExcel.Cells(intRow, 2).Value = objItem.FullName
objExcel.Cells(intRow, 3).Value = ConvWbemTime(objSession.StartTime)
Function ConvWbemTime(IntervalFormat)
sMonth = mid(IntervalFormat,5,2)
sDay = mid(IntervalFormat,7,2)
sYear = mid(IntervalFormat,1,4)
sHour = mid(IntervalFormat,9,2)
sMinutes = mid(IntervalFormat,11,2)
ConvWbemTime = sMonth & "-" & sDay & "-" & sYear & " " & sHour & ":" & sMinutes
End Function
This VBS Script will send all of the NT or Active Directory (AD) domain user names to excel.
strDomain = InputBox ("Enter Domain Name Or Machine Name")
objExcel.Cells(1, 1).Value = "Domain Name"
objExcel.Cells(1, 2).Value = "User Name"
Set colAccounts = GetObject("WinNT://" & strDomain & "")
colAccounts.Filter = Array("user")
For Each objUser In colAccounts
objExcel.Cells(intRow, 1).Value = UCase(strDomain)
objExcel.Cells(intRow, 2).Value = objUser.Name
Set objRange = objExcel.Range("B1")
This VBS Script will send all of the NT or Active Directory (AD) domain group names to excel.
objExcel.Cells(1, 2).Value = "Group Name"
Set colGroups = GetObject("WinNT://" & strDomain & "")
colGroups.Filter = Array("group")
For Each objGroup In colGroups
objExcel.Cells(intRow, 2).Value = objGroup.Name
This Script Requires MMC 2.0 and Above.
Set objMMC = CreateObject("MMC20.Application")
objMMC.Show
objMMC.Document.snapins.add("Active Directory Users and Computers")
objMMC.Document.snapins.add("Active Directory Sites and Services")
objMMC.Document.snapins.add("Active Directory Domains and Trusts")
This Script Requires MMC 2.0 And Above.
strSnapin = InputBox("Enter Snapin Name")
objMMC.Document.snapins.add(strSnapin)
This VBS Script will allow you to monitor the SQL Server service state for machines in a text file called MachineList.Txt. If the service is stopped the color will be red.
strServiceName = "MSSQLSERVER"
objExcel.Cells(1, 2).Value = "Results"
Set colItems = objWMIService.ExecQuery("Select * from Win32_Service Where Name = '" & strServiceName & "'")
objExcel.Cells(intRow, 1).Value = objItem.SystemName
objExcel.Cells(intRow, 2).Value = objItem.State
If objExcel.Cells(intRow, 2).Value = "Stopped" Then
objExcel.Cells(intRow, 2).Font.ColorIndex = 3
This VBS Script will take a list of machines in a text file called MachineList.Txt and will send their Management Point (MP) information to Excel
objExcel.Cells(1, 2).Value = "Current Management Point"
Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/ccm")
Set colItems = objWMIService.ExecQuery("Select * from SMS_Authority")
strSiteCode = Replace(objItem.Name, "SMS:", "")
objExcel.Cells(intRow, 2).Value = objItem.CurrentManagementPoint
objExcel.Cells(intRow, 3).Value = strSiteCode
This VBS Script will allow you to find the collection ID for a specified collection name.
strComputer = InputBox ("Enter Site Server Name")
strName = InputBox ("Enter Collection Name")
Set colItems = objWMIService.ExecQuery("Select * From SMS_Collection Where Name = '" & strName & "'")
MsgBox "Collection ID: " & objItem.CollectionID _
& Chr(13) & "Collection Name: " & objItem.Name
This VBS Script will send last hardware scan information to Excel for your sites resources.
objExcel.Cells(1, 3).Value = "Time Stamp"
objExcel.Cells(1, 4).Value = "Scan Date"
" Select SD.Name0, SD.ResourceID, WD.LastHWScan," & _
" Convert(VarChar(11), WD.LastHwScan, 109) CD " & _
" Join v_Gs_Workstation_Status WD On SD.ResourceID = WD.ResourceID" _
objExcel.Cells(intRow, 2).Value = objRecordSet.Fields("ResourceID").Value
objExcel.Cells(intRow, 3).Value = objRecordSet.Fields("LastHWScan").Value
objExcel.Cells(intRow, 4).Value = objRecordSet.Fields("CD").Value
Set colGroups = GetObject("WinNT://" & strComputer & "/Administrators")
For Each objUser In colGroups.Members
strServer = InputBox ("Enter Primary Parent Site Server Name")
objExcel.Cells(1, 1).Value = "Site Code"
objExcel.Cells(1, 2).Value = "IP Subnet"
objRecordSet.Open " Select SiteCode, IpSubnet" & _
" From v_SiteBoundary_IPSubnet", objConnection, adOpenStatic, adLockOptimistic
objExcel.Cells(intRow, 1).Value = objRecordSet.Fields("SiteCode").Value
objExcel.Cells(intRow, 2).Value = objRecordSet.Fields("IpSubnet").Value
Here you will find SQL Server 6.5 to SQL Server 2008 Version information to January 2009.
SQL Server 6.5
6.50.201 - SQL Server 6.5 Release To Manufacturing (RTM)
6.50.213 - SQL Server 6.5 Service Pack (SP) 1
6.50.240 - SQL Server 6.5 Service Pack (SP) 2
6.50.258 - SQL Server 6.5 Service Pack (SP) 3
6.50.281 - SQL Server 6.5 Service Pack (SP) 4
6.50.415 - SQL Server 6.5 Service Pack (SP) 5
6.50.416 - SQL Server 6.5 Service Pack (SP) 5A
SQL Server 7.0
7.00.623 - SQL Server 7.0 Release To Manufacturing (RTM)
7.00.699 - SQL Server 7.0 Service Pack (SP) 1
7.00.842 - SQL Server 7.0 Service Pack (SP) 2
7.00.961 - SQL Server 7.0 Service Pack (SP) 3
7.00.1063 - SQL Server 7.0 Service Pack (SP) 4
SQL Server 2000
8.00.194 - SQL Server 2000 Release To Manufacturing (RTM)
8.00.384 - SQL Server 2000 Service Pack (SP) 1
8.00.534 - SQL Server 2000 Service Pack (SP) 2
8.00.760 - SQL Server 2000 Service Pack (SP) 3
8.00.2039 - SQL Server 2000 Service Pack (SP) 4
SQL Server 2005
9.00.1399 - SQL Server 2005 Release To Manufacturing (RTM)
9.00.2047 - SQL Server 2005 Service Pack (SP) 1
9.00.3042 - SQL Server 2005 Service Pack (SP) 2
9.00.3042.01 - SQL Server 2005 Service Pack (SP) 2A
9.00.3054 - SQL Server 2005 KB934458 Fix
9.00.3152 - SQL Server 2005 SP2 Cumulative Update 1
9.00.3175 - SQL Server 2005 SP2 Cumulative Update 2
9.00.3186 - SQL Server 2005 SP2 Cumulative Update 3
9.00.3200 - SQL Server 2005 SP2 Cumulative Update 4
9.00.3215 - SQL Server 2005 SP2 Cumulative Update 5
9.00.3228 - SQL Server 2005 SP2 Cumulative Update 6
9.00.3233 - SQL Server 2005 QFE Security Update
9.00.3239 - SQL Server 2005 SP2 Cumulative Update 7
9.00.3257 - SQL Server 2005 SP2 Cumulative Update 8
9.00.3282 - SQL Server 2005 SP2 Cumulative Update 9
9.00.3294 - SQL Server 2005 SP2 Cumulative Update 10
9.00.3301 - SQL Server 2005 SP2 Cumulative Update 11
9.00.4035 - SQL Server 2005 SP3
9.00.4207 - SQL Server 2005 SP3 Cumulative Update 1
SQL Server 2008
10.00.1600 - SQL Server 2008 Release To Manufacturing (RTM)
10.00.1763 - SQL Server 2008 RTM Cumulative Update 1
10.00.1779 - SQL Server 2008 RTM Cumulative Update 2
10.00.1787 - SQL Server 2008 RTM Cumulative Update 3