The following SQLDMO and SMO VBScript code snippets can be used to check each database on a SQL Server instance and identify any databases where the AutoShrink database option is enabled.  Note the DBOptions Class in SQLDMO has been moved to DatabaseOptions in SMO.

~~~ DMO Example ~~~

Dim db
Dim oDMOServer

Set oDMOServer = CreateObject("SQLDMO.SQLServer")

oDMOServer.LoginSecure = True
oDMOServer.Connect "(local)"

For Each db In oDMOServer.Databases
    If db.DBOption.AutoShrink = True Then
        MsgBox db.Name & " - Auto Shrink Enabled"
    End If
Next

oDMOServer.DisConnect
Set oDMOServer = Nothing

MsgBox "Done"

~~~

~~~ SMO Example ~~~

Dim db
Dim oSMOServer

Set oSMOServer = CreateObject("Microsoft.SQLServer.Management.SMO.Server")

For Each db In oSMOServer.Databases
    If db.DatabaseOptions.AutoShrink = True Then
        MsgBox db.Name & " - Auto Shrink Enabled"
    End If
Next

Set oSMOServer = Nothing

MsgBox "Done"

~~~