名もないSEの備忘録

[Top]

Sametimeのサーバーが再起動後、すべてのユーザーがログインできなくなってしまった。

どうやら、LDAPの設定が怪しい感じ。

状況を確認するとSametimeのサーバーのDomaino管理者のパスワードを変更しているのが
原因だと思われる。

下記作業を実施後、正常にSametimeが使用できるようになった。


管理者のパスワードを変更する場合を気をつけないといけないなー。

＜作業内容＞
　　1 Adminでログイン
　　2 Sametime Configuration DBを開きます。
　　3 By Formの中にあるLDAPServer文書を開きます。
　　4 Password for LADP Connectionフィールドのパスワードを変更
　　　　　　(∵現在のAdminのパスワード）
　　5 Sametimeサーバーを再起動
　　6 Sametimeにログインできるか確認

[Top]

NotesでCSV出力するサンプルコード。

Sub Click(Source As Button)
'************************************************************
' ビューのCSVエクスポート
'************************************************************

On Error Goto ErrHandler

Dim session As New NotesSession
Dim uiws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim view As NotesView
Dim ventry As NotesViewEntry
Dim vnav As NotesViewNavigator
Dim ventcol As NotesViewEntryCollection
Dim strDelFlg As String

Dim lngFileNum As Long 'ファイルナンバーの空き番号をセット
Dim varFileName As Variant '出力ファイル名
Dim strFilter As String 'SaveFileDialogボックスでのfiltersパラメータ

Set db = session.CurrentDatabase
Set view = db.GetView("ビュー名") 'ビュー名のセット


Set ventcol = view.AllEntries
Set vnav = view.CreateViewNav
Set ventry = vnav.GetFirst

' ***出力するデータが無い場合***
If ventry Is Nothing Then
Msgbox "出力するデータがありません。"
Exit Sub
End If

' ***ファイル空き番号をセット***
lngFileNum = Freefile

' ***出力先及びファイル名の指定ダイアログボックスの表示***
strFilter = "csv|*.csv|"
varFileName = uiws.SaveFileDialog(False,"ファイル一覧",strFilter,"C:\","ファイル名.csv")

' ***ファイル名未入力及びキャンセルの場合***
If Isempty(varFileName) = True Then
Msgbox "ファイル名が入力されていないので、出力はキャンセルされました。"
Exit Sub
End If

' ***ファイルオープン***
Open varFileName(0) For Output Access Write As lngFileNum

' ***タイトル行を出力*** (0)～(7):8
Print #lngFileNum, _
"A" & "," & _
"B" & "," & _
"C" & "," & _
"D" & "," & _
"E" & "," & _
"F" & "," & _
"G" & "," & _
"H"

' ***データを出力***
Do Until ventry Is Nothing
Print #lngFileNum, _
"" & ventry.ColumnValues(0) & "" & "," & _
"" & ventry.ColumnValues(1) & "" & "," & _
"" & ventry.ColumnValues(2) & "" & "," & _
"" & ventry.ColumnValues(3) & "" & "," & _
"" & ventry.ColumnValues(4) & "" & "," & _
"" & ventry.ColumnValues(5) & "" & "," & _
"" & ventry.ColumnValues(6) & "" & "," & _
"" & ventry.ColumnValues(7) & ""
Set ventry = vnav.GetNext(ventry) '次のビューエントリに移動
Loop

' ***ファイルのクローズ***
Close #lngFileNum

' ***出力完了メッセージ***
Msgbox "出力が完了しました！"
Exit Sub

'ランタイムエラー処理
ErrHandler:
If Err = 101 Then 'ファイルが既にオープンされている場合
Msgbox "同名のファイルが既に開かれています。"
Exit Sub
Else '未確認エラー
Msgbox "エラーにより出力が出来ませんでした。システム管理者にご連絡下さい。"
Exit Sub
End If

End Sub

[Top]

NICE (Notes Install Cleanup Executable) ツールは、失敗したアンインストールなどをクリーンアップできるツール。

Lotus Notes 8.x のインストール環境でのみ利用できるらしい。

この間、FormWaveの動作がおかしくなってNotes削除し、再度インストールしたけど
動作が不安定だったので、NICEを使ってみようかな。
FormWaveだからJavaの環境の問題が強い気がするけど。。

ためしてみる価値はあるなー。

参考URL：http://www-01.ibm.com/support/docview.wss?uid=swg21577746

[Top]

使用メモリ設定を増やす

下記に保存されているファイルを開きます。

C:\Program Files\lotus\notes\framework\rcp\deploy\jvm.properties

・下記項目を変更
vmarg.Xmx=-Xmx256m
　　　↓
vmarg.Xmx=-Xmx1024m

PCに搭載されているメモリあわせてヒープサイズを調整してください。

　　256 or 512 or 768 or 1024

[Top]