例：セッション・プロパティの取得

この例では、TDConnection オブジェクトを使用して、現在のセッションのプロパティを取得する方法を例示します。これらのプロパティが必要となるプロシージャにコードを追加します。プロパティは互いに依存しません。このため、各プロパティは別々に取得できます。

セッション・プロパティの例を次に挙げます。

TDConnection.ServerName
TDConnection.ServerTime
TDConnection.DomainName
TDConnection.ProjectName
User.UserName

ユーザ名を取得するのに TDConnection を使用する必要はありません。ワークフローに前定義された User オブジェクトが存在するためです。詳細については、「TDConnection オブジェクト」を参照してください。

次の例では、サーバ URL の最初の 5 文字をテストし、ユーザが HTTP または HTTPS のどちらを使用してサーバに接続しているのかを判断します。

If Left(UCase(TDConnection.ServerName), 5) = "HTTPS" Then
        MsgBox "現在、SSL を使用してサーバに接続しています。"
Else
        MsgBox "SSL を使用していません。"
End If