Generell funktioniert es aber Zugriff auf ein Objekt - For each Objekt tut nicht ! Citrix MFCOM !

Hallo zusammen,

Ich versuche ein VB Script zu autoit zu Übersetzen. Es geht um Citrix MFCOM Abfragen.

Was funktioniert ist dieses hier:

Hiermit bekomme ich den Namen der Citrix farm zurück.

ShellExecuteWait("mfreg.exe","/u",@ScriptDir)
ShellExecuteWait("mfreg.exe",$servername,@ScriptDir)


$objFarm = ObjCreate("MetaFrameCOM.MetaFrameFarm")


$objFarm.Initialize(1)


MsgBox(0,"",$objFarm.FarmName)

Jetzt möchte ich eine Abfrage machen die mehrere Objekte zurück gibt:

Hier der VB Code:

Set objFarm = CreateObject("MetaFrameCOM.MetaFrameFarm")
objFarm.Initialize(1)
For Each objSession In objFarm.Sessions
WScript.Echo "User name : " & objSession.UserName
WScript.Echo "IP Address: " & objSession.ClientAddress
Next

Hier wie is diesen in autoit übersetzt habe:

ShellExecuteWait("mfreg.exe","/u",@ScriptDir)
ShellExecuteWait("mfreg.exe",$servername,@ScriptDir)




$objFarm = ObjCreate("MetaFrameCOM.MetaFrameFarm")


$objFarm.Initialize(1)


MsgBox(0,"",$objFarm.FarmName)




For $objSession In $objFarm.Sessions


MsgBox(0,"",$objSession.UserName)


Next

Eine Frage ist auch noch die ich habe wie komme ich bei "For $objSession In $objFarm.Sessions" auf den Variabelnamen "$objSession" ? Kann ich mir alles was in "$objFarm.Sessions" ist anzeigen lassen ?

Das Script läuft durch, nur bekomme ich keine MSG Box.

Kann mir jemamd helfen, was mache ich falsch ??

Sascha

hmm keiner eine idee ?

Ja der Farmname wird zurück gegeben, also generell funktioniert das.

Ich bekomme trozdem keine Ausgabe für die Sessions.

$objFarm = ObjCreate("MetaFrameCOM.MetaFrameFarm")


$objFarm.Initialize(1)


MsgBox(0,"",$objFarm.FarmName)


$oSessions = $objFarm.Sessions


For $Session In $oSessions
MsgBox(0,"",$Session.UserName)
Next


If IsObj($oSessions) Then MsgBox(0,"","$oSessions is Obj !")
If IsObj($objFarm) Then MsgBox(0,"","$objFarm is Obj !")

Dafür aber bei der Prüfung, beide werden als Objekt erkannt !

Noch was komisches:

Wenn ich eine Testausgabe in der For mache bekomme ich auch keine MSG Box, als wenn im Objekt nichts drin wäre.

For $Sessions In $oSessions
	MsgBox(0,"",$Sessions.UserName)
	MsgBox(0,"","Test !")
Next

Juhuu, ich habs hinbekommen.

$objFarm = ObjCreate("MetaFrameCOM.MetaFrameFarm",$servername)


$objFarm.Initialize(1)


MsgBox(0,"",$objFarm.FarmName)


$oSessions = $objFarm.Sessions


For $Sessions In $oSessions
	MsgBox(0,"",$Sessions.UserName)
Next

Ich muss einfach das Objekt mit einer Serverangabe machen und nicht mit mfreg.exe vorher den Server angeben !

Trotzem vielen dank für eure hilfe !

Gruß

Sascha