Don Hite at myITforum.com

Use this Vbs script to gather domain login information and send the results to Excel.

Vbs script:

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

intRow = 2

objExcel.Cells(1, 1).Value = "Login ID"

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

objExcel.Cells(1, 3).Value = "Domain Account"

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

objExcel.Cells(1, 5).Value = "Last Logon"

objExcel.Cells(1, 6).Value = "User Type"

objExcel.Cells(1, 7).Value = "Privileges"

objExcel.Cells(1, 8).Value = "Profile"

objExcel.Cells(1, 9).Value = "Script Path"

objExcel.Cells(1, 10).Value = "Description"

objExcel.Cells(1, 11).Value = "Home Directory Drive"

objExcel.Cells(1, 12).Value = "Home Directory"

objExcel.Cells(1, 13).Value = "Logon Server"

objExcel.Cells(1, 14).Value = "Number Of Logons"

objExcel.Cells(1, 15).Value = "Account Expires"

objExcel.Cells(1, 16).Value = "Bad Password Count"

objExcel.Cells(1, 17).Value = "Primary Group ID"

objExcel.Cells(1, 18).Value = "User Comment"

objExcel.Cells(1, 19).Value = "User ID"

On Error Resume Next

strComputer = "LocalHost" ' Change LocalHost to your PDC name

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

Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkLoginProfile Where FullName is not null")

For Each objItem in colItems

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

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

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

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

objExcel.Cells(intRow, 5).Value = WMIDateStringToDate(objItem.LastLogon)

objExcel.Cells(intRow, 6).Value = objItem.UserType

If objItem.Privileges = 0 Then objExcel.Cells(intRow, 7).Value = "Guest"

If objItem.Privileges = 1 Then objExcel.Cells(intRow, 7).Value = "(Domain)User"

If objItem.Privileges = 2 Then objExcel.Cells(intRow, 7).Value = "Administrator"

objExcel.Cells(intRow, 8).Value = objItem.Profile

objExcel.Cells(intRow, 9).Value = objItem.ScriptPath

objExcel.Cells(intRow, 10).Value = objItem.Description

objExcel.Cells(intRow, 11).Value = objItem.HomeDirectoryDrive

objExcel.Cells(intRow, 12).Value = objItem.HomeDirectory

objExcel.Cells(intRow, 13).Value = objItem.LogonServer

objExcel.Cells(intRow, 14).Value = objItem.NumberOfLogons

objExcel.Cells(intRow, 15).Value = WMIDateStringToDate(objItem.AccountExpires)

objExcel.Cells(intRow, 16).Value = objItem.BadPasswordCount

objExcel.Cells(intRow, 17).Value = objItem.PrimaryGroupId

objExcel.Cells(intRow, 18).Value = objItem.UserComment

objExcel.Cells(intRow, 19).Value = objItem.UserId

intRow = intRow + 1

Next

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

objExcel.Selection.Interior.ColorIndex = 19

objExcel.Selection.Font.ColorIndex = 11

objExcel.Selection.Font.Bold = True

objExcel.Cells.EntireColumn.AutoFit

Function WMIDateStringToDate(dtmWMIDate)

If Not IsNull(dtmWMIDate) Then

WMIDateStringToDate = CDate(Mid(dtmWMIDate, 5, 2) & "/" & _

Mid(dtmWMIDate, 7, 2) & "/" & Left(dtmWMIDate, 4) _

& " " & Mid (dtmWMIDate, 9, 2) & ":" & _

Mid(dtmWMIDate, 11, 2) & ":" & Mid(dtmWMIDate, _

13, 2))

End If

End Function

Set objExcel = Nothing

Set objWMIService = Nothing

When you extend the Active Directory (AD) schema for SMS 2003 your server locator point (SLP) is published in AD. If you do not extend the schema the server locator point will not be published in AD. If this is the case you must manually add it in Windows Internet Name Service (WINS) using Netsh (Or WinScl) from the command prompt on a Windows 2000 or greater server.

Follow the steps below to add your server locator point entry to the WINS database:

• From the command prompt type “Netsh.exe” and press Enter.

• Next type “Wins” and press Enter again

• Next Type “Server” and press Enter. For a remote WINS server you must enter the server name as \\Server_Name or enter the WINS servers IP address.

• Next enter the following:

• Add name Name=SMS_SLP endchar=1A rectype=0 ip={static IP of your SLP}

 Next you should verify that the changes have been added successfully.

• From the command prompt type “Netsh.exe” and press Enter.

• Next type “Wins” and press Enter again

• Next Type “Server” and press Enter. For a remote WINS server you must enter the server name as \\Server_Name or enter the WINS servers IP address.

• Next enter the following:

• Show Name name=SMS_SLP endchar=1A

