' ***********************************************************
' 標準的なオブジェクトを作成
' ***********************************************************
Set WshShell = CreateObject( "WScript.Shell" )
Set Fso = CreateObject( "Scripting.FileSystemObject" )
Set Dic = CreateObject( "Scripting.Dictionary" )
Set Shell = CreateObject( "Shell.Application" )
Set Cn = CreateObject( "ADODB.Connection" )
Set Rs = CreateObject( "ADODB.Recordset" )
Set Stream = CreateObject( "ADODB.Stream" )
Set Adox = CreateObject( "ADOX.Catalog" )
' ***********************************************************
' 処理開始
' ***********************************************************