关于自动停止Business系统服务器和业务服务器

alang

其实，在Windows平台上，系统服务器和业务服务器都是COM+服务，只要按照停止COM＋服务的方法来停止这两个服务器就可以了，一点都不难。

在BIN目录下有一个文件comadmin.vbs中，已经有了注册服务和注销服务的代码了，只要增加停止com+服务的代码就可以了。

Dim catalog
Set catalog = CreateObject("COMAdmin.COMAdminCatalog.1")

'Then we get the applications collection
Dim applications
Set applications = catalog.GetCollection("Applications")

applications.Populate
numApplications = applications.Count

catalog.ShutdownApplication  'Justep System Server'
catalog.ShutdownApplication  'Justep Business Server'

利用这一句就可以停止服务了。