Don Hite at myITforum.com

VBS Script To Verify If A Specified Machine Is A Client

This VBS Script will allow you to enter a site server name, site code and a machine name to allow you to see if the specified machine is a SMS or ConfigMgr 2007 client.

VBS Script:

strComputer = InputBox ("Enter Site Server Name")

strSiteCode = InputBox ("Enter Site Code")

strMachineName = InputBox ("Enter Machine Name")

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

Set colItems = objWMIService.ExecQuery _

("Select * from SMS_R_System Where Name ='" & strMachineName & "'")

For Each objItem in colItems

If objItem.Client = 1 Then

MsgBox objItem.Name & " Is A Client"

Else

MsgBox objItem.Name & " Is Not A Client"

End If

Next

VBS Script To Send All Collections And Their Advertisement Names And IDs To Excel

This VBS Script will send all of the Collections with advertisements to an Excel spreadsheet.

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

objExcel.Cells(1, 2).Value = "Collection ID"

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

objExcel.Cells(1, 4).Value = "Advertisement 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 C.Name, C.CollectionID, A.AdvertisementName, A.AdvertisementID" & _

" From v_Collection C" & _

" Join v_Advertisement A On C.CollectionID = A.CollectionID", objConnection, adOpenStatic, adLockOptimistic

objRecordSet.MoveFirst

Do Until objRecordSet.EOF

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

objExcel.Cells(intRow, 2).Value = objRecordSet.Fields("CollectionID").Value

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

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

VBS Script To Send A Specified Groups Member List To Excel

This VBS script will allow you to send the members of a specified NT or Active Directory (AD) domain to an excel spreadsheet.

VBS Script:

strDomain = InputBox ("Enter Domain Name")

strGroup = InputBox ("Enter Group Name")

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

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

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

Set objGroup = GetObject("WinNT://" & strDomain & "/" & strGroup)

Set strMembers = objGroup.Members

For Each strMember In strMembers

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

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

VBS Script To Retrieve ConfMgr 2007 Supported Operating Systems And Send To Excel

This VBS script will allow you to enter a ConfigMgr 2007 site server name and site code and will list the supported platforms and write them to an excel spreadsheet.

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

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

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

For Each objItem in colItems

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

intRow = intRow + 1

Next

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

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

MsgBox "Done"

SQL Query To Gather Portable Laptops And Notebook Machines Information

This SQL Query will gather the following information for Portables, Laptops and Notebook resources:  Machine Name, Asset Tag, Manufacturer, Model, Serial Number and Operating System version information.

SQL Query:

Select

SD.Name0 'Machine Name',

SE.SMBIOSAssetTag0 'Asset Tag',

CS.Manufacturer0 Manufacturer,

CS.Model0 Model,

SN.SerialNumber0 'Serial Number',

OS.Caption0 + Space(1) + OS.CsdVersion0 'Operating System'

From v_R_System SD

Join v_GS_COMPUTER_SYSTEM CS On SD.ResourceID = CS.ResourceID

Join v_GS_SYSTEM_ENCLOSURE SE On SD.ResourceID = SE.ResourceID

Join v_GS_PC_BIOS SN ON SD.ResourceID = SN.ResourceID

Join v_GS_OPERATING_SYSTEM OS On SD.ResourceID = OS.ResourceID

Where SD.Client0 = 1

-- (8) Portable, (9)Laptop, (10) Notebook

And SE.ChassisTypes0 In ('8', '9', '10')

SQL Query To Find IP Subnets Not Specified In Your ConfigMgr 2007 Subnet Boundaries

This SQL Query will list all of the subnets discovered that are not included in your ConfigMgr 2007 subnet site Boundaries

SQL Query:

Select Distinct

IP_Subnets0

From v_Ra_System_IpSubnets

Where v_Ra_System_IpSubnets.IP_Subnets0

Not In

(Select Value From v_BoundaryInfo)

SQL Query To Count ConfigMgr 2007 Subnet Boundary Resources

This SQL query will count the resources for your ConfigMgr 2007 site boundaries. The usefulness of this script is that it will allow you to see any site boundaries that currently do not have any resources. This will allow you to adjust your site boundaries as needed.

