NSLookup works but ping fails

Another random issue I ran accross as I was installing Windows Server 2003 R2 Enterprise Edition 32 bit on an HP DL360 G5 server……Everything was going fine until the instatllion of SP2 decided to break name resolution and made the Windows update website not work. I could browse other sites fine. The scenario:

Round 1-

  1. Started with HP SmartStart version 8.2 and went through a normal OS load
  2. Logged in and downloaded SP2 from Windows update.
  3. Restarted
  4. It was at this time that windows update was broken.

Round 2-

  1. Started with HP SmartStart version 8.3 (downloaded from HP support) and went through a normal OS load
  2. Manually downloaded SP2 from MS and transferred that to the server when it was ready
  3. Applied SP2, and restarted
  4. Windows update website worked fine then, so I began the download of the other 80 some updates
  5. Half way through the installation of the updates, something went wrong and it stopped unexpectedly.
  6. Restarted, and Windows updates would not work

Round 3-

  1. Became skeptical of HP SmartStart, so I just used the OS installation media to install
  2. Applied the downloaded version of SP2 and restarted
  3. Windows update was broken again

After fighting with this for a while, I ran accross some information online with others that have had this same issue. All it took was disabling the DNS Client service on the server, and viola, name resolution was working again. I applied the rest of my updates, restarted and life was good. The DNS client ran automatically on startup and name resolution is still working fine as well.

Enumerate users in an Active Directory group

Here is a little script that I ran accross today to help with dumping the members of an AD group into a text file. Edit as you see fit for your situation. Best to copy and paste it from here. If you manually type it, watch out for the word wrap.

'Script begins here
Dim objGroup, objUser, objFSO, objFile, strDomain, strGroup, Domain, Group
'Change DomainName to the name of the domain the group is in
strDomain = Inputbox ("Enter the Domain name", "Data needed", "Default domain name")
'Change GroupName to the name of the group whose members you want to export
strGroup = InputBox ("Enter the Group name", "Data needed", "Default group name")
Set objFSO = CreateObject("Scripting.FileSystemObject")
'On the next line change the name and path of the file that export data will be written to.
Set objFile = objFSO.CreateTextFile("C:\utils\" & strGroup & " - Members.txt")
Set objGroup = GetObject("WinNT://" & strDomain & "/" & strGroup & ",group")
For Each objUser In objGroup.Members
'objFile.WriteLine objUser.Name & " - " & objUser.Class
objFile.WriteLine objUser.Name
Set objFile = Nothing
Set objFSO = Nothing
Set objUser = Nothing
Set objGroup = Nothing
Wscript.Echo "Done"
Wscript.Echo "Please check the c:\utils\ for your output file"