'	On Error Resume Next

Dim oSQLServer
Dim WshShell
Set oSQLServer = CreateObject("SQLDMO.SQLServer")

'Windows認証で接続を行います
oSQLServer.LoginSecure = True
oSQLServer.Connect

'サーバーの認証モードを強制的に混合モードに変える
oSQLServer.IntegratedSecurity.SecurityMode = SQLDMOSecurity_Mixed

'接続を閉じる
oSQLServer.Disconnect

'サービスの停止をSQLDMOでは、次の命令になります。
oSQLServer.Stop

set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 15000

'サービスの開始は、次のようになります
oSQLServer.Start False

'sa管理者でログインを試みる
'oSQLServer.LoginSecure = False'SQLServer認証を使う
'oSQLServer.Connect "(local)", "sa", ""

'接続を閉じる
'oSQLServer.Disconnect