Don Hite

VBS Script To Export ConfigMgr Views To A Word Document

2008-09-07T17:26:16Z

This Vbs script will take a Site server name and site code from an input box and then enumerate all of theViews on that server. It will then add them to a Microsoft Word document that you can save for future reference.

VBS Script:

strServer = InputBox ("Enter Site Server Name")

strDatabase = InputBox ("Enter Three Letter Site Code")

Set objWord = CreateObject("Word.Application")

objWord.Visible = True

Set objOptions = objWord.Options

objOptions.CheckSpellingAsYouType = False

Const wdAlignParagraphCenter = 1

Const wdAlignParagraphLeft = 0

Const wdColorGreen = 32768

Const wdColorBlue = 16711680

Const wdColorBlack = 0

Const wdColorGray = 15132390

Set objDoc = objWord.Documents.Add()

Set objSelection = objWord.Selection

objSelection.Font.Bold = True

objSelection.Font.Color = wdColorGreen

objSelection.ParagraphFormat.Alignment = wdAlignParagraphCenter

objSelection.TypeText "SQL Views"

objSelection.Font.Bold = False

objSelection.TypeParagraph()

objSelection.TypeText "Report Created: " & Date

objSelection.TypeParagraph()

objSelection.ParagraphFormat.Alignment = wdAlignParagraphLeft

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 Table_Name, View_Definition" & _

" From Information_Schema.Views" & _

" Order By Table_Name", objConnection, adOpenStatic, adLockOptimistic

objRecordSet.MoveFirst

Do Until objRecordSet.EOF

objSelection.ParagraphFormat.Alignment = wdAlignParagraphCenter

objSelection.Font.Color = wdColorBlue

objSelection.Font.Bold = True

objSelection.ParagraphFormat.Shading.BackgroundPatternColor = wdColorGray

objSelection.TypeText "" & objRecordset.Fields.Item("Table_Name").Value

objSelection.TypeParagraph()

objSelection.ParagraphFormat.Alignment = wdAlignParagraphLeft

objSelection.Font.Color = wdColorBlack

objSelection.Font.Bold = False

objSelection.TypeText "" & objRecordset.Fields.Item("View_Definition").Value

objSelection.TypeParagraph()

objRecordSet.MoveNext

Loop

objSelection.ParagraphFormat.Alignment = wdAlignParagraphCenter

objSelection.Font.Color = wdColorGreen

objSelection.TypeText "Created by Don Hite For myITforum.Com"

objSelection.TypeParagraph()

VBS Script To Replace A Specified Text String In A Text Based File

2008-09-07T17:25:51Z

This VBS Script will allow you to browse for a text based file and will open the file and replace the specified text with a string that you specify and then resave the file using text boxes.

VBS Script:

strOriginalString = InputBox ("Replace This Text")

'strOriginalString = "The Text To Replace."

strNewStringValue = InputBox ("With This Text")

'strNewStringValue = "The Text To Change It To."

Const ForReading = 1

Const ForWriting = 2

Set objDialog = CreateObject("UserAccounts.CommonDialog")

objDialog.Filter = "All Files|*.*"

objDialog.InitialDir = "C:\"

intResult = objDialog.ShowOpen

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile(objDialog.FileName, ForReading)

strFileName = objFile.ReadAll

objFile.Close

objTextReplace = Replace(strFileName, strOriginalString, strNewStringValue)

Set objFile = objFSO.OpenTextFile(objDialog.FileName, ForWriting)

objFile.WriteLine objTextReplace

objFile.Close

MsgBox "Done"

VBS Script To Send CD-ROM Drive Information To Excel From A List Of Machines

2008-09-07T17:25:27Z

This VBS Script will send CD-ROM drive information to excel from a list of machine names in a file called MachineList.Txt

VBS Script:

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

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

objExcel.Cells(1, 2).Value = "Drive Letter"

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

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

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

For Each objItem in colItems

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

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

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

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

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

'Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)

'Set objRange = objExcel.Range("B2")

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

MsgBox "Done"

SQL Query To List Advertisements For A Specified Collection

2008-09-07T17:25:00Z

This SQL Query will list all of the Advertisements and their corresponding Advertisement ID’s for a specified collection name such as ‘All Client Systems’.

SQL Query:

Select

A.AdvertisementName,

A.AdvertisementID

From v_Collection C

Join v_Advertisement A On C.CollectionID = A.CollectionID

Where C.Name = 'CollectionName'

Order By A.AdvertisementName

SQL Query To Filter Out Clients With Invalid System Enclosure Asset Tag Information

2008-09-07T17:24:47Z

This SQL Query will filter out all of the invalid system enclosure asset tags using NOT NULL, Not Like (<>) and NOT IN SQL commands.

SQL Query:

Select

SD.Name0 'Machine Name',

SD.User_Name0 'User Name',

SE.SmBiosAssetTag0 'Asset Tag'

From v_R_System SD

