直接打开某一数据库下的查询分析器

Dim WshShell

Set WshShell = CreateObject("WScript.Shell")

WshShell.run "isqlw -S server -d database -U username -P  pass"

Set WshShell = Nothing

把上面的代码保存成sql.vbs。然后双击就可以直接打开查询分析器。