SQL Server ・MySQLのサービスのオン・オフをする
Windows Script Host - WScript.Shellを使う
使用例
コマンドプロンプトを利用してSQL Server ・MySQLのサービスのオン・オフをする
※SQL Server または、MySQLがインストールされている環境が必要です。
'MySQLのサービスを起動します。 Sub StertMySQL() Dim objWsh As Object Set objWsh = CreateObject("Wscript.Shell") objWsh.Run "net start mysql", 1, True Set objWsh = Nothing End Sub 'MySQLのサービスを停止します。 Sub StopMySQL() Dim objWsh As Object Set objWsh = CreateObject("Wscript.Shell") objWsh.Run "net stop mysql", 1, True Set objWsh = Nothing End Sub ------------------------------------------------------------ 'SQL Serverのサービスを起動します。 Sub StertSQLServer() Dim objWsh As Object Set objWsh = CreateObject("Wscript.Shell") objWsh.Run "net start MSSQLServer", 1, True Set objWsh = Nothing End Sub 'SQL Serverのサービスを停止します。 Sub StopSQLServer() Dim objWsh As Object Set objWsh = CreateObject("Wscript.Shell") objWsh.Run "net stop MSSQLServer", 1, True Set objWsh = Nothing End Sub