Join v_GS_System_Enclosure SE On SD.ResourceID = SE.ResourceID

Where SD.Client0 = '1'

And SE.SmBiosAssetTag0 Is Not Null

And SE.SmBiosAssetTag0 <> '%ÿ%'

And SE.SmBiosAssetTag0 not in ('Not Available', 'No Asset Information','')

Apple Polisher

2008-09-07T17:24:13Z

In the 1920’s it was a custom for school children to bring the teacher in some fruit in the mornings and the most popular was an apple. Bringing in an apple was thought to have put the teachers favor on you for the day. It was not uncommon for the teacher to have several apples on their desk and the shiniest apple usually caught their eye.

To make the apple shiny it had to be polished or wiped clean with a damp rag and out of this came the term “Apple Polisher” to imply that someone wants to gain someone’s favor.

The Great BigFoot Hoax Of 2008

2008-09-07T17:23:51Z

My Grandson was all excited when he called and told me that CNN had Bigfoot corpse pictures on the air a few weeks ago and told me to turn it on and watch. I watched the story as a skeptic would and I must admit it did look kind of cool but I had my doubts.

http://www.cnn.com/2008/US/08/15/bigfoot.body

Then the ‘Rest of the story’ was told and the truth was out. They lied about it and claimed that it was a joke that just got out of hand.

http://www.cnn.com/2008/US/08/21/bigfoot.hoax/index.html?iref=newssearch

My guess is that all of the ‘Serious’ Bigfoot trackers are not too happy with the press coverage and I cannot say that I blame them at all. I will give them credit for their dedication to attempt to prove their existence but I am afraid they are going to be disappointed in the end. After this latest stunt I doubt that any respectable news agency will ever air any more Bigfoot news because they have cried “Wolf” way too many times.

On the other hand there is so much that we still don’t know about our world since not all of the planet has been explored and anything is possible. There are still some parts of the earth’s surface that have been mapped yet not explored and new animal species and subspecies are discovered on a regular basis. The ocean may be the next place we get ‘Monster’ reports from as we begin exploring it in earnest because only 5% of it has been explored.

In east Africa in the 1800’s as the population began growing and the inhabitants were seeking new hunting grounds and places to live there were reports of Bigfoot type “Monsters” among the natives. These “Monsters” were manlike and some thought that they may be the archeological missing link between animals and mankind. It was not until 1902 that scientific evidence of these “Monsters” was proven and today we can see these once mythical monsters in our local Zoos. However today we know them as Mountain Gorilla’s and their existence was proven as they were ‘discovered’ in the Virunga Mountains of East Africa by a German Captain named Robert von Beringe (1865-1940) in October of that year.

Who knows we may even find living and breathing dinosaurs as we begin discovering more of the planet. You may laugh however that is not impossible when you consider that in 1938 the Coelacanth lungfish thought to have been extinct since the Cretaceous period some 65.5 million years ago was caught.

http://news.bbc.co.uk/2/hi/science/nature/4501152.stm

In the Borneo Islands more than 400 new species alone have been identified on the island since 1996 and new ones are still being unearthed.

http://news.nationalgeographic.com/news/2006/12/061219-borneo-species.html

Just some food for thought.

SQL Server 2008 Memory Support

2008-09-07T17:23:24Z

In Microsoft SQL Server 2008 the Standard, Enterprise, Developer and Web editions can use whatever the Operating Systems maximum allowed memory is.

Windows Server 2003

Windows Server 2003 Standard Edition can use a maximum of 4 GB.

Microsoft Windows Server 2003 Enterprise Edition can use a maximum of 32 GB for 32-bit (x86) machines and 64 GB for 64-bit Itanium machines.

Windows Server 2008

Windows Server 2008 Standard Edition can use a maximum of 4 GB.

Microsoft Windows Server 2008 Enterprise Edition can use a maximum of 64 GB for 32-bit (x86) machines and 2 TB for 64-bit Itanium machines.

The Workgroup edition can also use the Operating Systems maximum on 32-Bit systems and 4 GB on 64-bit systems.

The Express and Express with Advanced Services can use a maximum of 1 GB.

HTA Calendar Control Example Script

2008-09-07T17:22:59Z

This HTA script will provide you with an example for using the Microsoft Calendar Control for Microsoft Office. The calendar control (Mscal.ocx) Clsid:8E27C92B-1264-101C-8A2F-040224009C02 is an ActiveX control and can be used with HTA scripts as well as others.

HTA Script:

<Head>

<Title>myITforum Calendar</Title>

</Head>

<Object ID = "Calendar"

Width = 100%

Height = 100%

ClassID = "CLSID:8E27C92B-1264-101C-8A2F-040224009C02">

</Object>

</Script></Body></Html>

Microsoft Calendar Control Reference

http://www.microsoft.com/technet/scriptcenter/topics/htas/calendar.mspx

The Bernard White SMS Server Tools 0.2.2 Release

2008-09-07T17:22:36Z

