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:

 

Select

OfferName Name,

Recieved,

Failures,

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

NOS

Version

Installed Date

Description

Last Boot Date

Machine1

Microsoft Windows XP Professional (Service Pack 2)

5.1.2600

4/3/2008 9:52:00 AM

 

5/5/2008 9:28:00 AM

Machine2

Microsoft Windows XP Professional (Service Pack 2)

5.1.2600

4/3/2008 10:19:00 AM

 

5/6/2008 1:47:00 PM

Machine3

Microsoft Windows XP Professional (Service Pack 2)

5.1.2600

2/11/2008 10:40:00 AM

 

2/21/2008 9:47:00 AM

 

HTA Script:

 

<Html>

<Head>

<Title>HTA Script</Title>

<Style>

Body {Background-Color: CornSilk}

</Style>

 

<HTA:Application

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

objRecordSet.MoveFirst

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

objRecordset.MoveNext

Loop

 

objRecordSet.Close

objConnection.Close

strHTML = strHTML & "</tr>"

strHTML = strHTML & "</table>"

DataArea.InnerHTML = strHTML

End Sub

 

</script><Body>

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

</body></html>

<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.

 

People

http://www.pbs.org/wgbh/aso/databank/bioindex.html

 

Discoveries

http://www.pbs.org/wgbh/aso/databank/eventindex.html

 

Medicine and Health

http://www.pbs.org/wgbh/aso/databank/medhealth.html

 

Physics and Astronomy

http://www.pbs.org/wgbh/aso/databank/physastro.html

 

Human Behavior

http://www.pbs.org/wgbh/aso/databank/humbeh.html

 

Technology

http://www.pbs.org/wgbh/aso/databank/tech.html

 

Earth and Life Sciences

http://www.pbs.org/wgbh/aso/databank/earthlife.html

 

 

 

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

objExcel.Workbooks.Add

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

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

 

 

 

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

colActiveNic.RenewDHCPLeaseAll

 

If Err.Number = 0 Then

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

Else

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:

 

Select  

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:

 

Select

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

 

WshShell.Run(objCommand)

MsgBox "Done"

 

 

The OpsMgr 2007 Resource Kit Cleanup Tool

http://myitforum.com/cs2/blogs/dhite/archive/2008/06/01/the-opsmgr-2007-resource-kit-cleanup-tool.aspx

 

 

 

 

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