June 2008 - Posts

Advertisement Status For Multiple Advertisement IDs


This SQL query will allow you to retrieve Advertisement information for multiple advertisement ID’s.


SQL Query:



OfferName Name,



ProgramsStarted Started,

ProgramsFailure Errors,

ProgramsSuccess Success,

OfferID 'Advertisement ID'


From vOfferStatusSummarizerRoot

Where ScheduleToken = '0001128000080008'

And OfferID In ('XXX12345', 'XXX67890')


Order by OfferName




Posted by dhite | with no comments
Filed under:

SQL Query To List Roaming Boundary IP Subnets


This SQL query will return all of the Roaming IP subnet boundaries for a specified site code.


SQL Query:


Select IPSubnet

From RoamingBoundaryIPSubnet


Where SiteCode = 'XXX'

Order by SiteCode




Posted by dhite | with no comments
Filed under:

Knock On Wood


To knock on wood means that you do not want to tempt fate or are wishing for good luck especially after you hope for something. An example would be “I hope it don’t rain the ball game out tonight…knock on wood”.


This custom supposedly arose during the time of Emperor Constantine when Christians were able to touch the crucifixion cross of Christ as it was carried in public processions. After the central cross was placed in Constantinople the practice was to touch any wooden cross or crucifix and later extended to include anything made of wood.




Posted by dhite | with no comments
Filed under:

Hiding Selected OpsMgr 2007 Console Views


Here you will find the steps necessary to hide selected OpsMgr console views. You can also use this procedure to show items that are not presently available.


1. Open the Operations Console.

2. Select "Monitoring" if it is not open.

3. Click on "Show or hide views..."


The Show or hide views dialog box will appear where you can check or uncheck the views that you want to be displayed or not be displayed in the console.


Note: You can also choose “Select All” or “Select None”.


The following views are available:


Agentless Exception Monitoring

Data Warehouse

Microsoft Audit Collection Services

Microsoft SQL Server

Microsoft System Center Configuration Manager 2007

Microsoft Windows Client

Network Device

Operations Manager

Synthetic Transaction

Web Application




Posted by dhite | with no comments
Filed under:

Adding Additional Time Clocks To The Windows Vista Taskbar


Here you will find information on how to add additional time clock(s) to your Windows Vista taskbar.


1. Right mouse click on your existing clock in the taskbar.


2. Select “Adjust Date/Time”.


3. From the Date and Time dialog box select the “Additional Clocks” tab.


4. To show one additional clock select the first checkbox to “Show this clock”.


Note: To show two additional clocks rather than one select both occurrences of “Show this clock”.


5. Then select the time zone that you want to use.


6. Next at the task to “Enter display name” enter a descriptive name for the clock.


7. Then select “OK” to complete the task.


To test the new setting hover or move your mouse over your clock in the taskbar and the additional information will be displayed. You can also click on your clock in the taskbar to open the window to show the calendar and all your graphical clocks.




Posted by dhite | with no comments
Filed under:

HTA Script To Retrieve Network Operating System Information For XP Workstations


This HTA script will allow you to enter a site server name and three letter site code into input dialog boxes and will then gather the following information for all of the XP workstations in your database: Machine Name, Operating system (Caption and Version concatenated), install date, description or comment if any and the last boot time.


Machine Name



Installed Date


Last Boot Date


Microsoft Windows XP Professional (Service Pack 2)


4/3/2008 9:52:00 AM


5/5/2008 9:28:00 AM


Microsoft Windows XP Professional (Service Pack 2)


4/3/2008 10:19:00 AM


5/6/2008 1:47:00 PM


Microsoft Windows XP Professional (Service Pack 2)


2/11/2008 10:40:00 AM


2/21/2008 9:47:00 AM


HTA Script:




<Title>HTA Script</Title>


Body {Background-Color: CornSilk}




Caption = Yes

Border = Thick

ShowInTaskBar = No

MaximizeButton = Yes

MinimizeButton = Yes>


<script Language = VBScript>

Window.Document.Title = "Operating System Version Information"

Sub WindowsLoad

strSqlServer = SqlServer.value

strDatabase = Database.value


strHTML = "<table border='1' style='border-collapse: collapse' bordercolor='SaddleBrown' id='Table1' >"

strHTML = strHTML & "<tr>"

strHTML = strHTML & "<br>"

strHTML = strHTML & "<td width='10%' bgcolor = 'SeaShell'><font color = 'Blue'><b>Machine Name</td>"

