Setting Configuration Manager Web Reports and R2 Reporting Services Display Options

 

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.

 

 

 

Posted by dhite | with no comments
Filed under:

SQL Query To Retrieve SQL Server TCP EndPoint Information

 

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'

End,

'State' = Case

When State = 1 Then 'Stopped'

When State = 2 Then 'Disabled'

Else 'Started'

End,

'Administrative Endpoint' = Case

When Is_Admin_Endpoint = 0 Then 'No'

When Is_Admin_Endpoint = 1 Then 'Yes'

End,

IP_Address

From Sys.TCP_Endpoints

 

 

Posted by dhite | with no comments
Filed under:

TechNet Magazine: SQL Server Reporting Services and SCCM

 

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

Posted by dhite | with no comments
Filed under:

VBS Script To Last Hardware Scan Information For A Collection

 

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"

 

 

Posted by dhite | 1 comment(s)
Filed under:

Get Domain Machines And Versions From Active Directory

 

This VBS script will allow you to retrieve the machine names and their appropriate Network Operating Systems (NOS) names from Active Directory.

 

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"

 

Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")

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

 

objRecordSet.MoveFirst

Do Until objRecordSet.EOF

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

objExcel.Cells(intRow, 2).Value = objRecordset.Fields("OperatingSystem")

objRecordSet.MoveNext

intRow = intRow + 1

loop

 

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

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

 

Msgbox "Done"

 

 

Posted by dhite | with no comments
Filed under:

Common SMS Log File Names

 

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

 

 

Posted by dhite | with no comments
Filed under:

By Request VBS Script Example For Merging Two WMI Classes

 

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.

 

VBS Script:

 

strComputer = InputBox ("Enter SMS 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 = "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

intRow = intRow + 1

Next

 

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

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

 

MsgBox "Done"

 

 

Posted by dhite | with no comments
Filed under:

VBS Script To Return The Processor Architecture Platform Information From A List Of Machines

 

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

 

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 = "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

End If

Next

intRow = intRow + 1

loop

 

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

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

 

MsgBox "Done"

 

 

Posted by dhite | with no comments
Filed under:

By Request VBS Script To Eject And Then Close A CD-ROM Or DVD Drive Door

 

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

Next

End If

 

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.

 

VBS Script:

 

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

Next

 

For i = 0 to colCDROM.Count - 1

colCDROM.Item(i).Eject

Next

 

End If

 

 

Posted by dhite | with no comments
Filed under:

VBS Script To Enumerate Software Metering Properties

 

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

 

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 = "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"

 

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 ProductName, OriginalFileName, FileName, FileVersion, " & _ 

" LanguageID, SiteCode, ApplyToChildSites, Enabled, RuleID " & _ 

" From v_MeteredProductRule"  _

, objConnection, adOpenStatic, adLockOptimistic

objRecordSet.MoveFirst

Do Until objRecordSet.EOF

 

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

objRecordSet.MoveNext

intRow = intRow + 1

Loop

 

objExcel.Range("A1:I1").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 Enumerate Only Enabled Software Metering Properties

 

 

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 = "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"

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 ProductName, OriginalFileName, FileName, FileVersion, " & _ 

" LanguageID, SiteCode, ApplyToChildSites, Enabled, RuleID " & _ 

" From v_MeteredProductRule Where Enabled = 1 " _

, objConnection, adOpenStatic, adLockOptimistic

objRecordSet.MoveFirst

Do Until objRecordSet.EOF

 

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

objRecordSet.MoveNext

intRow = intRow + 1

Loop

 

objExcel.Range("A1:I1").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"

 

 

Posted by dhite | with no comments
Filed under:

CSI-Windows VBScript UAC Function for Snooping Permissions

 

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

 

Posted by dhite | with no comments
Filed under:

VBS Script To Send Clients Assigned And Installed Site Codes To Excel

 

This VBS Script will send your resources assigned and installed site codes to Excel.

 

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 = "Assigned Site"

objExcel.Cells(1, 3).Value = "Installed Site"

 

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, 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" _

, 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("SMS_Assigned_Sites0").Value

objExcel.Cells(intRow, 3).Value = objRecordSet.Fields("SMS_Installed_Sites0").Value

objRecordSet.MoveNext

intRow = intRow + 1

Loop

 

objExcel.Range("A1:C1").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"

 

 

 

Posted by dhite | with no comments
Filed under:

VBS Script To Send A Specified Site Servers Roles To Excel

 

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.

 

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 = "Server Name"

objExcel.Cells(1, 2).Value = "Site Code"

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

 

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

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

For Each objItem in colItems

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

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

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

intRow = intRow + 1

Next

 

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

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

 

Msgbox "Done"

 

 

Posted by dhite | with no comments
Filed under:

VBS Script Send A remote Machines Windows Updates List To Excel

 

This VBS Script will send the Windows Updates from a specified machine name to excel.

 

VBS Script:

 

strComputer = InputBox ("Enter Machine Name")

 

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 = "Update"

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

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

objExcel.Cells(1, 5).Value = "Source"

 

On Error Resume Next

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, 1).Value = UCase(strComputer)

 

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

