Try this sub... You may need to play around with the Driver path.
dim wsh : set wsh = wscript.createObject( "WScript.Shell" )
const ODBC = "HKLM\SOFTWARE\ODBC\ODBC.INI\"
'----------------------------------------------------
'# Create an ODBC datasource.
'# 31/7/2001 - SJD
sub createODBC( sName, sServer, sDesc, sDatabase, sUser )
dim ODBCS
ODBCS = ODBC & sName & "\"
wsh.regWrite ODBC, sName
wsh.regWrite ODBC & "ODBC Data Sources\" & sName, "SQL Server"
wsh.regWrite ODBCS & "Driver", "C:\WINNT\System32\sqlsrv32.dll"
wsh.regWrite ODBCS & "Description", sDesc
wsh.regWrite ODBCS & "Server", sServer
wsh.regWrite ODBCS & "Database", sDatabase
wsh.regWrite ODBCS & "LastUser", sUser
wsh.regWrite ODBCS & "UseProcForPrepare", "0"
end sub