strHTML = strHTML & "<td width='10%' bgcolor = 'SeaShell'><font color = 'Blue'><b>NOS</td>"

strHTML = strHTML & "<td width='10%' bgcolor = 'SeaShell'><font color = 'Blue'><b>Version</td>"

strHTML = strHTML & "<td width='10%' bgcolor = 'SeaShell'><font color = 'Blue'><b>Installed Date</td>"

strHTML = strHTML & "<td width='10%' bgcolor = 'SeaShell'><font color = 'Blue'><b>Description</td>"

strHTML = strHTML & "<td width='10%' bgcolor = 'SeaShell'><font color = 'Blue'><b>Last Boot Date</td>"

strHTML = strHTML & "</tr>"


Const adOpenStatic = 3

Const adLockOptimistic = 3

Set objConnection = CreateObject("ADODB.Connection")

Set objRecordSet = CreateObject("ADODB.Recordset")

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

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


objRecordSet.Open _

"Select SD.Name0, " & _

"OS.Caption0 + ' (' + OS.CSDVersion0 + ')' NOS, " & _

"OS.Version0 Version, OS.InstallDate0, " & _

"OS.Description0,OS.LastBootUpTime0 " & _

"From v_R_System SD " & _

"Join v_Gs_Operating_System OS on SD.ResourceID = OS.ResourceID " & _

"Where OS.Caption0 Like '%Windows XP Professional%' " & _

"Order by SD.Netbios_Name0", objConnection, adOpenStatic, adLockOptimistic


On Error Resume Next


Do Until objRecordset.EOF

strHTML = strHTML & "<tr>"

Window.Document.Title = UCase(GetItems.Value) & " - Collection User Information "

strHTML = strHTML & "<td width='1%'>" & objRecordset.Fields.Item("Name0") & "</td>"

strHTML = strHTML & "<td width='1%'>" & objRecordset.Fields.Item("NOS") & "</td>"

strHTML = strHTML & "<td width='1%'>" & objRecordset.Fields.Item("Version") & "</td>"

strHTML = strHTML & "<td width='1%'>" & objRecordset.Fields.Item("InstallDate0") & "</td>"

strHTML = strHTML & "<td width='1%'>" & objRecordset.Fields.Item("Description0") & "</td>"

strHTML = strHTML & "<td width='1%'>" & objRecordset.Fields.Item("LastBootUpTime0") & "</td>"






strHTML = strHTML & "</tr>"

strHTML = strHTML & "</table>"

DataArea.InnerHTML = strHTML

End Sub



<p><h3 align = center><font color='Orange'>Please Visit myITforum.Com</font></h3><div></div>

SQL Server Name: <Input Type = "Text" Name = "SqlServer">

Database Name: <Input Type = "Text" Name = "Database">

<input id=DisplayButton class="button" type="button" value="Run Script" name="DisplayItems_button" onClick="WindowsLoad">


<Span Id = "DataArea"></Span></Body><Div Align = "Center">

<P><A Href="http://myitforum.com/cs2/blogs/dhite">Created For myITforum By Don Hite</A>





Posted by dhite | with no comments
Filed under:

Configuring Desired Configuration Management


Here you will find information on how to configure ConFigMrg 2007 Desired Configuration Management (DCM).


The first step is to enable DCM by following the steps here:


1. From within the ConFigMrg 2007 console open the Site Settings leaf:


System Center Configuration Manager.

Site Database.

Site Management.

XXX SiteName.

Site Settings.

Client Agents.


2. Right mouse click on “Desired Configuration Management Client Agent” and from the context menu select “Properties”.


3. At the general tab place a check in the box select “Enable Desired Configuration Management on computers”.


4. Next set the Desired configuration management schedule or leaf the defaults and click “OK”




Posted by dhite | with no comments
Filed under:

PBS People And Discoveries


What's the story behind electroshock therapy? Who's responsible for increasing the size of the Universe? What laboratory mishap led to the saving of countless lives?


The answers to these questions, plus many more, await you in People and Discoveries, a databank consisting of 120 entries about 20th century scientists and their stories.








Medicine and Health



Physics and Astronomy



Human Behavior






Earth and Life Sciences





Posted by dhite | with no comments
Filed under:

Top Ten Reasons To Become A Teacher


  • Big Bucks!
  • Discipline tomorrows U.S. leaders today
  • Free apples!
  • Joyfully implement wise policies of marvelous administrators, earning thanks of a grateful nation
  • Know all the answers on the test
  • Massive funding for classroom supplies
  • Might have to work for a living otherwise
  • Never a stressful moment
  • Practice pedagogy without fear of arrest
  • Spend leisurely summer in intensive therapy attempting to recover strength for new term



