Here is an example of doing this as a remote admin script.
You must have admin rights on the remote system.

Create a file called computers.txt and place the
names of the computers you want to run this against in it
with one computer per line like this

comp01
comp02
comp03
etc...

Break On
Dim $SO
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
$SO=SetOption('NoMacrosInStrings','On')
 
Global $WinPath,$Computers
Dim $Ping,$sComputer
 
$Computers = ReadFile(@ScriptDir+'\'+'computers.txt')
For Each $sComputer In $Computers
  If $sComputer
    $sComputer = Trim($sComputer)
    $Ping = OSPing($sComputer)
    If $Ping
      $WinPath = WindowsInstallFolder($sComputer)
      $sComputer=IIf(Not $sComputer,'','\\'+Join(Split($sComputer,'\'),'',3)+'\')
      If InStr(ReadValue($sComputer+'HKLM\SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources','SmartClinic'),'SQL Server')
        'No update Required on ' + $sComputer ?
      Else
        CreateDSN($sComputer)
        'Update key on: ' + $sComputer + '  -  ' +@ERROR + ' - ' + @SERROR ?
      EndIf
    Else
      'The computer ' + $sComputer + ' did not repsond to ping' ?
    EndIf
  EndIf
Next
 
Function CreateDSN($sComputer)
  Dim $Key,$Set
  $Key = 'HKLM\SOFTWARE\ODBC\ODBC.INI'
  $Set=WriteValue ($sComputer+$Key+'\ODBC Data Sources','SmartClinic','SQL Server',Reg_SZ)
  $Set=WriteValue ($sComputer+$Key+'\SmartClinic','Driver',$WinPath+'\system32\SQLSRV32.dll',REG_SZ)
  $Set=WriteValue ($sComputer+$Key+'\SmartClinic','Description','SmartClinic',REG_SZ)
  $Set=WriteValue ($sComputer+$Key+'\SmartClinic','Server','MEDICALSERVER',REG_SZ)
  $Set=WriteValue ($sComputer+$Key+'\SmartClinic','LastUser','sa',REG_SZ)
  Exit @ERROR
EndFunction
 
Function ReadFile($file)
  Dim $lf, $f, $_, $t
  $lf=CHR(10)
  $f=FreeFileHandle
  $_=Open($f,$file)
    If @ERROR Exit @ERROR EndIf
    Do $t=$t+$lf+ReadLine($f) Until @ERROR
    $_=Close($f)
  $ReadFile=Split(SubStr($t,2),$lf)
EndFunction
 
Function WindowsInstallFolder(optional $sComputer,$UNC)
  Dim $WinDir
  $sComputer=IIf(Not $sComputer,'','\\'+Join(Split($sComputer,'\'),'',3)+'\')
  If $sComputer And $UNC
    $WinDir = $sComputer+Join(Split(ReadValue($sComputer+'HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion','SystemRoot'),':'),'$')
  Else
    $WinDir = ReadValue($sComputer+'HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion','SystemRoot')
  EndIf
  If @ERROR
    $WindowsInstallFolder = ''
    Exit Val('&' + Right(DecToHex(@ERROR), 4))
  Else
    $WindowsInstallFolder = $WinDir
  EndIf
  Exit @ERROR
EndFunction
 
Function OSPing($sComputer)
  Shell'%comspec% /c ping -n 1 '+$sComputer+' >nul'
  $OSPing = NOT @ERROR
EndFunction