（传统）MFCOM VBScript获取无效的过程调用

Question

我可以列出所有已发布的应用程序，这很有效，但是当尝试获取根应用程序文件夹时，我得到一个无效的过程调用。有谁知道我在这里做错了吗？

Dim theFarm,rootAppFolder 
Set oWSHShell = CreateObject("Wscript.Shell") 
Set oWSHNetwork = CreateObject("WScript.Network") 
Set oWSHProcEnv = oWSHSHELL.Environment("PROCESS") 

      'Create MetaFrameFarm object 
      Set theFarm = CreateObject("MetaFrameCOM.MetaFrameFarm") 
       if Err.Number <> 0 Then 
       WScript.Echo "Can't create MetaFrameFarm object" 
       WScript.Echo "(" & Err.Number & ") " & Err.Description 
       WScript.Echo "" 
       WScript.Quit Err.Number 
       End if 


      'Initialize the farm object. 
      theFarm.Initialize 1 

      If Err.Number <> 0 Then 
       WScript.Echo "Can't Initialize MetaFrameFarm object" 
       WScript.Echo "(" & Err.Number & ") " & Err.Description 
       WScript.Echo "" 
       WScript.Quit Err.Number 
       End if 

Set rootAppFolder = theFarm.GetRootFolder(MetaFrameAppFolder) 'error on this line here 
Set appFolder = rootAppFolder.GetSubFolder("A_USA") 
Set folder = appFolder.AppFolder 

For each app in folder.Applications 

    app.LoadData(0) 
    WScript.Echo app.AppName 

Next 

Answer 1

使用Option Explicit来避免失误，如未初始化的MetaFrameAppFolder。