DtoLicenseMgr オブジェクト
DTO2 のみ：このオブジェクトを使用すれば、製品ライセンスの認証と認証解除、ライセンス検証操作の開始、および製品情報の XML 文字列の取得が行えます。
プロパティ
なし
コレクション
なし
メソッド
備考
Session オブジェクトから取得します。
例
Dim my_session as new DtoSession
Dim result as DtoResult
Dim my_licmgr as DtoLicenseMgr
result = my_session.Connect("myserver", "username", "password")
Set my_licmgr = my_session.LicenseMgr
result = my_licmgr.AddLicense("ERXVD3U4ZS9KR94QPDHV5BN2")
関連項目
メソッドの詳細
AddLicense メソッド
ライセンスを認証します。
構文
result = LicenseManager.AddLicense(License)
引数
LicenseManager | DtoLicenseMgr オブジェクト |
License | DtoSession オブジェクトを使って現在接続しているエンジンに対して認証する、有効なライセンス キー。 |
戻り値
result | メソッド呼び出しの結果を示す DtoResult（Long 型の値）。 DtoSession オブジェクトの Error プロパティを使って結果の説明を取得します。 |
例
Dim my_session as new DtoSession
Dim result as DtoResult
Dim my_licmgr as DtoLicenseMgr
result = my_session.Connect("myserver", "username", "password")
Set my_licmgr = my_session.LicenseMgr
result = my_licmgr.AddLicense("ERXVD3U4ZS9KR94QPDHV5BN2")
DeleteLicense メソッド
ライセンスを認証解除します。
構文
result = LicenseManager.DeleteLicense(License)
引数
LicenseManager | DtoLicenseMgr オブジェクト |
License | DtoSession オブジェクトを使って現在接続しているエンジンから認証解除する、有効なライセンス キー。 |
戻り値
result | メソッド呼び出しの結果を示す DtoResult（Long 型の値）。 DtoSession オブジェクトの Error プロパティを使って結果の説明を取得します。 |
備考
なし
例
Dim my_session as new DtoSession
Dim result as DtoResult
Dim my_licmgr as DtoLicenseMgr
result = my_session.Connect("myserver", "username", "password")
Set my_licmgr = my_session.LicenseMgr
result = my_licmgr.DeleteLicense("ERXVD3U4ZS9KR94QPDHV5BN2")
GetProductInfo メソッド
License Manager で検出されたすべての PSQL 製品の一覧を取得します。
構文
result = LicenseManager.GetProductInfo
引数
LicenseManager | DtoLicenseMgr オブジェクト |
戻り値
result | 製品の一覧を XML 形式の文字列で返します。 |
備考
XML 形式の文字列の詳細については、『
Distributed Tuning Interface Guide』で PvGetProductsInfo() の
備考を参照してください。
例
Dim session As New DtoSession
Set session = New DtoSession
Dim result As dtoResult
result = session.Connect("server", "user", "password")
If result <> Dto_Success Then
MsgBox "Error on connect." & CStr(result)
Exit Sub
End If
Dim xmlstring As String
xmlstring = session.LicenseMgr.GetProductInfo
RichTextBox1.TextRTF = xmlstring
ValidateLicenses メソッド
セッション接続によって示されるコンピューターのすべてのキーに関する有効性のチェックを開始します。
構文
result = LicenseManager.ValidateLicenses
引数
LicenseManager | DtoLicenseMgr オブジェクト |
戻り値
result | メソッド呼び出しの結果を示す DtoResult（Long 型の値）。 DtoSession オブジェクトの Error プロパティを使って結果の説明を取得します。 |
備考
ValidateLicenses は、検証チェックの
要求から生じた結果のみを返します。キーの状態に関する情報は何も
返しません。キーの状態に関する情報も含め、製品情報の XML 文字列を取得するには、別に
GetProductInfo メソッドを呼び出す必要があります。
例
'セッション オブジェクトのインスタンスを作成し、サーバーに接続する
Dim my_session as new DtoSession
Dim result as DtoResult
Dim my_licmgr as DtoLicenseMgr
result = my_session.Connect("myserver", "username", "password")
'License Manager オブジェクトを取得する
Set my_licmgr = my_session.LicenseMgr
'すべてのキーの検証チェックを開始する
result = my_licmgr.ValidateLicenses