(Hérité) MFCOM VBScript obtient Invalid Procédure Appel

Question

Je peux lister toutes les applications publiées très bien, cela fonctionne, mais lorsque j'essaie d'obtenir le dossier des applications racine, je reçois un appel de procédure non valide. Est-ce que quelqu'un sait ce que je fais mal ici?

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

Utilisez Option Explicit pour éviter gaffes comme un non initialisé MetaFrameAppFolder.