SAM 自動ログインアプリケーション Visual Basic スクリプト

リファレンスガイド › 設定ファイル › SAM 自動ログインアプリケーション Visual Basic スクリプト

SAM 自動ログインアプリケーション Visual Basic スクリプト

SAM 自動ログインアプリケーションは、Visual Basic スクリプトを使用して、ユーザが自動ログインを実行できるようにします。新しいログインアプリケーションを作成または既存のログインアプリケーションを変更するために Visual Basic スクリプトをカスタマイズできます。

SAM 自動ログインアプリケーションスクリプトには、エンタープライズ管理サーバからクライアントマシン上へのダウンロード時に ActiveX によって値が置換される変数が含まれています。エンタープライズ管理サーバによりスクリプトが処理され、キーワードが値に置換されます。次に、ActiveX によりクライアントマシン上でスクリプトが実行されます。

SAM 自動ログインアプリケーションスクリプトは以下のディレクトリにあります。

JBOSS_HOME/server/default/deploy/IdentityMinder.ear/config/sso_scripts

エレメント

SAM ログインアプリケーションスクリプトには以下のキーが含まれます。

#host#

ユーザが自動的にログインするエンドポイント名を指定します。

#username#

チェックアウトされた特権アカウントを指定します。

#password#

チェックアウトする特権アカウントのパスワードを指定します。

#userdomain#

（Active Directory）特権アカウントドメイン名を指定します。

#isActiveServletUrl#

ACLauncher ActiveX がアカウントパスワードチェックインイベントの確認に使用する URL を指定します。

#CheckinUrl#

ACLauncher ActiveX で、ユーザがエンドポイントからログアウトした場合にアカウントパスワードをチェックインするために使用する URL を指定します。

#Owner#

アカウント所有者名を指定します。

注：属性がアカウントに対して設定されていない場合、キーはアカウントが属するエンドポイントの属性を指定します。

#Department#

部門名を指定します。

注：属性がアカウントに対して設定されていない場合、キーはアカウントが属するエンドポイントの属性を指定します。

#SessionidUrl#

セッションが ObserverIT Enterprise に記録されている場合に、ACLauncher ActiveX が記録されたセッション ID の送信に使用する URL を指定します。

#CustomInfo1...5#

アカウント固有の属性を指定します。アカウント固有のカスタム属性を 5 つまで指定できます。

注：カスタム属性がアカウントに対して設定されていない場合、キーはアカウントが属するエンドポイントの属性を指定します。

SAM の自動ログインアプリケーションスクリプトの一部を以下に示します。

Set pupmObj = CreateObject("ACLauncher.ACWebLauncher")
hwnd = pupmObj.LauncheRDP("#host#", "#userDomain#¥#userName#", "#password#")
' Set window close event
pupmObj.SetWindowCloseEvent(hwnd)
' Set server checkin event
pupmObj.SetServerCheckinEvent("#isActiveServletUrl#")
' Wait until one of the events signaled
rc = pupmObj.WaitForEvents()
If rc = 1 Then 'user has closed the window - notify the server side
	pupmObj.SendCheckinEvent("#CheckinUrl#")
ElseIf rc = 2 Then 'timeout elapsed - close the window
    call pupmObj.CloseWindow(hwnd, 0)
ElseIf rc = 3 Then 'the account was checkedin at the server side - close the window
    call pupmObj.CloseWindow(hwnd, 120)
End If

構造

SAM の自動ログインアプリケーションスクリプトの構造は以下のとおりです。

COM オブジェクトの初期化

Set pupmObj = CreateObject("ACLauncher.ACWebLauncher")

自動ログインアプリケーションの実行

hwnd = pupmObj.LauncheRDP("#host#", "#userDomain#¥#userName#", "#password#")

実行後タスク -- パスワードチェックイン、対話式ログイン、またはタイムアウト

' Wait until one of the events signaled
rc = pupmObj.WaitForEvents()
If rc = 1 Then 'user has closed the window - notify the server side
	pupmObj.SendCheckinEvent("#CheckinUrl#")
ElseIf rc = 2 Then 'timeout elapsed - close the window
    call pupmObj.CloseWindow(hwnd, 0)
ElseIf rc = 3 Then 'the account was checkedin at the server side - close the window
    call pupmObj.CloseWindow(hwnd, 120)
End If

ログインアプリケーションセッションを記録するには、スクリプトに記録命令を以下の手順で追加します。

初期化セクョンで、以下の作業を実行します。以下を追加します。
```
Set observeIT = CreateObject("ObserverIT.AgentAPI.Proxy")
```

アプリケーション実行セクションで、以下を追加します。

'Get application processid
processID = pupmObj.GetWindowProcessID(hwnd)
'Start recording
sessionid = observeIT.StartByProcessID(processID, true)
'Send the sessions if to the ENTM server
pupmObj.AssignSessionID "#SessionidUrl#" ,sessionId

実行後セクションで、以下を追加します。

'Stop recording

observeIT.StopBySessionId sessionId, true

メソッド

ACLauncher ActiveX では以下のメソッドを使用します。

LauncheRDP   (BSTR bsHostName,  BSTR bsUserName, BSTR bsPassword,  VARIANT *phWindow);

入力クレデンシャルでリモートデスクトップセッションを開始し、リモートデスクトップウィンドウハンドルを返します。

