次の断片的なコードは、ネットワークに定義されているすべてのサーバーを表示するメッセージを出力する方法を示しています。
* VL の F2 機能ヘルプを使用して、このサーバー・オブジェクトにより公開される全てのプロパティを表示
Define_Com Class(#VF_FP007) Name(#Server) Reference(*dynamic)
* 最初のサーバーを取得
Invoke Method(#uSystem.uServerContainer.uFirstServer) Userverref(#Server) Ucursor(#vf_elnum) Ureturncode(#vf_elretc)
Dowhile Cond('#vf_elretc = ok')
* VF_FP007 サーバー・オブジェクトには、サーバーを定義するプロパティ一式
* これらのプロパティはこの場合読み取り専用で絶対に更新されてはいけない
* 例えば ..
Use message_box_add ('Caption' #Server.uCaption)
Use message_box_add ('Type' #Server.uServerType)
Use message_box_add ('LU Name' #Server.uServerLUName)
Use Message_box_show (ok ok info)
* 次のサーバー取得
Invoke Method(#uSystem.uServerContainer.uNextServer) Userverref(#Server) Ucursor(#vf_elnum) Ureturncode(#vf_elretc)
Endwhile
