VB 스크립트 - SQL 구성 정보 쿼리

매개 변수로 인스턴스 이름을 입력 받아 구성 정보(sp_configure)를 쿼리하는 VBS 입니다.
매개 변수를 입력하지 않는 경우 기본 인스턴스(MSSQLSERVER)를 쿼리합니다.

Set oArgs = WScript.Arguments

If oArgs.Count = 0 Then

InstanceName = "MSSQLSERVER"

Else InstanceName = oArgs(0)

End If

If Ucase(InstanceName) = "MSSQLSERVER"Then

ServerName = "."

Else ServerName = ".\"&InstanceName

End If

Set objCN = CreateObject("ADODB.Connection")

strConnection = "Driver={SQL Server};Server="&ServerName&";Initial Catalog=master;Trusted_Connection=TRUE"

objCN.Open strConnection

strQuery = "EXEC sp_configure 'show advanced options','1';RECONFIGURE;EXEC sp_configure"

objRS=CreateObject("ADODB.Recordset")

Set objRS = objCN.Execute(strQuery)

Do Until objRS.EOF

WScript.Echo objRS.Fields("Name"),objRS.Fields("config_value"),objRS.Fields("run_value")

objRS.MoveNext

Loop

objRS.Close

objCN.Close