You can do this (on Windows) using a combination of Perl and SQL Server capabilities:

use Win32::OLE;

my $dmo = Win32::OLE->new("SQLDMO.SQLServer") or die;

$dmo->Connect('ServerName','UserName','Login');

my $db = $dmo->{Databases}->{'DatabaseName'};
my $table = $db->{Tables}->{'TableName'};
$table->Script(undef,"foo.sql");
[download]

This will generate the SQL to create the table 'TableName' in the database 'DatabaseName' in the file "foo.sql". You will probably want to read more about the SQL-DMO in the SQL Server documentation.

/J\