Active Directory : List all servers

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Active Directory : List all servers

Logged in as: Guest

arrSession:exec spGetSession 2,2,38676

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Active Directory : List all servers
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Active Directory : List all servers - 10/12/2006 11:51:59 PM

mcam9

Posts: 25
Score: 0
Joined: 10/12/2006
Status: offline

im a relative newbie to VBscript. Iv recently wrote a script that queries a list of servers (read in from a text file) to see what versions of software are installed on each server. what i would like to do is create a script that queries AD to return all the servers with the letter 'WTS' in their name, which will dynamically create the list of servers for me to check instead of manually creating the text file myself. any help on this matter would be hugely appreciated

Post #: 1

RE: Active Directory : List all servers - 10/13/2006 12:01:03 AM

Snipah

Posts: 1343
Score: 6
Joined: 11/1/2004
From: Netherlands
Status: offline

Please show us your script, so we can help you on your way....

below you'll find a script that queries the domain for computers with WTS in their name:

_____________________________

For more information, please see the "Read me First" topic.

http://www.visualbasicscript.com

(in reply to mcam9)

Post #: 2

RE: Active Directory : List all servers - 10/13/2006 12:10:35 AM

mcam9

Posts: 25
Score: 0
Joined: 10/12/2006
Status: offline

Const ForReading = 1
Const adOpenStatic = 3
Const adLockOptimistic = 3
Set objDictionary = CreateObject("Scripting.Dictionary") ' create object dictionary
Set objFSO = CreateObject("Scripting.FileSystemObject") ' create the file system object
Set objTextFile = objFSO.OpenTextFile("c:\temp\server.txt", ForReading) ' Set the File to be used for input
i = 0
'loop throught the file and add the items to the  object dictionary
Do Until objTextFile.AtEndOfStream 
   strNextLine = objTextFile.Readline
   objDictionary.Add i, strNextLine
   i = i + 1
Loop
' loop through the object dictionary and perform database operations
For Each objItem in objDictionary
On Error Resume Next
Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
strComputer = objDictionary.Item(objItem)
strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
strEntry1a = "DisplayName"
strEntry1b = "QuietDisplayName"
strEntry2 = "InstallDate"
strEntry3 = "VersionMajor"
strEntry4 = "VersionMinor"
strEntry5 = "EstimatedSize"

fileName = strComputer + ".html"
Set objReg = GetObject("winmgmts://" & strComputer & _
"/root/default:StdRegProv")
objReg.EnumKey HKLM, strKey, arrSubkeys
Set Wshshell = Wscript.CreateObject("Wscript.Shell") 
Set fso = Wscript.CreateObject("Scripting.FileSystemObject") 
Set Services = fso.CreateTextFile(fileName,true) 
Services.Write "<html><head><title>Installed Software on " + strComputer + "</title></head>"
Services.Write "<body bgcolor='white'>"
Services.Write "<FONT SIZE ='1' FACE ='Courier'>"
Services.Write "Installed Software & Version Number. <p>"
Services.Write vbcrlf
Services.Write vbcrlf
Services.Write "<table border = '1'>" 
Services.Write "<tr>"
Services.Write "<td width='300'><b>Name</b></td>"
Services.Write "<td width='300'><b>Version</b></td>"
Services.Write "</tr>"

For Each strSubkey In arrSubkeys
 intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, _
 strEntry1a, strValue1)
  
 If intRet1 <> 0 Then
   objReg.GetStringValue HKLM, strKey & strSubkey, _
    strEntry1b, strValue1
 End If
 
 If strValue1 <> "" Then
   Services.Write VbCrLf & "<table border = '1'>" 
Services.Write "<tr>"
Services.Write "<td width='300'>" & strValue1 & "</td>"
 End If
 objReg.GetStringValue HKLM, strKey & strSubkey, _
  strEntry2, strValue2
  
 If strValue2 <> "" Then
   '
 End If
 objReg.GetDWORDValue HKLM, strKey & strSubkey, _
  strEntry3, intValue3
 objReg.GetDWORDValue HKLM, strKey & strSubkey, _
  strEntry4, intValue4
  
 If intValue3 <> "" Then
    Services.Write "<td width='300'>" & intValue3 & "." & intValue4 & "</td>"
    Services.Write "</tr>" &vbcrlf
 End If
 objReg.GetDWORDValue HKLM, strKey & strSubkey, _
  strEntry5, intValue5
  
 
Next
Services.Write "</body></html>"
Services.Close 
Next

thanks for the quick response, its very much appreciated :)

(in reply to Snipah)

Post #: 3

RE: Active Directory : List all servers - 10/16/2006 12:04:05 AM

gdewrance

Posts: 587
Score: 3
Joined: 3/16/2006
Status: offline

Take a look at http://winventory.sourceforge.net/
Takes some setting up, with MySQL PHP Apache but you can always download WAMP which makes that process far easier or if you would like a free CRM while you at it they have a bitrock installer package http://www.sugarcrm.com/crm/download/sugar-suite.html and then setup WinVentory. The author of Winventory does help if you need it.
This will audit all computers everything.

(in reply to mcam9)

Post #: 4

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Active Directory : List all servers

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts