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

エンタープライズ管理ガイド › 共有アカウントの実装 › SAM の自動ログイン › SAM 自動ログインアプリケーションスクリプトをカスタマイズする方法 › 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 を指定します。
#SessionidUrl#: ACLauncher ActiveX で、セッションが ObserverIT Enterprise に記録された場合に記録されたセッション IDs を送信するために使用する URL を指定します。

例

SAM 自動ログインアプリケーションの以下の抜粋は、変数がどのように使用されるかを示しています。

Dim  hwnd
Set pupmObj = CreateObject("ACLauncher.ACWebLauncher")
pupmObj.SetRDPOption "administrative session","i","1"
hwnd = pupmObj.LauncheRDP("#host#:3389", "#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)

SetPUTTYOption(Name, Type, Value);

レジストリ HKEY_CURRENT_USER¥Software¥user_name¥PuTTY¥Sessions¥session_name の下の Putty セッションでユーザオプションを設定します。 このメソッドを使用するのは、ポート番号や X11Forward などのデフォルト値を変更する場合です。

例：以下のコールによって、X11Forward オプションを 1 に設定し、X11Display オプションを "host.ca.com" に設定します。

pupmObj.SetPUTTYOption "X11Forward", "REG_DWORD", "1"
pupmObj.SetPUTTYOption "X11Display", "REG_SZ", "HOST.CA.COM"
hwnd = pupmObj.LaunchePUTTY("#host#", "#userName#", "#password#")

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);

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

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

Echo(VARIANT* pArgs);

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

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

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

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