从Perl脚本DBI关闭MSSQL服务器

Question

我正在编写一个Perl脚本，在该脚本中， 我必须关闭mssql服务器 ，执行一些操作，然后重新启动它。我知道一种方法是使用netstat 停止服务，但不能使用它。 所以我尝试安装DBI和DBD :: ODBC模块。我能够通过以下代码连接并执行查询

use DBI;
my $data_source = q/dbi:ODBC:AUTOMATION_WOW64/;
my $user = q/pa/;
my $password = q/DCE/;

# Connect to the data source and get a handle for that connection.
my $dbh = DBI->connect($data_source, $user, $password)
or die "Can't connect to $data_source: $DBI::errstr";
my $str=$dbh->prepare("select SERVERPROPERTY('edition')");
$str->execute(); 
my @row;
while (@row = $str->fetchrow_array) {  # retrieve one row
print join(", ", @row), "\n";
} 

但是即使经过大量的搜索， 我仍然无法找到任何查询，我可以关闭服务器 。 只是想知道是否可以从sql query关闭服务器。 我为mysql服务器找到了一个

    $rc = $dbh->func('shutdown', 'admin');

在此链接http://metacpan.org/pod/DBD::mysql中，请告诉我mssql服务器是否存在与此类似的内容。

Answer 1

有一个名为SHUTDOWN的SQL命令- 更多信息在这里