Question

我有一个简单的VBScript，它遍历所有COM +应用程序并启动排队的应用程序。每半小时运行一次。我的服务器有2.5GB的内存。然后在大约3整天后，我从Windows脚本宿主得到“内存不足”错误。但是，似乎服务器内存很好。大约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行; set apps = cat.getcollection("Applications")作为内存耗尽的地方。有没有人对如何解决这个问题有任何建议？我对COM +的经验很少，所以我很难看到这里消耗的内存。在服务器上只运行了大约8个COM +应用程序，它们并不是很大。

非常感谢任何帮助。

Answer 1

我认为你需要：

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

在脚本的末尾。

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

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

1 个答案: