Don Hite at myITforum.com

VBS Script To Verify If A List Of Hot fixes Is Installed On A Specified Computer

2010-02-19T17:04:51Z

This VBS script is a modified version of my previous post below that will read a list of hot fixes stored in a text file called Hotfixes.Txt with the following format:

KB898461

WMFDist11

KB923561

The script will then list all of the hot fixes in the text file and whether or not the hot fix is installed along with the install short date if it is installed.

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

objExcel.Cells(1, 2).Value = strHotFixId & " Install Date"

Set Fso = CreateObject("Scripting.FileSystemObject")

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

Do While Not (InputFile.atEndOfStream)

strHotFixId = InputFile.ReadLine

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

Set colItems = objWMIService.ExecQuery( _

"Select * from Win32_QuickFixEngineering Where HotFixID ='" & strHotFixId & "'")

If colItems.Count > 0 Then

For Each objItem In colItems

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

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

Else

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

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

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

objExcel.Cells(intRow, 1).Font.ColorIndex = 3

objExcel.Cells(intRow, 2).Font.ColorIndex = 3

Else

End If

intRow = intRow + 1

Loop

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

objExcel.Cells.HorizontalAlignment = 2

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

MsgBox "Done"

VBS Script To Verify If A Specified Hot Fix Is Installed On A List Of Remote Machines

http://myitforum.com/cs2/blogs/dhite/archive/2007/08/05/vbs-script-to-verify-if-a-specified-hot-fix-is-installed-on-a-list-of-remote-machines.aspx

Setting Configuration Manager Web Reports and R2 Reporting Services Display Options

2010-01-29T21:05:43Z

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.

SQL Query To Retrieve SQL Server TCP EndPoint Information

2010-01-29T17:01:14Z

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

TechNet Magazine: SQL Server Reporting Services and SCCM

2010-01-28T19:11:50Z

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

VBS Script To Last Hardware Scan Information For A Collection

2009-12-23T19:58:40Z

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"

Get Domain Machines And Versions From Active Directory

2009-12-23T19:48:18Z

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"

Common SMS Log File Names

2009-12-23T19:43:55Z

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

By Request VBS Script Example For Merging Two WMI Classes

2009-12-23T19:42:12Z

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

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

MsgBox "Done"

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

2009-12-22T14:59:17Z

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

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"

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

2009-12-22T14:52:02Z

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

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

For i = 0 to colCDROM.Count - 1

colCDROM.Item(i).Eject

End If

VBS Script To Enumerate Software Metering Properties

2009-12-22T14:49:00Z

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