none
(vbscript) Problemas al establecer conexión con SQL server en windows 7 RRS feed

  • Pregunta

  • Hola,

    No consigo que establezca la conexión a un servidor sql server desde un windows 7 me salta este error, en XP no hay problema.

    Gracias :)

    ---------------------------
    Windows Script Host
    ---------------------------
    Secuencia de comandos
    Carácter: 1
    Error: [DBNETLIB][ConnectionOpen (Connect()).]No existe el servidor SQL Server o se ha denegado el acceso al mismo.
    Código: 80004005
    Origen: Microsoft OLE DB Provider for SQL Server

    ---------------------------
    Aceptar   
    ---------------------------


    Dim oWMI, cComputerData, colProcessors, colItems, strComputer, objFile, WshNetwork


    strComputer= "."

    set oWMI= GetObject("winmgmts:\\" & "." & "\root\cimv2")
    Set cComputerData = oWMI.ExecQuery("SELECT * FROM Win32_OperatingSystem")
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Environment", "WQL", _
                                              wbemFlagReturnImmediately + wbemFlagForwardOnly)

    For Each oItem In cComputerData
        strOS = oItem.Caption
    Select Case true
    Case InStr(1, strOS, "Server", vbTextCompare) > 0
    Case InStr(1, strOS, "Microsoft Windows 7 Professional", vbTextCompare) > 0

    Set WshNetwork = WScript.CreateObject("WScript.Network")
    Equipo = WshNetwork.ComputerName

    Const adOpenStatic = 3
    Const adLockOptimistic = 3
    Set objConnection = CreateObject("ADODB.Connection")
    Set objRecordSet = CreateObject("ADODB.Recordset")

    objConnection.Open "Provider=SQLOLEDB;Data Source=;Trusted_Connection=No;Initial Catalog=;User ID=;password=;"


    objRecordSet.Open "SELECT * FROM dbo.ficheros_pst WHERE " & _ 
        "Equipo Like '" & Equipo & "'", _ 
            objConnection, adOpenStatic, adLockOptimistic


    • Editado PlacoLL miércoles, 22 de agosto de 2012 11:56
    miércoles, 22 de agosto de 2012 11:04