SQL Query:

Select  BI.Value Boundary,

Count(SD.ResourceId) Resources

From v_BoundaryInfo BI

Join v_Ra_System_IPSubnets SN On SN.IP_Subnets0 = BI.Value

Join v_R_System SD On SD.ResourceId = SN.ResourceId

Group By BI.Value

CodePlex Windows 2008 Server Core Configurator Download

The Server Core Configurator enables you to quickly and easily accomplish tasks you need to do upon installation of Windows Server Core or Hyper-V Server. You can cover tasks such as activation, network and firewall settings, and Windows updates all via an easy-to-use GUI.

Windows 2008 Server Core Configurator

http://www.codeplex.com/CoreConfig

Uncle Sam

During the War of 1812 Samuel Wilson (1776-1854) from Troy New York had a contract to supply beef to the U.S. Army which was shipped in wooden barrels. The barrels were then stamped with "U.S." for United States. As a result the teamsters who transported them as well as the soldiers joked that the initials stood for "Uncle Sam" Wilson.

Later the cartoonist Thomas Nast (1840-1902) who came up with the Republican Party elephant and the Democratic Party donkey along with Sir John Tenniel (1820-1914) added the goatee.

The Microsoft Online Password Checker

Use the online password checker from Microsoft to test your password strength. As you enter your password each character is evaluated and the password is rated as being Weak, Medium, Strong or Best.

Password Checker

http://www.microsoft.com/protect/yourself/password/checker.mspx

How Do You Think myITforum Is Doing ?

At myITforum things are changing frequently to better serve the IT community at large and the System Management community in particular. Frequently new resources are added for the community to use to get the information or assistance they need quickly.

The daily newsletter that so many anticipate receiving each weekday morning and the

MyITforum home pages “Most Current Articles” are updated daily and are some times taken for granted. We expect to see them and low and behold each day there they are. It is not magic or some kind of automated task that they appear it is through the fingers of Rod Trent that we see them.

The myITforum webpage is updated daily simply because the pages are viewed daily by both new and long time myITforum readers. New content is found on the pages of myITforum each and every day and during the week hourly. Since the myITforum community is a world wide community it is always noon somewhere in the world and there are always noon time posters. This is quite evident if you are an RSS subscriber to the forums or the Blog pages. The same can also be said of the many fine email lists available on myITforum.

Tools are also provided free of charge to the community such as the Community File Share service and the many fine downloads are provided free of charge by myITforum contributors. MyITforum is also a place to have some fun through the myITforum polls and myITforum TV.  

The home page and the Blogs have also been updated over the years for us and they will continue to be updated by the generously of Rod Trent. MyITforum never sleeps however sometimes Rod does so in the meantime let Rod know that you appreciate all that he does for us and let him know if there is a feature or an improvements that you want to see.

SQL 2008 Cumulative Update 1 For SQL Server 2008 Download

The Cumulative Update 1 (CU1) has been released for SQL Server 2008 and includes several hot fixes for the Microsoft SQL Server 2008 issues that have been fixed since the initial release of SQL Server 2008.

The CU1 package build number is 10.00.1763.00.

SQL Server 2008 CU1 Download:

http://support.microsoft.com/kb/956717

Upgrading Your ConfigMgr 2007 SQL 2005 Database Backend To SQL 2008

Provided here you will find the steps necessary to upgrade your ConfigMgr 2007 SQL Server 2005 backend to SQL Server 2008.

Note: This was tested on the following: Windows 2008 Enterprise Server Service Pack (SP) 1, ConfigMgr 2007 SP1 and SQL 2005 Server SP 2.

1. Apply the appropriate required hotfix below:

ConfigMgr 2007 RTM – No Service Pack

http://support.microsoft.com/kb/955229

ConfigMgr 2007 SP1

http://support.microsoft.com/kb/955262

2. Insert the SQL 2008 Server installation media and start Auto run if it does not start automatically or double click on Setup.Exe

3. Select “OK” at the Microsoft SQL Server 2008 Setup dialog box stating:

