Versionsabfrage MS SQL Server

Manchmal ist es erforderlich, auf möglichst einfache und schnelle Weise die Versionsnummer eines MS SQL Server herauszufinden. Nun bringt der SQL Server hierfür auch eine Funktion mit: Die Systemvariable "@@version" enthält die Information. Nachteilig dabei ist aber, dass man schon einen geeigneten Client braucht, um die Daten auch abzufragen.

Variante 1

Schneller geht es mit dem folgenden VB-Script. Es öffnet eine Verbindung zum Server, fragt die ab und gibt das Ergebnis als Meldung zurück.

Das gezeigt Script kann man z. B. auch verwenden, um die Versionsinformation in das sehr nützliche Tool "BGInfo" von Sysinternals einzubinden.

Das Skript: vbsSQLSRVversion.vbs

strSQLServer = "servername" ' hier Servernamen angeben
strConn      = "Driver={SQL Server};SERVER=" & strSQLServer

set objDB = CreateObject("ADODB.Connection")
objDB.Open(strConn)

strSQL = "select v=@@version"
set objRS = objDB.Execute(strSQL)

wscript.echo objRS.Fields("v").value

Variante 2

Als Reaktion auf den "Slammer"-Wurm Ende Januar 2003 habe ich folgende Variation des Skripts entwickelt. Es funktioniert mit SQL Server Version 7.0, 2000 und 2005. Es kann auf jedem Server bzw. Client gestartet werden, der den Windows Script Host installiert hat (ab W2000; bei NT nicht Standard).

Das Skript gibt eine Versionsinfo zu dem Server aus, dessen Namen man angibt (falls er existiert). Sollte das Skript nicht laufen, kann man direkt auf dem SQL-Server in einem CMD-Fenster folgendes Kommando eingeben:

osql -E -Q "select @@version"

Auch hier sollte eine Versionsinfo zurückkommen. Der "Slammer"-Patch ist dann vorhanden, wenn auf dem SQL-Server 2000 die Versionsnummer >= 8.00.760 ist (entspricht SP3). Auf dem SQL-Server 7.0 muss sie >= 7.00.1077 sein. Ist das nicht der Fall, dann muss gepatcht werden. Achtung: Für SQL Server 7.0 muss erst SP4, dann der Patch eingespielt werden. Die Update-Prozedur dauert ziemlich lange und erfordert mindestens einen Neustart des SQL-Dienstes, evtl. sogar des Servers.

Das Skript: vbsSQLSRVversion2.vbs

strSQLServer = "." ' hier Servernamen angeben; "." ist lokal
strConn      = "Driver={SQL Server};SERVER=" & strSQLServer
 
on error resume next
set objDB = CreateObject("ADODB.Connection")
objDB.Open(strConn)
 
if err.number <> 0 then
    quitcode
else
    sqlvers
end if
 
sub sqlVers()
    strSQL = "select v=@@version"
    set objRS = objDB.Execute(strSQL)
 
    if err.number <> 0 then
        quitcode
        exit sub
    end if
 
    strVer = objRS.Fields("v").value
 
    if err.number <> 0 then
        quitcode
        exit sub
    end if
 
 
    if instr(strVer, "2005 - 9") > 0 then
       strSQL = "SELECT v= 'SQL Server 2005 ' + cast(SERVERPROPERTY ('productlevel')" _
                  & " as varchar) + ', Version ' + cast(SERVERPROPERTY('productversion')" _
                  & "  as varchar) + ', ' + cast(SERVERPROPERTY ('edition') as varchar)"
       set objRS = objDB.Execute(strSQL)
       strVer = objRS.Fields("v").value
    elseif instr(strVer, "2000 - 8") > 0 then
       strSQL = "SELECT v= 'SQL Server 2000 ' + cast(SERVERPROPERTY ('productlevel')" _
                  & "  as varchar) + ', Version ' + cast(SERVERPROPERTY('productversion')" _
                  & "  as varchar) + ', ' + cast(SERVERPROPERTY ('edition') as varchar)"
       set objRS = objDB.Execute(strSQL)
       strVer = objRS.Fields("v").value
    elseif instr(strVer, "7.00.1063") then strVer = "SQL Server 7.0 SP4"
    elseif instr(strVer, "7.00.961") then strVer = "SQL Server 7.0 SP3"
    elseif instr(strVer, "7.00.842") then strVer = "SQL Server 7.0 SP2"
    elseif instr(strVer, "7.00.699") then strVer = "SQL Server 7.0 SP1"
    elseif instr(strVer, "7.00.623") then strVer = "SQL Server 7.0 ohne SP"
 
    end if
 
    WScript.echo strVer
 
end sub
 
sub quitcode()
    WScript.echo "(kein Wert ermittelt)"
end sub