Bernard White’s SMS Server Tools version 0.2.2 was released on August 14 th 2008 and is available for download.

New Features

Distribution Point Mod Tool has new built-in scheduling functionality that allows an action to be to run at a latter date / time.

Site Information Tool now shows site components roles and which servers they are installed on for each site. Also the COLL_OUT.BOX has been added to the list of reported inboxes.

Package Information Tool now shows details on Distributions In-Transit when the "-s d" switch is used.

Site Services Tool now has a new "-restart" switch added, allowing a component to be stopped and then started again in a single command.

Collection Membership Tool added to SMS Server Tools suite. This tool allows system, user or group resources to be added to a collection's membership. It also features regular expression matching.

SMS Server Tools 0.2.2 Download:

http://community.netplantation.com/download.php?view.4

By Request VBS Script To Add To Do Tasks To Outlook

2008-09-07T17:22:08Z

This By Request VBS Script will allow you to enter to do tasks for outlook using dialog boxes.

VBS Script:

Const olTaskItem = 3

Set objOutlook = CreateObject("Outlook.Application")

Set objTask = objOutlook.CreateItem(olTaskItem)

objTask.Subject = InputBox("Enter To Do Item")

objTask.Body = InputBox("Enter Task Information")

objTask.Save

MsgBox "Done"

Wisdom Of Our Fathers

2008-09-07T17:21:45Z

A closed mouth gathers no feet.
Accept that some days you're the pigeon, and some days you're the statue.
Good news is just life's way of keeping you off balance.
I always wanted to be a procrastinator, never got around to it.
I am having an out of money experience.
I considered atheism but there weren't enough holidays.
I don't mind going nowhere as long as it's an interesting path.
If God wanted me to touch my toes, he would have put them on my knees.
In just two days, tomorrow will be yesterday.
Indecision is the key to flexibility.
It's hard to make a comeback when you haven't been anywhere.
It's not the pace of life that concerns me, it's the sudden stop at the end.
Jury: Twelve people who determine which client has the better attorney.
Kids in the back seat cause accidents; accidents in the back seat cause kids.
Lead me not into temptation - I can find the way myself.
Living on Earth is expensive, but it does include a free trip around the sun.
On the keyboard of life, always keep one finger on the escape key.
Someday we'll look back on all this and plow into a parked car.
The mind is like a parachute; it works much better when it's open.
The only time the world beats a path to your door is if you're in the bathroom.
There are two kinds of pedestrians...the quick and the dead.
Two wrongs don't make a right, but two Wrights made an airplane.
When you're finally holding all the cards, why does everyone else decide to play chess?

Amish Teens Gone Wild

2008-09-07T17:21:22Z

Defiantly says, "If I had a radio, I'd listen to rap."
He's wearing his big black hat backwards
His name is Jebediah, but he goes by "Jeb Daddy."
In his sock drawer, you find pictures of women without bonnets.
Shows up at barn raisings in full "Kiss" makeup.
Sometimes stays in bed till after 6am.
Uses slang expression: "Talk to the hand, cause the beard ain't listening."
Was recently pulled over for "driving under the influence of cottage cheese."
When you criticize him, he yells, "Thou suck!"
You come upon his secret stash of colorful socks.

VBS Script To Retrieve SMS Executive Service Information From A List Of Machines

2008-08-24T18:07:38Z

This VBS script will read a text file called MachineList.Txt and will write the SMS Executive services information for the site servers to an excel spreadsheet. If the service state is stopped the results will be written in red.

VBS Script:

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

Set Fso = CreateObject("Scripting.FileSystemObject")

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

Do While Not (InputFile.atEndOfStream)

strComputer = InputFile.ReadLine

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

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

objExcel.Cells(1, 3).Value = "Current State"

servicename = "SMS_Executive"

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

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

For Each objItem in colItems

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

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

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

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

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

End If

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"

VBS Script To Browse For Folder And Send Sub Folders Name And Size To Excel

2008-08-24T18:07:11Z

This VBS Script will allow to browse for a directory folder and will write the subfolders name and size to an excel spreadsheet.

VBS Script:

strComputer = "."

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

Set objShell = CreateObject("Shell.Application")

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

If objFolder Is Nothing Then

Wscript.Quit

Else

Set objFolderItem = objFolder.Self

objPath = objFolderItem.Path

End If

Set objFolderItem = objWMIService.ExecQuery _

("Associators of {Win32_Directory.Name='" & strFolderName & "'} " _

& "Where AssocClass = Win32_Subdirectory " _

& "ResultRole = PartComponent")

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

objExcel.Cells(1, 1).Value = "Folder"

objExcel.Cells(1, 2).Value = "Size"

Set objShell = CreateObject ("Shell.Application")

For Each strFileName in objFolder.Items

objExcel.Cells(intRow, 1).Value = objFolder.GetDetailsOf(strFileName, 0)

objExcel.Cells(intRow, 2).Value = objFolder.GetDetailsOf(strFileName, 8)

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"