WMI script to configure IPAll properties for SQL Server TCP Configuration

configIPAll.vbs

set wmiComputer = GetObject( _
    "winmgmts:" _
    & "\\.\root\Microsoft\SqlServer\ComputerManagement12")
set tcpProperties = wmiComputer.ExecQuery( _
    "select * from ServerNetworkProtocolProperty " _
    & "where InstanceName='MSSQLSERVER' and " _
    & "ProtocolName='Tcp' and IPAddressName='IPAll'")

for each tcpProperty in tcpProperties
    dim setValueResult, requestedValue

    if tcpProperty.PropertyName = "TcpPort" then
        requestedValue = "1433"
    elseif tcpProperty.PropertyName ="TcpDynamicPorts" then
        requestedValue = "0"
    end if

    setValueResult = tcpProperty.SetStringValue(requestedValue)
    if setValueResult = 0 then 
        Wscript.Echo "" & tcpProperty.PropertyName & " for IPAll set."
    else
        Wscript.Echo "" & tcpProperty.PropertyName & " for IPAll failed!"
    end if
next