‘ Script to clear SQL Transaction logs
‘ Parameters:
‘ strServer = SQL Server name
‘ strDatabase = Database name
‘ strLogName = The name of the log file
‘
‘ Script starts here:

‘ Force explicit declaration
Option Explicit

‘ Make variables public so they can be accessed from the sub
Public objCon, objCom

‘ Create database connection object
Set objCon = CreateObject("ADODB.Connection")

‘ Create database command object
Set objCom = CreateObject("ADODB.Command")

‘ Clear logs
Call ClearLogs("MyServer", "MyDatabase", "MyDatabase_log")
Call ClearLogs("MyOtherServer", "MyOtherDatabase", "MyOtherDatabase_log")

‘ Cleanup
Set objCom = Nothing
Set objCon = Nothing

‘ Exit the script (just to be sure that code below is never Executed
WScript.Quit(0)

‘ The procedure that clears the log
Sub ClearLogs(strServer, strDatabase, strLogName)
   Dim strConnection
   ‘ Build connection string
   strConnection = "Driver={SQL Native Client};Server=" & strServer & ";Database=" & strDatabase & ";Trusted_Connection=yes;"

   WScript.Echo("Connection String: " & strConnection)
   ‘ Open Connection to SQL Server and Database
   ‘ Trusted connection so the currently logged-on account needs permissions
   WScript.Echo("Open connection")
   objCon.Open(strConnection)

   ‘ Connect AdoCommand to the Active connection
   objCom.ActiveConnection = objCon
   
   ‘ Execute DBCC SHRINKFILE
   objCom.CommandText = "DBCC SHRINKFILE(" & strLogName & ", 1)"
   WScript.Echo(vbTab & objCom.CommandText)
   objCom.Execute
   
   ‘ Truncate Log
‘   WScript.Echo(vbTab & "BACKUP LOG WITH TRUNCAT")
   objCom.CommandText = "BACKUP LOG " & strDatabase & " WITH TRUNCATE_ONLY"
   WScript.Echo(vbTab & objCom.CommandText)
   objCom.Execute

   ‘ Execute DBCC SHRINKFILE again  
   objCom.CommandText = "DBCC SHRINKFILE(" & strLogName & ", 1)"
   objCom.Execute
   WScript.Echo("Close connection")
   objCon.Close
End Sub