|
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") 'License Manager オブジェクトを取得する Set my_licmgr = my_session.LicenseMgr 'ライセンスを追加する result = my_licmgr.AddLicense("ERXVD3U4ZS9KR94QPDHV5BN2")
ライセンスを認証します。
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") 'License Manager オブジェクトを取得する Set my_licmgr = my_session.LicenseMgr 'ライセンスを追加する result = my_licmgr.AddLicense("ERXVD3U4ZS9KR94QPDHV5BN2")
ライセンスを認証解除します。
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") 'License Manager オブジェクトを取得する Set my_licmgr = my_session.LicenseMgr 'ライセンスを削除する result = my_licmgr.DeleteLicense("ERXVD3U4ZS9KR94QPDHV5BN2")
License Manager で検出されたすべての Pervasive Software 製品の一覧を取得します。
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
セッション接続によって示されるコンピューターのすべてのキーに関する有効性のチェックを開始します。
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
|