Posted by dhite | with no comments
Filed under:

VBS Script To Send SMS Site Information To Excel


This VBS script will take an SMS site server name and site code form an input box and write the following information to an Excel spreadsheet. Site Code, Site Name, Version, Server Name and he Parent site if one is specified.


VBS Script:


strComputer = InputBox("Enter Site Server Name")

strSiteCode = InputBox("Enter Site Code")


Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True


intRow = 2


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

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

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

objExcel.Cells(1, 4).Value = "Server Name"

objExcel.Cells(1, 5).Value = "Parent Site"


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

Set colItems = objWMIService.ExecQuery("Select * From SMS_Site")


For Each objItem in colItems

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

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

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

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

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

intRow = intRow + 1




objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True





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

VBS Script To renew A Remote Machines DHCP Lease


This VBS script will take a remote machine name from an input dialog box and will then perform a DHCP lease renewal for the machines adapters.


VBS Script:


strComputer = InputBox ("Enter Machine Name")


On Error Resume Next

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

Set colActiveNic = objWMIService.Get("Win32_NetworkAdapterConfiguration")



If Err.Number = 0 Then

MsgBox "The DHCP Lease Has Been Renewed For: " & UCase(strComputer)


MsgBox "Unable To Renew The DHCP Lease For: " & UCase(strComputer)

End If




Posted by dhite | with no comments
Filed under:

SQL Query To Locate Full User Names From A Specified Collection


This SQL query will allow you to retrieve the full user name and login ID name for all machines in a specific collection.


SQL Query:



SD.Name0 'Machine Name',

SD.User_Name0 'Login ID',

USR.Full_User_Name0 'Full Name'

From v_R_System SD


Join v_FullCollectionMembership FCM on SD.ResourceID = FCM.ResourceID

Join v_Collection COL on FCM.CollectionID = COL.CollectionID

Join v_R_User USR on SD.User_Name0 = USR.User_Name0


Where COL.Name = 'All Systems'




Posted by dhite | with no comments
Filed under:

SQL Query To Find Machines In A Specified Collection Having A Specified Application Installed


This SQL query will allow you to find machines in a specified collection that have a specified application installed.


SQL Query:



SD.Name0 'Machine Name',

SD.Resource_Domain_OR_Workgr0 'Resource Domain',

SD.User_Name0 'Login ID',

SD.User_Domain0 'Account Domain',

USR.Full_User_Name0 'Full Name',

ARP.DisplayName0 'Display Name'

From v_R_System SD


Join v_FullCollectionMembership FCM on SD.ResourceID = FCM.ResourceID

Join v_Collection CN on FCM.CollectionID = CN.CollectionID

Join v_R_User USR on SD.User_Name0 = USR.User_Name0

Join v_Add_Remove_Programs ARP on SD.ResourceID = ARP.ResourceID


Where CN.Name = 'All Systems'

And ARP.DisplayName0 Like '%VPN%'




Posted by dhite | with no comments
Filed under:

Take A Dive


To take a dive is an expression that originated in the combat sport of boxing. It is a relatively modern term since Boxing or Pugilism has been around since the era of the Greeks and Romans. To take a dive means that one acts as if they were knocked out to throw or loose a fight intentionally. Then it is deemed a knockout or even a Technical knock out.




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

VBS Script To Create A Local OpsMgr 2007 Installed Components XML File


This VBS Script will create an Xml reference file showing all of the installed components for the machine on which the script is executed on. For additional information on the CleanMom utility and where to download it from see my previous post below.


VBS Script:


strFileName = InputBox("Enter File Name")

'Don't Enter The .Xml File Extension As It Is Hard Coded.


Set WshShell = Wscript.CreateObject("Wscript.Shell")

Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject")


'Change The Directory Folder Name As Needed:

strExeLocation = "C:\Folder_Name"


'CleanMom Static Vars - Do Not Change

strExecutable = "CleanMom.Exe"

strCommandLine = "/c /Xml"

strExtension = ".Xml"


objCommand = "Cmd /C" & Chr(32) & strExeLocation & "\" & strExecutable & _

Chr(32) & strCommandLine & Chr(32) & strFileName & strExtension



MsgBox "Done"



The OpsMgr 2007 Resource Kit Cleanup Tool






Posted by dhite | with no comments
Filed under:
More Posts « Previous page - Next page »