1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button1Click(Sender: TObject);
var
theserver:OLEVariant;
begin
try

  theserver :=createoleobject('MetaFrameCOM.MetaFrameServer');
  theserver.initialize(MetaFrameWinSrvObject, 'W2KSV1');

//!!!!! Hier bräuchte ich sowas.. For each anApp in theserver.application do....  

except
  showmessage('Befehl konnte nicht ausgeführt werden!');
end;
end;                    

1:
2:
3:
4:

for i := 0 to theserver.application - 1 do
begin
  { ... }
end;                    

1:

Weil die OleVariant-Variable "theserver" ... keine Komponenten (im Sinne der VCL) enthält, kann man sie auch mit "Components" nicht ansteuern.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

<package>

    <job id="AddAdmins">


        <reference object="MetaFrameCOM.MetaFrameFarm"/>

        <script language="VBScript">
        
            Dim NewAdmin, theFarm, theServer

            '
            ' Create the farm object.
            '
            Set theFarm = CreateObject("MetaFrameCOM.MetaFrameFarm")
                       '
            ' Initialize the farm object.
           
            theFarm.Initialize MetaFrameWinFarmObject

            ' Add the new admins for each server in the farm.                    

1:
2:

              // Das hier ist die Stelle, die ich in Delphi irgendwie nicht hinbekomme.
               For each theServer in theFarm.Servers                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

      Set NewAdmin = theFarm.AddAdmin
        
                NewAdmin.AdminType = MFAdminPermissionFullAccess
                NewAdmin.Enable = 1
                NewAdmin.AAType = MFAccountAuthorityNTDomain
                NewAdmin.AAName = theServer.ServerName
                NewAdmin.AccountType = MFAccountLocalGroup
                NewAdmin.AccountName = "Administrators"
                NewAdmin.SaveData

                if Err.Number <> 0 Then
                    WScript.Echo "Can't save Admin object"
                    WScript.Echo "(" & Err.Number & ") " & Err.Description
                    WScript.Echo ""
                    WScript.Quit Err.Number
                End if           
            Next
            

        </script>

    </job>

</package>                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure test;
var
thfarm:OLEVariant;
begin
try
  thefarm := createoleobject('MetaframeCOM.MetaframeFarm');
  thefarm.initialize(MetaframeWinFarmObject);
//Jetzt zum Beispiel
showmessage(thefarm.farmname);                    

1:
2:

theserver:= createoleobject('MetaframeCOM.MetaframeServer');
theserver.initialize(MetaframeWinFarmObject,'Testserver');                    

1:
2:
3:
4:
5:
6:

Dim strTypes
strTypes = Array("Erster", "Zweiter", "Dritter", "Vierter")

For Each strFileExt in strTypes
  WScript.Echo strFileExt
Next                    

1:
2:
3:

For I = 0 To 3
  WScript.Echo strTypes(I)
Next                    

1:
2:
3:
4:
5:
6:
7:

For I = 0 To theFarm.Servers.Count - 1
  ' usw.

  NewAdmin.AAName = theFarm.Servers(I).ServerName

  ' usw.
Next                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.Button1Click(Sender: TObject);
var
  thefarm,theapp:OLEVariant;
  foreach:IForEach;
begin
try
  thefarm := createoleobject('MetaFrameCOM.MetaFrameFarm');
  thefarm.initialize(MetaFrameWinFarmObject);
  foreach:=makeforeach(thefarm.Applications);

    while foreach.Next(theapp) do begin
  showmessage(theapp.Appname);
  end;

except
  showmessage('Befehl konnte nicht ausgeführt werden!');
end;