用于启动排队 COM 的 VBScript应用程序 - 泄漏内存

Question

我有一个简单的 VBScript，它遍历所有 COM+ 应用程序并启动排队的应用程序。该活动每半小时运行一次。我的服务器有 2.5GB 内存。然后大约 3 天之后，我从 Windows Script Host 收到“内存不足”错误。不过，服务器内存似乎没问题。大约 1GB 免费。

这就是我的脚本的样子；

dim cat 
Dim apps
Dim app

set cat = CreateObject ("COMAdmin.COMAdminCatalog") 

set apps = cat.getcollection("Applications")
apps.populate

for each app in apps
  if app.Value("QueuingEnabled") then
    cat.StartApplication (app.name) 
  end if
next

上次我收到此错误时，它报告了第 7 行； 将 apps = cat.getcollection("Applications") 设置为内存不足的位置。有人对如何解决这个问题有任何建议吗？我对 COM+ 的经验很少，所以我很难看出什么在消耗内存。服务器上只运行了大约 8 个 COM+ 应用程序，而且它们并不大。

任何帮助将不胜感激。

Answer 1

我认为你需要：

Set app = Nothing
Set apps = Nothing
Set cat = Nothing

在脚本的末尾。

有关如何使用的示例，请参阅 http://support.microsoft.com/kb/304713 COMAdmin.COMAdminCatalog 对象。