none
Configurar DSN via script VBS RRS feed

  • Pergunta

  • Bom dia,

    Recebi uma demanda na criação de um script para criação de um DSN nas configurações de ODBC das estações, esta conexão ODBC deve abrir uma conexão para um servidor SQL Server, usando o driver do native client 10 , com autenticação do SQL Server, usando um usuário e senha, após algumas pesquisas encontrei o script abaixo , entretanto só consigo criar a conexão para usuário e não para system além disto não consegui setar a senha através deste script, alguém pode me ajudar com este problema?

    Dim RegObj
    Dim SysEnv

        Set RegObj = WScript.CreateObject("WScript.Shell")

        '***** Specify the DSN parameters *****

        DataSourceName = "SQLDRHPRO"
        DatabaseName = "TESTE
    Description = ""
        LastUser = "TESTE
    Server = "SQLDRHVIR\SQLDRHPRO,"

         'if you use SQL Server the driver name would be "SQL Server"
        DriverName = "SQL Server"

         'Set this to True if Windows Authentication is used
         'else set to False or comment out
        WindowsAuthentication = False    'point to DSN in registry
        REG_KEY_PATH = "HKCU\SOFTWARE\ODBC\ODBC.INI\" & DataSourceName

          'get os version through WSCript Enviroment object
          Set SysEnv = RegObj.Environment("SYSTEM")
          OSVer = UCase(SysEnv("OS"))

           'check which os is running so correct driver path can be set
          Select Case OSVer
            Case "WINDOWS_NT"
                DrvrPath = "C:\Windows\system32\sqlncli10.dll"
            Case Else
                DrvrPath = "C:\Windows\system32\sqlncli10.dll"
          End Select

          'create entries in registry
          RegObj.RegWrite REG_KEY_PATH & "\DataBase",DatabaseName,"REG_SZ"
          RegObj.RegWrite REG_KEY_PATH & "\Description",Description,"REG_SZ"
          RegObj.RegWrite REG_KEY_PATH & "\LastUser",LastUser,"REG_SZ"
          RegObj.RegWrite REG_KEY_PATH & "\Server",Server,"REG_SZ"
          RegObj.RegWrite REG_KEY_PATH & "\Driver",DrvrPath,"REG_SZ"
      
          'if WindowsAuthentication set to True,
          'a trusted connection entry is added to registry
          'else, SQL Authentication is used.
          if WindowsAuthentication = True then
            RegObj.RegWrite REG_KEY_PATH & "\Trusted_Connection","Yes","REG_SZ"
          end if

          'point to data sources key
          REG_KEY_PATH = "HKCU\SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources\" & DataSourceName

          'and add the name of the new dsn and the driver to use with it
          RegObj.RegWrite REG_KEY_PATH,DriverName,"REG_SZ"

        Set RegObj = Nothing
        Set SysEnv = Nothing

     

    Obrigado,

    Carlos Cedro


    "Carregue todo dia um grão de areia e voce constrói uma montanha!"
    quarta-feira, 17 de novembro de 2010 11:35

Respostas

  • resolvido com a atualização do domínio e a novas gpo's do windows server 2008 r2


    "Carregue todo dia um grão de areia e voce constrói uma montanha!"
    quarta-feira, 9 de novembro de 2011 17:55