（旧式）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ような失策を避けるために。