Comments on: VBScript: Enumerate All SQL Servers on a Domain

By: Radski

Radski — Thu, 07 Aug 2008 10:03:15 +0000

Another ugly hack to make this work with 2005 if you have the native client installed and to ditch the dodgy logic for default instance from the last post

'========================================================================
ON ERROR RESUME NEXT

Set objAdRootDSE = GetObject("LDAP://RootDSE")
Set objRS = CreateObject("adodb.recordset")
set objFS = CreateObject("Scripting.FileSystemObject")
Set objLogFile = objFS.CreateTextFile("sql_servers.txt")
Set objERRORLog = objFS.CreateTextFile("sql_servers_errors.txt")
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Const HKEY_LOCAL_MACHINE = &H80000002

objRS.Open strWQL, strConnstring
Do until objRS.eof
Set objServer = GetObject(objRS.Fields.Item(0))
strServerName = objServer.CN

Set colItems = objWMIService.ExecQuery("Select * from Win32_PingStatus Where Address = '" & objServer.DNSHostName & "'")
For Each objItem in colItems
If objItem.StatusCode = 0 Then 'The Computer is Pingable

Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strServerName & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Microsoft SQL Server"
strValueName = "InstalledInstances"
objRegistry.GetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath, strValueName,arrValues
If IsNull(arrValues) = 0 Then 'It's a SQL Server! Enumerate it's instances

For Each strValue In arrValues
strMsg = strServerName & vbtab & strValue & vbtab & GetSQLServerVersion(strServerName)
objLogFile.WriteLine strMsg
wscript.echo strMsg
Next

End If
Set objRegistry = Nothing
End If
Set objServer = Nothing
Next
objRS.movenext
Loop

objRS.close

Set objWMIService = Nothing
Set objRS = Nothing
Set objAdRootDSE = Nothing

'####
Function GetSQLServerVersion(serverName)

Set cxn = Wscript.CreateObject("ADODB.Connection")
strConn = "Driver={SQL Server};Server=" & strServerName & ";Database=master"
sqlstr = "SELECT @@version"
cxn.ConnectionString = strConn
Err.Clear
cxn.Open

If Err.number 0 Then
Set cxn = Wscript.CreateObject("ADODB.Connection")
strConn = "Driver={SQL Native Client};Server=" & strServerName & ";Database=master"
sqlstr = "SELECT @@version"
cxn.ConnectionString = strConn
cxn.Open
End If

Set rs=cxn.Execute(sqlstr)
Err.Clear
rs.MoveFirst

If Err.number 0 Then
objERRORLog.WriteLine Err.Description
GetSQLServerVersion = Err.Description
ERR.Clear
Else
GetSQLServerVersion = rs(0).Value
End If

cxn.Close

End Function '//Function GetSQLServerVersion(serverName)

By: Greg

Greg — Thu, 15 May 2008 17:19:36 +0000

Here's a slight modification - This script will query the SQL server for it's version. Also, creates an error file and an output file (this is all hack, nuthin' fancy
'****************************************************************************
' This script created by Chrissy LeMaire (clemaire@gmail.com)
' Website: http://netnerds.net/
'
' Modified by Gregory Jones (greg@fuzsh.com)
'
' This script finds all SQL Servers and their instances and their version that are members of an AD domain
' and running any Windows Server version
'
' Run this script with admin privs on any computer within a domain
'
' This script has only been tested on Windows Server 2003
'
' "What it does"
' 1. Gathers all machines in a domain that are running a Windows Server OS (NT, 2000, 2003)
' 2. Pings them to see if they are available
' 3. If they do respond to pings, it checks their registry to see if they have the proper SQL keys
' 4. If the key does exist, it then enumerates the instances (including default)
'
' NO WARRANTIES, USE THIS AT YOUR OWN RISK, etc.
'*****************************************************************************
========================================================================
ON ERROR RESUME NEXT

Const HKEY_LOCAL_MACHINE = &H80000002

varConfigNC = objAdRootDSE.Get("defaultNamingContext")
strConnstring = "Provider=ADsDSOObject"
strWQL = "SELECT * FROM 'LDAP://" & varConfigNC & "' WHERE objectCategory= 'Computer' and OperatingSystem = 'Windows*Server*' "
objRS.Open strWQL, strConnstring
Do until objRS.eof
Set objServer = GetObject(objRS.Fields.Item(0))
strServerName = objServer.CN

strMsg = strServerName & " is running the following SQL Instance(s): "
For Each strValue In arrValues
If strValue = "MSSQLSERVER" Then strValue = "Default Instance"
strMsg = strServerName & vbtab & strValue & vbtab & GetSQLServerVersion(strServerName)
Next

objLogFile.WriteLine strMsg
wscript.echo strMsg
End If
Set objRegistry = Nothing
End If
Set objServer = Nothing
Next
objRS.movenext
Loop
objRS.close

Set objWMIService = Nothing
Set objRS = Nothing
Set objAdRootDSE = Nothing

Function GetSQLServerVersion(serverName)

rs.MoveFirst

If ERR 0 Then

objERRORLog.WriteLine Err.Description
GetSQLServerVersion = Err.Description
ERR.Clear
Else
GetSQLServerVersion = rs(0).Value

End If

cxn.Close

End Function '//Function GetSQLServerVersion(serverName)

By: Jerry

Jerry — Tue, 02 Oct 2007 19:34:34 +0000

Looks great. Where do I put the domain name?

By: JM

JM — Tue, 20 Feb 2007 13:44:44 +0000

Very kewl!

Cheers for posting it up!
JM