intRow = intRow + 1

Next

 

objExcel.Range("A1:E1").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("D1")

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

 

MsgBox "Done"

 

 

 

Posted by dhite | with no comments
Filed under:

VBS Script Find SMS Services On A Remote Machine

 

This VBS Script will allow you to find SMS Services on a specified site server.

 

VBS Script:

 

strComputer = InputBox ("Enter Machine Name")

 

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

 

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

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

 

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_Service Where Name like 'SMS_%'")

For Each objItem in colItems

 

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

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

intRow = intRow + 1

Next

 

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

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

 

MsgBox "Done"

 

 

 

Posted by dhite | with no comments
Filed under:

VBS Script To Send Last Hardware Scan Date Info To Excel

 

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.

 

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 = "Obsolete"

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

objExcel.Cells(1, 4).Value = "Hardware Scan Date"

 

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, SD.Obsolete0, SD.Active0," & _ 

" Convert(VarChar(11), WS.LastHwScan, 109)Date" & _ 

" From v_R_System SD" & _

" Join v_GS_WORKSTATION_STATUS WS On SD.ResourceID = WS.ResourceID" _

, 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("Obsolete0").Value

If objExcel.Cells(intRow, 2).Value = "1" Then

objExcel.Cells(intRow, 2).Value = "Yes"

Else

objExcel.Cells(intRow, 2).Value = "No"

End If

objExcel.Cells(intRow, 3).Value = objRecordSet.Fields("Active0").Value

If objExcel.Cells(intRow, 3).Value = "1" Then

objExcel.Cells(intRow, 3).Value = "Yes"

Else

objExcel.Cells(intRow, 3).Value = "No"

End If

objExcel.Cells(intRow, 4).Value = objRecordSet.Fields("Date").Value

objRecordSet.MoveNext

intRow = intRow + 1

Loop

 

objExcel.Range("A1:D1").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"

 

 

 

Posted by dhite | with no comments
Filed under:

VBS Script To Browse For A Folder And Delete All Files In It

 

This VBS Script will allow you to browse for a directory folder and will delete all of the files in it.

 

VBS Script:

 

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.BrowseForFolder (0, "Select The Folder To Enumerate :", (0))

If objFolder Is Nothing Then

Wscript.Quit

Else

Set objFolderItem = objFolder.Self

objPath = objFolderItem.Path

End If

 

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

End If

Next

 

MsgBox "Done"

 

 

 

Posted by dhite | with no comments
Filed under:

VBS Script To Send Machines Site Code And Domain Information From A List Of Machines To Excel

 

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.

 

VBS Script:

 

On Error Resume Next

strComputer = InputBox ("Enter SMS 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 = "Resource ID"

objExcel.Cells(1, 3).Value = "Site Code"

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

 

Set Fso = CreateObject("Scripting.FileSystemObject")

Set InputFile = fso.OpenTextFile("MachineList.Txt")

Do While Not (InputFile.atEndOfStream)

strComputer = InputFile.ReadLine

 

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

Set colItems = objWMIService.ExecQuery("Select * from SMS_CM_RES_COLL_SMS00001 Where Name = '" & strComputer & "'")

If Err.Number <> 0 Then

objExcel.Cells(intRow, 1).Value = UCase(strComputer)

objExcel.Cells(intRow, 2).Value = "Not Found"

Err.Clear

End If

For Each objItem in colItems

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

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

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

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

Next

intRow = intRow + 1

Loop

 

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

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

 

MsgBox "Done"

 

 

Posted by dhite | with no comments
Filed under:

Terminal Server Users VBS Script

 

LogonType 10 is RemoteInteractive and covers both Interactive and Remote Terminal Services sessions. This is not avalible for Windows 2000

 

VBS Script:

 

strComputer = InputBox("Enter Terminal Server Name")

 

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

 

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" )

 

For Each objItem in colItems

objExcel.Cells(intRow, 1).Value = objItem.Domain & "\" & objItem.Name

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

objExcel.Cells(intRow, 3).Value = ConvWbemTime(objSession.StartTime)

Next

Next

intRow = intRow + 1

 

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

 

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

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

 

MsgBox "Done"

 

 

Posted by dhite | with no comments
Filed under:

VBS Script To Send Windows NT or Active Directory User Names To Excel

 

This VBS Script will send all of the NT or Active Directory (AD) domain user names to excel.

 

VBS Script:

 

strDomain = InputBox ("Enter Domain Name Or Machine Name")

 

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

 

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

intRow = intRow + 1

Next

 

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("B1")

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

 

MsgBox "Done"

 

 

Posted by dhite | with no comments
Filed under:

VBS Script To Send Windows NT or Active Directory Group Names To Excel

 

This VBS Script will send all of the NT or Active Directory (AD) domain group names to excel.

 

VBS Script:

 

strDomain = InputBox ("Enter Domain Name Or Machine Name")

 

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

 

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

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

 

Set colGroups = GetObject("WinNT://" & strDomain & "")

colGroups.Filter = Array("group")

For Each objGroup In colGroups

objExcel.Cells(intRow, 1).Value = UCase(strDomain)

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

intRow = intRow + 1

Next

 

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("B1")

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

 

MsgBox "Done"

 

 

Posted by dhite | with no comments
Filed under:

VBS Script To Add Multiple MMC 2.0 Snapins And Save It

 

This Script Requires MMC 2.0 and Above.

 

VBS Script:

 

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")

 

 

Posted by dhite | with no comments
Filed under:

VBS Script To Add An MMC Snapin From An Input Box

 

This Script Requires MMC 2.0 And Above.

 

VBS Script:

 

strSnapin = InputBox("Enter Snapin Name")

Set objMMC = CreateObject("MMC20.Application")

 

objMMC.Show

objMMC.Document.snapins.add(strSnapin)

 

 

Posted by dhite | with no comments
Filed under:

VBS Script To Monitor SQL Servers SQL Service

 

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.

 

VBS Script:

 

strServiceName = "MSSQLSERVER"

 

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 = "Results"

 

Set Fso = CreateObject("Scripting.FileSystemObject")

Set InputFile = fso.OpenTextFile("MachineList.Txt")

Do While Not (InputFile.atEndOfStream)

strComputer = InputFile.ReadLine

 

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_Service Where Name = '" & strServiceName & "'")

For Each objItem in colItems

 

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

End If

Next

intRow = intRow + 1

loop

 

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

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

 

MsgBox "Done"

 

 

Posted by dhite | with no comments
Filed under:

VBS Script To Send Clients Management Point Information To Excel

 

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

 

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 = "Current Management Point"

objExcel.Cells(1, 3).Value = "Site Code"

 

Set Fso = CreateObject("Scripting.FileSystemObject")

Set InputFile = fso.OpenTextFile("MachineList.Txt")

Do While Not (InputFile.atEndOfStream)

strComputer = InputFile.ReadLine

 

Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/ccm")

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

 

For Each objItem in colItems

strSiteCode = Replace(objItem.Name, "SMS:", "")

objExcel.Cells(intRow, 1).Value = UCase(strComputer)

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

objExcel.Cells(intRow, 3).Value = strSiteCode

Next

 

intRow = intRow + 1

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

 

Msgbox "Done"

 

 

Posted by dhite | with no comments
Filed under:

VBS Script To Find A Configuration Manager Collection ID For Specified Collection Name

 

This VBS Script will allow you to find the collection ID for a specified collection name.

 

VBS Script:

 

strComputer = InputBox ("Enter Site Server Name")

strSiteCode = InputBox ("Enter Site Code")

strName = InputBox ("Enter Collection Name")

 

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

Set colItems = objWMIService.ExecQuery("Select * From SMS_Collection Where Name = '" & strName & "'")

 

For Each objItem in colItems

MsgBox "Collection ID: " & objItem.CollectionID _

& Chr(13) & "Collection Name: " & objItem.Name

 

Next

 

 

Posted by dhite | with no comments
Filed under:

VBS Script To Send Last Hardware Scan Date Information To Excel

 

This VBS Script will send last hardware scan information to Excel for your sites resources.

 

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 = "Resource ID"

objExcel.Cells(1, 3).Value = "Time Stamp"

objExcel.Cells(1, 4).Value = "Scan Date"

 

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, SD.ResourceID, WD.LastHWScan," & _ 

" Convert(VarChar(11), WD.LastHwScan, 109) CD " & _ 

" From v_R_System SD" & _

" Join v_Gs_Workstation_Status WD On SD.ResourceID = WD.ResourceID" _

, 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("ResourceID").Value

objExcel.Cells(intRow, 3).Value = objRecordSet.Fields("LastHWScan").Value

objExcel.Cells(intRow, 4).Value = objRecordSet.Fields("CD").Value

 

objRecordSet.MoveNext

intRow = intRow + 1

Loop

 

objExcel.Range("A1:D1").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"

 

 

Posted by dhite | with no comments
Filed under:

VBS Script To Send A Remote Machines Local Administrators List To Excel

 

VBS Script:

 

strComputer = InputBox ("Enter Machine Name")

 

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 = "User Name"

 

Set colGroups = GetObject("WinNT://" & strComputer & "/Administrators")

For Each objUser In colGroups.Members

objExcel.Cells(intRow, 1).Value = UCase(strComputer)

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

intRow = intRow + 1

Next

 

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("B1")

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

 

MsgBox "Done"

 

 

 

Posted by dhite | with no comments
Filed under:

VBS Script To Send All Configuration Manager IP Subnet Boundaries To Excel

 

VBS Script:

 

strServer = InputBox ("Enter Primary Parent 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 = "Site Code"

objExcel.Cells(1, 2).Value = "IP Subnet"

 

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 SiteCode, IpSubnet" & _ 

" From v_SiteBoundary_IPSubnet", objConnection, adOpenStatic, adLockOptimistic

objRecordSet.MoveFirst

Do Until objRecordSet.EOF

 

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

objExcel.Cells(intRow, 2).Value = objRecordSet.Fields("IpSubnet").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"

 

 

Posted by dhite | with no comments
Filed under:

SQL Server Versioning Information

 

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

 

 

 

Posted by dhite | with no comments
More Posts Next page »