First, we survived being born to mothers who smoked and/or drank while they were pregnant. They took aspirin, ate blue cheese dressing, tuna from a can, and didn't get tested for diabetes.

Then after that trauma, we were put to sleep on our tummies in baby cribs covered with bright colored lead-based paints.

We had no childproof lids on medicine bottles, doors or cabinets and when we rode our bikes, we had no helmets, not to mention, the risks we took hitchhiking as infants & children, we would ride in cars with no car seats, booster seats, seat belts or air bags.

Riding in the back of a pick up on a warm day was always a special treat.

We drank water from the garden hose and NOT from a bottle.

We shared one soft drink with four friends, from one bottle and no one actually died from this.

We ate cupcakes, white bread and real butter and drank koolade made with sugar, but we weren't overweight because we were always outside playing!

We would leave home in the morning and play all day, as long as we were back when the streetlights came on.

No one was able to reach us all day. And we were OK.

We would spend hours building our go-carts out of scraps and then ride down the hill, only to find out we forgot the brakes. After running into the bushes a few times, we learned to solve the problem.

We did not have Play stations, Nintendo's, X-boxes, no video games at all, no 150 channels on cable, no video movies or DVD's, no surround-sound or CD's, no cell phones and no personal computer or Internet or chat rooms we had friends and we went outside and found them!

We fell out of trees, got cut, broke bones and teeth and there were no lawsuits from these accidents.

We ate worms and mud pies made from dirt, and the worms did not live in us forever.

We were given BB guns for our 10th birthdays, made up games with sticks and tennis balls and, although we were told it would happen, we did not put out very many eyes.

We rode bikes or walked to a friend's house and knocked on the door or rang the bell, or just walked in and talked to them!

Little League had tryouts and not everyone made the team. Those who didn't had to learn to deal with disappointment.

The idea of a parent bailing us out if we broke the law was unheard of. They actually sided with the law!

We had freedom, failure, success and responsibility, and we learned.

These generations have produced some of the best risk-takers, problem solvers and inventors ever! The past 50 years have been an explosion of innovation and new ideas.

About 99% of pumpkins marketed domestically are used as Jack O'Lanterns at Halloween.

Following the Roman conquest in 43 AD, the celebration of Samhain began to incorporate elements of Pomona, the Roman celebration of the harvest. Foods served during this feast included apples and nuts.

Halloween is a relatively new holiday in the United States with the first major celebrations taking place in Anoka, Minnesota in 1921. This was followed by New York in 1923 and Los Angeles in 1925.

Halloween also is recognized as the 3rd biggest party day after New Year's and Super Bowl Sunday.

Halloween is one of the oldest celebrations in the world, dating back over 2000 years to the time of the Celts who lived in Britain and northern France. It has its roots in the feast of Samhain, which took place on 31 October each year to honor the dead.

In the United States, 86% of Americans decorate their homes for Halloween.

Legendary magician Harry Houdini died in Detroit from a ruptured appendix on Halloween in 1926.

More than 93 percent of children go trick-or-treating each year.

People have believed for centuries that light keeps away ghosts and ghouls. Making a pumpkin lantern with a candle inside may keep you safe from all the spooky spirits flying around on Halloween.

The Americans also began the use of pumpkins for lanterns, as they were more freely available than turnips in the US.

The carving of jack-o'-lanterns originated from the tradition of carving the faces of lost souls into hollowed out pumpkins and turnips. A candle was placed inside the carvings making the faces glow. The Halloween lanterns were placed on doorsteps to ward off evil spirits.

The original Halloween film directed by John Carpenter in 1978 cost just $320,000 to make. It ended up making over $50m worldwide.

The record for the fastest pumpkin carver in the world is Jerry Ayers of Baltimore, Ohio. He carved a pumpkin in just 37 seconds!

The US was also responsible for the practice of ‘Trick or Treating’ which is said to represent the fairies who went begging door-to-door on Samhain. Those who gave food were rewarded whilst those who refused to help would be in for a hard winter.

The world's fastest time to carve a face into a pumpkin is 54.72 seconds, by Stephen Clarke (USA), on October 23, 2001 (source: Guinness World Records)

There were estimated 36.8 million potential "trick-or-treaters" ages 5-13.

To further appease wandering spirits, large bonfires were lit and Celtic priests would offer sacrifices of crops and animals make charms and cast spells.

Trick-or-treating is thought to have its origins in a European custom called souling where people would beg for "soul cakes."

Don Hite (Yes that’s me!) began working for IBM on October 31^st.

More Resources:

History Of Halloween From Wikipedia

http://en.wikipedia.org/wiki/Halloween

History and folklore of Halloween

http://www.answers.com/topic/history-and-folklore-of-halloween