VBScript conexão com MySql

ATENÇÃO Você deve instalar o odbc mysql primeiro.

Podemos usar o exemplo a seguir:

Dim Connection, ConnectString

ConnectString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
  "SERVER=localhost;" & _
  "PORT=3306;" & _
  "DATABASE=logins;" & _
  "USER=root;" & _
  "PASSWORD=1234;"

Set Connection = CreateObject("ADODB.Connection")
Connection.Open ConnectString

hostname = "ti053"
nome = "José Rodrigues Filho"

Sql= "INSERT INTO logins (hostname, nome, login, mac, ip, data) VALUES ('" & hostname & "', '" & nome & "', 'jose.rodrigues', '00:11:22:33:44:55', '192.168.0.10', '2021-07-29 13:23:16')"

Set Result = Connection.Execute(Sql)
Connection.Close