export schema

Set oSS = CreateObject("SQLDmo.SqlServer") 

oSS.LoginSecure = True 

oSS.Connect "000.000.000.000", "dbid", "dbpass"

Set oT = CreateObject("SQLDMO.Transfer")

Set oDb = oSS.Databases("dbname")

oT.CopyAllTables = True

oT.CopyAllViews = True

oT.CopyAllFunctions = True

oT.CopyAllStoredProcedures = True

oT.CopyAllTriggers = True

oDb.ScriptTransfer oT, 2, "c:\schema_export.sql"

oSS.disconnect

'clean up

set oT = Nothing

set oSS = nothing

WScript.Sleep 3000