SQL Server 2008 setup requires Microsoft .NET Framework and an updated Windows Installer to be installed

To install these prerequisites and continue with Setup, click Ok. To exit Setup, click Cancel.

4. At this point the files will then be extracted and the Setup task process bar will start loading the installation components and may take several minutes to complete.

5. Next the Microsoft .NET Framework 3.5 SP1 Setup dialog box will appear. Review the license agreement and select ‘I have read and ACCEPT the terms of the License Agreement” and then select “Install” to begin.

6. The Download and Install Progress screen will appear and the install will begin and this process will take some time to install and can take from 5 to 15 minutes depending on your server speed and internet connectivity speed.

7. At the Setup Complete Microsoft .NET Framework 3.5 SP1 Setup dialog box stating: Microsoft .NET Framework 3.5 SP1 has been installed successfully select “Exit”

8. Reboot the server to finish installing the updates.

9. Log back onto the server and repeat step # 2 if necessary and allow several seconds for the SQL Server 2008 dialog box stating: Please wait while SQL Server 2008 Setup processes the current operation message disappears.

10. At the SQL Server Installation Center task list dialog box select “Installation” or select “Upgrade Documentation” for additional upgrade information.

11. From the Installation task pane select “Upgrade from SQL Server 2000 or SQL Server 2005” and wait for the message box in step # 9 to disappear.

12. At the SQL Sever 2008 Setup dialog box for the Setup Support Rules select “OK” to continue unless you have any “Failed” or “Warning”  issues that need to be resolved. If this is the case leave the dialog box open and then correct the issues to resolve them and select “Re-run” to initiate the checks again.

13. After the message box in step # 9 disappears at the Product Key task leaf enter your product key in the space provided and select “Next” to continue.

14. At the License Terms task leaf review the license terms and select “I accept the License Terms” and then select “Next”

15. At the Setup Support Files task leaf select “Install” to begin the upgrade process which will take just a few minutes to complete.

16. After the message box in step # 9 disappears at the Setup Support Files dialog review the Setup Support Rules task leaf status for any “Failed” or “Warning” status messages and then select “Next” to continue.

17. At the Select Instance task leaf select “Next” to continue.

18. At the Select Features task leaf accept the defaults or change them as needed and then select “Next” to continue.

19. At the Instance Configuration task leaf select “Next” to continue.

20. At the Disk Space Requirements task leaf select “Next” to continue.

21. At the Server Configuration task leaf select “Next” to continue.

22. At the Full-Text Upgrade task leaf accept the default of “Import” or select “Rebuild” or “Reset” as needed and then select “Next” to continue.

23. At the Error and Usage Reporting task leaf select “Next” to continue.

24. After the Upgrade Rules task leaf  completes select “Next” to continue.

25. At the Ready to Upgrade task leaf review your summary information or copy and paste the contents to a text file for later reference select “Upgrade” to start the upgrade process

26. The Upgrade Progress task leaf will then appear and will take quite some time to conclude up to an hour in some cases then select “Next” at the “Setup Process Compete” task pane.

27. At the Complete task leaf review the installation status and review the “Supplemental Information:” and then select “Close” to complete the install.

Notes:

• When you choose to upgrade your SQL server to SQL 2008 the previous versions program group and files are not removed by design and you must uninstall the pervious version using Programs and Features to remove them

• SQL 2008 is not backward compatible with SQL 2000 or SQL 2005 and as a result you must upgrade any workstations or servers to the new version to resolve any comparability issues.

• To avoid having to compete the first few steps of the upgrade process above you can download and install Microsoft .NET Framework 3.5 SP1 and Windows Installer 4.5 before beginning the installation found below.

Microsoft .NET Framework 3.5 SP1

http://go.microsoft.com/fwlink/?LinkId=120550

Windows Installer 4.5

http://support.microsoft.com/KB/942288

By Request Script To Return The Next Available Drive From A Remote Machine

This By Request VBS Script will allow you to find the next available drive letter on a remote or local machine.

VBS Script:

strComputer = InputBox ("Enter Machine Name")

strFirstDrive = "A" 'First Drive In Array

strLastDrive = "Z" 'Last Drive In Array

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

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

