' If $System.IsCloudUserAdmin
'  Exit
' EndIf
' $System.Access Admin
' If $System.IsPost
'  If $To
'   $System.Redirect $Server?page=SystemUserSelectAvailable
'  Else
'   $System.Redirect $Server?page=SystemUserAdmin
'  EndIf
'  $Command.User.SetConnect
'  Exit
' EndIf
<!--#include file="LibraryCommon.html"-->
' Call cmHtmlHead
<!--#include file="LibraryForm.html"-->
' $CaptionTitle = "サイボウズ(R) Office シリーズとのユーザー情報の連携"
' Call cmHead $CaptionTitle
</head>
<body>
' $System.SetParameter BackURL "$Server?page=SystemUserAdmin"
' Call cmHeaderView 1 $CaptionTitle "$Server?page=SystemAdmin" "システム設定" $BackURL "ユーザーの設定"
<form method="post" action="$Server?">
<input type="hidden" name="CSRFTicket" value="$System.MakeCSRFKey">
<input type="hidden" name="Page" value="SystemUserConnect">
<input type="hidden" name="rw" value="1">
' $To = $Connect.To
<p>
' Call formRadio "To" "" $To.RChecked "" "connect_not"
<label for="connect_not">サイボウズ<sup>(R)</sup> Office シリーズとユーザー情報を連携しない</label></p>
<p>
' Call formRadio "To" "" $To.Checked_cb4 "cb4" "connect_cb4"
<label for="connect_cb4">サイボウズ<sup>(R)</sup> Office 4 とユーザー情報を連携する</label></p>
<p>
' Call formRadio "To" "" $To.Checked_cb5 "cb5" "connect_cb5"
<label for="connect_cb5">サイボウズ<sup>(R)</sup> AG / Office 6 / Office 7 / Office 8 / Office 9 とユーザー情報を連携する</label></p>
<blockquote>
サイボウズ<sup>(R)</sup> Office シリーズがインストールされているディレクトリ<br>
' Call formText "Dir" $Connect.Dir 40 1
<br>
例) C:\InetPub\scripts\cbag
</blockquote>
<blockquote>
' $URL = $Connect.URL
' Init $URL = "http://"
サイボウズ<sup>(R)</sup> Office シリーズのURL<br>
' Call formText "URL" $URL 40 1 255
<br>
例) http://localhost/scripts/cbag/ag.exe?
</blockquote>
<p>
' $escBackURL = $Command.String.JSEncode $BackURL
' Call formCommit "設定する" "" "" "location.href='$escBackURL';"
</p>
</form>
' Call cmChildFooter $BackURL "ユーザーの設定へ"
</body>
</html>