例： Dim test Set test = CreateObject("ACLauncher.ACWebLauncher") Hwnd = test.LauncheRDP("hostname.com", "hostname¥administrator", "password")

LaunchePUTTY   (BSTR bsHostName,  BSTR bsUserName, BSTR bsPassword,  VARIANT *phWindow);

入力クレデンシャルで PuTTY セッションを開始し、PuTTY ウィンドウハンドルを返します。

例： Dim test Set test = CreateObject("ACLauncher.ACWebLauncher") Hwnd = test. LaunchePUTTY ("hostname.ca.com", "root", "password")

LauncheProcessAsUser (BSTR bsApplication, BSTR bsCommandline, BSTR bsUsername, BSTR bsPassword, VARIANT *phWindow);

入力クレデンシャルでプロセスを開始し、プロセスウィンドウハンドルを返します。

例： Dim test Set test = CreateObject("ACLauncher.ACWebLauncher") Hwnd = test.LauncheProcessAsUser("cmd.exe", "/k echo This console is run under %USERNAME% account...", "administrator" , "password")

GetWindowProcessID(VARIANT *phWindow, LONG *pProcessID);

指定されたウィンドウハンドルのプロセス ID を返します。

例： Set test = CreateObject("ACLauncher.ACWebLauncher") hwnd = test.LauncheRDP("hostname", "administrator", "password") id = test.GetWindowProcessID(hwnd) test.Echo "Process ID = " & id

GetWindowTitle(VARIANT *phWindow, BSTR *pbsTitle);

指定されたウィンドウハンドルのタイトルを返します。

例： Set test = CreateObject("ACLauncher.ACWebLauncher") hwnd = test.LauncheRDP("hostname", "administrator", "password") title = test.GetWindowTitle(hwnd)

CloseWindow(VARIANT *phWindow, LONG Seconds);

ウィンドウが X 秒後に閉じることを通知するメッセージを含むダイアログボックスを表示し、指定されたウィンドウハンドルのウィンドウを閉じます。

例： Set test = CreateObject("ACLauncher.ACWebLauncher") hwnd = test.LauncheRDP("hostname", "administrator", "password") test.Sleep(5000) test.CloseWindow(hwnd, 60)

SetTimeoutEvent(LONG seconds);

"WaitForEvents" メソッドのタイムアウトを指定します。タイムアウト値に達すると、WaitForEvents メソッドは、タイムアウトに達したことを示す戻り値で、ブロックしているコールから戻ります。

例： Set test = CreateObject("ACLauncher.ACWebLauncher") hwnd = test.LauncheRDP("hostname", "administrator", "password") test.SetTimeoutEvent(10)

SetWindowCloseEvent(VARIANT *phWindow);

"WaitForEvents" メソッドに対してウィンドウを閉じるイベントを指定します。ウィンドウが閉じられた後、"WaitForEvents" メソッドは、ブロックしているコールから戻り、ウィンドウが閉じられたことを示す戻り値を表示します。

例： Set test = CreateObject("ACLauncher.ACWebLauncher") hwnd = test.LauncheRDP("hostname", "administrator", "password") test.SetWindowCloseEvent(hwnd)

SetServerCheckinEvent(BSTR bsURL);

SAM チェックインイベントを実行ブロック条件として設定します。 ActiveX は 5 秒間隔で SAM をクエリします。

例： Set test = CreateObject("ACLauncher.ACWebLauncher") hwnd = test.LauncheRDP("hostname", "administrator", "password") test.SetServerCheckinEvent("http://server.com/__azy?djfhwek5jy34brfhwkeb") (replace with variable)

WaitForEvents(VARIANT *pRetVal);

レジスタ条件の 1 つに該当するまで、スクリプトの実行をブロックします。

オプション： 1 -- ユーザによってウィンドウが閉じられました、2 -- タイムアウトが経過しました、3 -- がサーバ側でチェックインされました

例： Set test = CreateObject("ACLauncher.ACWebLauncher") hwnd = test.LauncheRDP("hostname", "administrator", "password") test.SetServerCheckinEvent("http://server.com/__azy?djfhwek5jy34brfhwkeb")

test.SetWindowCloseEvent(hwnd) test.SetTimeoutEvent(360) rc = test.WaitForEvents() If rc = 3 Then call test.CloseWindow(hwnd, 10) End If

SwitchToThisWindow(VARIANT *phWindow);

ウィンドウを Z 順の最前面に移動させます

例： Set test = CreateObject("ACLauncher.ACWebLauncher") hwnd = test.LauncheRDP("hostname", "administrator", "password") test.SwitchToThisWindow(hwnd)

SendCheckinEvent(BSTR bsURL);

ユーザがウィンドウを閉じたら、チェックインイベントを送信します。

例： Set test = CreateObject("ACLauncher.ACWebLauncher") hwnd = test.LauncheRDP("hostname", "administrator", "password")

Sleep(LONG milliseconds);

スクリプトの実行を一時停止します。

Set test = CreateObject("ACLauncher.ACWebLauncher") hwnd = test.Sleep(2000)

Echo(VARIANT* pArgs);

メッセージを画面に出力します、

Set test = CreateObject("ACLauncher.ACWebLauncher") hwnd = test.Echo("Password Checkin")

SAM 自動ログイン アプリケーション Visual Basic スクリプト

SAM 自動ログインアプリケーション Visual Basic スクリプト