For Each objItem in colItems

objDriveType = "Drive " & objItem.DeviceID & Chr(34) & objItem.Description

objNextDrive = objNextDrive & Mid(objDriveType, 7, 1)

Next

For i = AscB(strFirstDrive) To AscB(strLastDrive)

If InStr(objNextDrive, Chr(i)) = 0 Then

MsgBox Chr(i) & ": Is Available For " & UCase(strComputer)

Exit For

End If

Next

Password Security Guidelines Version 2.2B

Due to new security policies, the following guidelines have been issued to assist in choosing new passwords. Please follow them closely.

1. Passwords must conform to at least 20 of the following attributes.
2. Minimum length 12 characters.
3. Not in any dictionary.
4. No word or phrase bearing any connection to the holder.
5. Containing no characters in the ASCII character set.
6. No characters typeable on a Sun type 5 keyboard.
7. No subset of one character or more must have appeared on Usenet news, rand(3), or the King James bible (version 0.1 alpha)
8. Must be quantum theoretically secure, i.e. must automatically change if observed (to protect against net sniffing).
9. Binary representation must not contain any of the sequences 00 01 10 11, commonly known about in hacker circles.
10. Be provably different from all other passwords on the internet.
11. Not be representable in any human language or written script.
12. Color passwords must use a minimum 32 bit palette.
13. Changed prior to every use.
14. Resistant to revelation under threat of physical violence.
15. Contain tissue samples of at least 3 vital organs.
16. Must contain both upper and lower case characters as well as at least 2 numbers.
17. Undecodable by virtue of application of 0-way hash function.
18. Odorless, silent, invisible, tasteless, weightless, shapeless, lacking form and inert.
19. Contain non-linear random S-boxes (without a backdoor).

Note: Due to the severity of the restrictions, you must change your password every day.

If They Only Knew In The 1950’s

• Did you hear the post office is thinking about charging a dime just to mail a letter?
• Did you see where some baseball player just signed a contract for $75,000 a year just to play ball? It wouldn't surprise me if someday they'll be making more than the president.
• Do you suppose television will ever reach our part of the country?
• Have you seen the new cars coming out next year? It won't be long when $5,000 will only buy a used one.
• I never thought I'd see the day all our kitchen appliances would be electric. They are even making electric typewriter now.
• If cigarettes keep going up in price, I'm going to quit. A quarter a pack is ridiculous.
• If they raise the minimum wage to $1, nobody will be able to hire outside help at the store.
• I'll tell you one thing, if things keep going the way they are it's going to be impossible to buy a weeks groceries for $20.
• I'm afraid to send my kids to the movies any more. Ever since they let Clark Gable get by with saying 'damn' in 'Gone With The Wind,' it seems every movie has a 'hell' or' damn in it.
• It won't be long until couples are sleeping in the same bed in the movies. What is this world coming to?
• Kids today are impossible. Those duck tail hair cuts make them impossible to stay groomed. Next thing you know, boys will be wearing their hair as long as the girls.
• Marilyn Monroe is now showing her bra and panties, so apparently there are no standards anymore.
• Pretty soon you won't be able to buy a good 10 cent cigar.
• The Government wants to get its hands on everything. Pretty soon it's going to be impossible to run a family business or farm.
• Their music drives me wild. This 'Rock Around The Clock' thing is nothing but racket.
• When I first started driving, who would have thought gas would someday cost 50 cents a gallon. Guess we'd be better off leaving the car in the garage.

VBS Script Browse For A Text File And Remove Duplicates Entries From It

This VBS Script will allow you to browse for a text file and will remove or strip all of the duplicates from it and then rewrite the original text file.

VBS Script:

Const ForReading = 1

Const ForWriting = 2

Set objDialog = CreateObject("UserAccounts.CommonDialog")

objDialog.Filter = "Text Files|*.Txt"

intResult = objDialog.ShowOpen

If intResult = 0 Then

Wscript.Quit

Else

strFileName = objDialog.FileName

End If

Set objDictionary = CreateObject("Scripting.Dictionary")

Set objFSO = CreateObject("Scripting.FileSystemObject"