<%
Call Response.AddHeader( "Content-Type", "text/html; Charset=shift_jis" )
Response.ExpiresAbsolute=#May 31,2000 23:59:59#

strServer = "machine\instance"
strUser = "user"
strPass = "password"
strDb = "database"
strTarget = "/dbmtn"		' 出力URL

' **********************************************************
' メインオブジェクト作成
' **********************************************************
Set Fso = CreateObject( "Scripting.FileSystemObject" )
Set objServer = CreateObject( "SQLDMO.SQLServer" )

' **********************************************************
' サーバー接続
' **********************************************************
Call objServer.Connect( strServer, strUser, strPass )

' **********************************************************
' サーバーオブジェクトからデーターベースオブジェクト作成
' **********************************************************
Set objDatabase = objServer.Databases( strDb )

' **********************************************************
' テーブル一覧
' **********************************************************
For Each obj in objDatabase.Tables

	if Ucase( Left( obj.Name & "", 3 ) ) <> "SYS" then

		Response.Write obj.Name & vbCrLf

	end if

Next

Call objServer.DisConnect()

%>

<?
$target_url = "http://test.com/dbmtn/table_list.asp";

$txt_array = @file( $target_url );
foreach ( $txt_array as $table_name ) {
	print $table_name;
}

?>