本週主題

• 最新消息

• 文章分享-【整合 Lotus Notes 和 IBM Workplace Client Technology】

• Lotus Notes 技術分享-【利用WMI取得使用者電腦的相關資訊】

• 近期電子報內容預告

最新消息

• WSE 免費20 人版Free License--免費大贈送喔！

活動期間: 即日起申請至民國94年9月15日截止

適用對象: IBM Passport Advantage 用戶

生效期限:上網註冊完.約三天後,收到e Mail確認即為合法授權使用者

授權:為合法使用者為期一年,之後可以Renewal繼續使用

內容:軟體: WSE 20 Users 軟體授權 IBM part no. D54QALL

步驟:

1.上網註冊(用PA ID & Password and Customer number)

https://www14.software.ibm.com/webapp/iwm/web/preLogin.do?source=wse&lang=zh_TW

2. 交付使用: e-mail 1.公司名,2.聯絡人的電話與email,3.公司電腦使用人數給 adamwang@tw.ibm.com 將透過指定的下載地址，或透過協力廠商獲得光碟

Top

文章分享

整合 Lotus Notes 和 IBM Workplace Client Technology

英文原文:http://www-128.ibm.com/developerworks/lotus/library/notes-wct-plugin/

透過 IBM Workplace Client Technology, rich edition 的 Notes Application 插件，可以就像在 Notes Client中一樣在 Workplace Rich Client中使用 Notes 應用程式。研究這種整合帶來的好處。

[編者註：本文中顯示的螢幕截圖可以更改，可能不是最終發佈產品的用戶介面。]

如果您是 Notes/Domino 的客戶或業務合作夥伴，已經或將要在企業中引入使用新的 IBM Workplace Client Technology 的產品，那麽您有一個好消息：透過 Lotus Notes/Domino 7 和 IBM Workplace Collaboration Services 2.5，可以與 Notes Client進行更多整合。除了 Notes Client和 Web 瀏覽器，用戶將有其他方式來存取他們的 Notes 應用程式 — IBM Workplace Client Technology, rich edition。本文講述了 IBM Workplace Client Technology 的 Notes Application 插件，透過該插件，可以將 Notes 應用程式的範圍擴展到 IBM Workplace Collaboration Services。

　

IBM Workplace Client Technology 是 IBM 的新框架，用於建立伺服器管理的商業應用程式。透過此框架，可以組合傳統Client桌面的豐富功能和提供集中部署和管理的優點。  

 

Workplace Client Technology 對其所基於的基於標準的整合平臺 Eclipse 的功能進行了擴展，以支援可以離線使用的應用程式、基於伺服器的自動配置和跨作業系統的能力。新技術允許建立可以插入到 Workplace Client Technology 框架的元件，從而進一步擴展了平臺。  

　

來自 IBM 內不同團隊的軟體發展人員計劃建立由這樣的元件或插件組成的應用程式，為Rich Client提供不同的功能。Lotus 開發人員最先建立了這樣的應用程式：IBM Workplace Messaging 和 IBM Workplace Documents。版本 2.5 對這些應用程式進行了更新並引入了新的功能，如活動瀏覽器和專案計劃器，它們是 IBM 效率工具的一部分。ISV 和第三方開發人員也可以建立元件，使他們可以獲得在組織中所需的Client經驗。

　

Workplace Client Technology 有完整版本（用於桌面工作人員）或 微版本（用於使用主流設備的行動工作人員）。Workplace Messaging 2.0 和 Workplace Documents 2.0 已經包含與 Lotus Notes 的某些整合。Workplace 產品的 2.5 版本和 Lotus Notes/Domino 的 7 版本中對此整合進行的擴展是本文要講述的主題。我們開始先瞭解一下 Workplace Messaging 和 Workplace Documents。

 

Workplace Messaging 和 Workplace Documents

IBM Workplace Client Technology, rich edition 為基於 Web 的 Workplace 應用程式的豐富功能增加了快速回應時間和強大的安全模型（無論連接到網路或從網路斷開）的優勢。對於 Workplace Messaging，這些功能包括電子郵件、個人日曆和個人通訊錄。對於 Workplace Documents，它們包括協同作業文件管理 — 建立、組織和共用文字處理、表示、試算表和製圖文件的能力，如果使用版本 2.5，還包括專案計劃文件。可以使用隨Rich Client提供的一組效率工具或使用現有桌面應用程式（如果有的話）來建立和編輯這些文件。Workplace Documents 功能包括文件檢查和審核、版本化、搜尋和私人草稿。  

　

圖 1 顯示了 Workplace Client Technology 環境並打開了 Workplace Documents 應用程式。

圖 1. Workplace Documents

　

Top

Lotus Notes 7 和 IBM Workplace Client Technology 之間的更多整合意味著可以從 Workplace Rich Client內直接打開 Lotus Notes，並可以使用自訂的 Notes 應用程式，而無需修改它們。Notes 應用程式，包括使用 LotusScript 和 Notes 公式語言開發的應用程式，在 Lotus Domino 和 IBM Workplace Client Technology, rich edition 中執行的方式相同。對於 Workplace Rich Client用戶，不必更改構建應用程式的方式。發行 Lotus Notes 7 後，它將支援從 Workplace Client Technology, rich edition 內執行它的所有即用範本。  

　

Notes 應用程式插件

稱為 Notes Application 插件的新插件使人們可以在 Notes 環境和 Workplace Rich Client環境中使用 Notes 應用程式。要使用該插件，必須在同一台電腦上安裝 Workplace Rich Client應用程式（2.5 或更高）和 Notes Client（7 Beta 3 或更高）。然後可以從 Workplace Rich Client內使用 Notes 功能，包括書籤、功能表、文件和資料庫鏈結、狀態和進度資訊。此功能以前是作為 Technology Preview 的一部分，在今年晚些時候發行了 Lotus Notes/Domino 7 後，該功能將具有普遍可用性（GA）。  

　

從 Workplace Rich Client內使用 Notes 應用程式時，Lotus Notes 中的上線提醒和即時訊息功能可以透過 IBM Workplace Collaboration Services 伺服器使用，也可以透過 Lotus Notes 6.5 及更高版本使用的 IBM Lotus Instant Messaging and Web Conferencing (Sametime) 伺服器來使用。對於沒有 Lotus Instant Messaging 的用戶，透過使用隨 Workplace Collaboration Services 提供的功能，可以使用內建到 Lotus Notes 中的即時訊息功能，無需部署 Lotus Instant Messaging and Web Conferencing 伺服器。Workplace 應用程式使用 SIP（Session Initiation Protocol）與訊息服務通信。無論存取哪種類型的應用程式，使用 Notes 應用程式的此即時訊息基礎設施和 Workplace 應用程式都會獲得公共用戶體驗。  

　

Notes 用戶還可以利用 Workplace Documents Rich Client中的文件管理功能，包括可以使用 IBM 的內建效率工具編輯文件。可以從共用文件庫附加文件並將附件儲存到該資料庫中。  

 

具有 Lotus Domino 和 J2EE 中的應用程式的組織可能會對 Notes Application 插件感興趣。想使用那些作為 IBM Workplace Documents Rich Client產品一部分的 IBM 的新效率工具的其他公司可能也會對該插件的功能感興趣。隨著此技術的成熟，IBM 將繼續向它的 Notes 客戶提供這種新技術的獨一無二的好處，包括集中部署和基於伺服器自動配置的好處。  

　

部署

要部署 Notes Application 插件，必須在Client系統上安裝 Notes 7 Client和 Workplace Rich Client應用程式的 2.5 版本。Rich Client應用程式可以是 IBM 的一個應用程式，也可以是您使用 IBM Workplace Client Technology Toolkit 自己開發的一個應用程式。Notes Application 插件目前支援 Microsoft Windows 2000 和 XP 作業系統。  

　

要在 Workplace Rich Client中配置 Notes 整合，管理員可以使用 WebSphere Application Server 管理控制臺來確認啟用了某個用戶策略設定。在 Manage User Policies - Default User Policy 下，確保選中了“Allow Notes application plug-in”選項。

　

圖 2. 用戶策略

　

Top

用戶體驗

在 Workplace Rich Client中工作時，可以在不打開 Lotus Notes Client的情況下打開並使用 Notes 應用程式。按下 Workplace Rich Client左邊領航面板上的 Lotus Notes，打開 Welcome 網頁或您的首頁。還可以看到 Notes Applications 領航員，它包含 Notes 應用程式和書籤。

圖 3. Notes Welcome 網頁

使用領航員打開 Notes 應用程式，例如，收件箱。您熟悉的許多功能表命令都已經無縫地整合到了螢幕上部的 Workplace Rich Client功能表中。Notes 動作列也仍然可以使用，就在 Inbox 區域上方。

圖 4. Notes Inbox

如果從 Workplace Rich Client建立書籤，下次單獨啟動 Notes Client時，將顯示該書籤。甚至可以從Rich Client設定 Notes 的大多數用戶預設選項，但是切記並不是所有的 Notes 功能在Rich Client中都有對應項。例如，在Rich Client中 Toolbar 預設選項的設定對 Lotus Notes 沒任何影響，但是單獨啟動 Notes Client時將可以看到這些設定。

　

如果設定了即時訊息，Notes 應用程式會將上線提醒和 Contacts List 顯示在應用程式顯示區域的右邊。

圖 5. Workplace Rich Client中的上線提醒和 Instant Contacts 列表

Top

要最大化應用程式顯示區域，可以按下螢幕的不同垂直區域之間的右箭頭圖示（再次按下這些圖示可以重新顯示領航區）。

　

圖 6. Notes Inbox 的全螢幕顯示

在 Notes 應用程式中工作時，Rich Client狀態欄顯示 Lotus Notes 中的適當訊息。如果在包含 Notes 應用程式的文件或資料庫鏈結的 Workplace Rich Client應用程式中工作時，按下該鏈結會在Rich Client內顯示該文件或資料庫（不單獨打開 Notes Client）。

 

僅僅是個開始

透過講述這些功能，我們希望共用由 Lotus Notes 7 與 IBM Workplace Client Technology 的 2.5 版本的整合所帶來的一些令人興奮的資訊。IBM 致力於支援 Notes/Domino 客戶。隨著 Notes Client繼續發展，您將可以利用 Workplace Client Technology 提供的增加的價值和更加輕鬆的管理。

 

參考資料

• 您可以參閱本文在 developerWorks 全球站點上的 英文原文 。

• 要瞭解有關 IBM Workplace Client Technology, rich edition 的詳細資訊，請連線 產品網頁。

• 有關 Eclipse 和插件的資訊，請連線 Eclipse Web 站點。

• “Lotus Domino 7.0 Beta 3 中的新功能”和“Lotus Notes and Domino Designer 7.0 Beta 3 中的新功能”文章中講述了 Lotus Notes and Domino 7 中的其他功能和改進。

• 透過參與 developerWorks blogs 加入 developerWorks 社區。

• 在 Developer Bookstore 的 Lotus 區購買 打折出售的 Lotus 書籍。

　

關於作者

Gayle Thiel 於 1996 年作為一名主要技術文件編輯人員加入 IBM Lotus Software 部門。自 1999 年以來，她一直在撰寫關於 Lotus Notes 和 Domino 的文件，最近在撰寫關於將 Lotus Domino 和 Extended Products 與 WebSphere Portal 整合方面的文件。

Top

Lotus Notes 技術分享

利用WMI取得使用者電腦的相關資訊

WMI(Window Management Instrumentation)是微軟根據DTMF(Distributed Management Task Force)所制訂的Web Based Enterprise Management(WBEM)為基礎而提供的,其實WMI物件模組的威力真的是十分強大,諸如Windows NT/2000/2003的事件記錄檢視、備份,或者是系統的軟體安裝狀況等系統資訊,都可以利用WMI輕易地列出。而其它如通訊埠、印表機、記憶體等低階的硬體資料,同樣也可以利用WMI輕易地列出。 

WMI相關物件資訊請參考以下微軟MSDN之資料:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnanchor/html/anch_wmi.asp

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/iwbemservices.asp

本期電子報就利用Notes Script來做幾個範例給大家參考,範例共有三個,系利用兩個套表來設計。

 

1. 套表名稱: WMI測試

套表畫面:

a. 利用WMI取得使用者端電腦CPU的資訊

程式如下:

Dim strTemp As String

        Dim IE As Variant

        Dim IEDoc As Variant

        Dim Locator As Variant

        Dim Service As Variant

        Dim TableStyle As String

        TableStyle={ border="1" align="center" cellpadding="2" cellspacing="0" bordercolor="#666666" bordercolordark="#FFFFFF" width="95%"}

        Set IE=CreateObject("InternetExplorer.Application")

        IE.Navigate "about:blank"

        Set IEDoc=IE.Document

        With IE

                .AddressBar=False

                .StatusBar=False

                .ToolBar=False

                .MenuBar=False

                .Visible=True

                .width=900

                .height=200

                .left=50

                .top=20

        End With

        IEDoc.WriteLn "<html>"

        IEDoc.WriteLn "<head>"

        IEDoc.WriteLn "<Title>電腦CPU相關資訊</Title>"

        IEDoc.WriteLn "</head>"

        IEDoc.WriteLn "<body>"

        IEDoc.WriteLn "電腦CPU相關資訊如下:"

        IEDoc.WriteLn "<table" & TableStyle & ">"

        IEDoc.WriteLn "<tr>"

        IEDoc.WriteLn {<td bgcolor="#9999FF">ProcessID</td>}

        IEDoc.WriteLn {<td bgcolor="#9999FF">Caption</td>}

        IEDoc.WriteLn {<td bgcolor="#9999FF">Name</td>}

        IEDoc.WriteLn {<td bgcolor="#9999FF">Avilability</td>}

        IEDoc.WriteLn {<td bgcolor="#9999FF">CPU Status</td>}

        IEDoc.WriteLn {<td bgcolor="#9999FF">Current Clock Speed</td>}

        IEDoc.WriteLn {<td bgcolor="#9999FF">Ext Clock</td>}

        IEDoc.WriteLn {<td bgcolor="#9999FF">Max Clock Speed</td>}

        IEDoc.WriteLn {<td bgcolor="#9999FF">Status</td>}

        IEDoc.WriteLn "</tr>"

        Set Locator=CreateObject("WbemScripting.SWbemLocator")

        Set Service=Locator.ConnectServer()

        Forall Process In Service.InstancesOf("Win32_Processor")

                IEDoc.WriteLn "<tr>"

                IEDoc.WriteLn "<td>" & Process.ProcessorId & "</td>"

                IEDoc.WriteLn "<td>" & Process.Caption & "</td>"

                IEDoc.WriteLn "<td>" & Process.Name & "</td>"

                Select Case Process.Availability

                Case 1

                        strTemp="Other"

                Case 2

                        strTemp="Unknown"

                Case 3

                        strTemp="Running/Full Power"

                Case 4

                        strTemp="Warning"

                Case 5

                        strTemp="In Test"

                Case 6

                        strTemp="Not Applicable"

                Case 7

                        strTemp="Power Off"

                Case 8

                        strTemp="Off Line"

                Case 9

                        strTemp="Off Duty"

                Case 10

                        strTemp="Degraded"

                Case 11

                        strTemp="Not Installed"

                Case 12

                        strTemp="Install Error"

                Case 13

                        strTemp="Power Save - Unknown"

                Case 14

                        strTemp="Power Save - Low Power Mode"

                Case 15

                        strTemp="Power Save - Standby"

                Case 16

                        strTemp="Power Cycle"

                Case 17

                        strTemp="Power Save - Warning"                       

                End Select

                IEDoc.WriteLn "<td>" & strTemp & "</td>"

                Select Case Process.CpuStatus

                Case 1

                        strTemp="Unknown"

                Case 2

                        strTemp="CPU Enabled"

                Case 3

                        strTemp="CPU Disable by User via BIOS Setup"

                Case 4

                        strTemp="CPU Disable by BIOS(POST Error)"

                Case 5

                        strTemp="CPU is Idle"

                Case 6

                        strTemp="Reserved"

                Case 7

                        strTemp="Reserved"

                Case 8

                        strTemp="Other"                

                End Select

                IEDoc.WriteLn "<td>" & strTemp & "</td>"

               

                IEDoc.WriteLn "<td>" & Process.CurrentClockSpeed & "</td>"

                IEDoc.WriteLn "<td>" & Process.ExtClock & "</td>"

                IEDoc.WriteLn "<td>" & Process.MaxClockSpeed & "</td>"

                IEDoc.WriteLn "<td>" & Process.Status & "</td>"

                IEDoc.WriteLn "</tr>"

        End Forall

        IEDoc.WriteLn "</table>"

        IEDoc.WriteLn "</body>"

        IEDoc.WriteLn "</html>"

        Set Service=Nothing

        Set Locator=Nothing

        Set IEDoc=Nothing

        Set IE=Nothing

b. 利用WMI取得使用者端電腦目前正在執行中程式的資訊

程式如下:

Dim strTemp As String

        Dim IE As Variant

        Dim IEDoc As Variant

        Dim Locator As Variant

        Dim Service As Variant

        Dim TableStyle As String

        TableStyle={ border="1" align="center" cellpadding="2" cellspacing="0" bordercolor="#666666" bordercolordark="#FFFFFF" width="95%"}

        Set IE=CreateObject("InternetExplorer.Application")

        IE.Navigate "about:blank"

        Set IEDoc=IE.Document

        With IE

                .AddressBar=False

                .StatusBar=False

                .ToolBar=False

                .MenuBar=False

                .Visible=True

                .width=900

                .height=600

                .left=50

                .top=20

        End With

        IEDoc.WriteLn "<html>"

        IEDoc.WriteLn "<head>"

        IEDoc.WriteLn "<Title>目前正在執行中的程式</Title>"

        IEDoc.WriteLn "</head>"

        IEDoc.WriteLn "<body>"

        IEDoc.WriteLn "目前正在執行中的程式如下:"

        IEDoc.WriteLn "<table" & TableStyle & ">"

        IEDoc.WriteLn "<tr>"

        IEDoc.WriteLn {<td width=35% bgcolor="#9999FF">Process Handle</td>}

        IEDoc.WriteLn {<td bgcolor="#9999FF">Process Name</td>}

        IEDoc.WriteLn "</tr>"

        Set Locator=CreateObject("WbemScripting.SWbemLocator")

        Set Service=Locator.ConnectServer()

        Forall Process In Service.InstancesOf("Win32_Process")

                IEDoc.WriteLn "<tr>"

                IEDoc.WriteLn "<td>" & Process.Handle & "</td>"

                IEDoc.WriteLn "<td>" & Process.Name & "</td>"           

                IEDoc.WriteLn "</tr>"

        End Forall

        IEDoc.WriteLn "</table>"

        IEDoc.WriteLn "</body>"

        IEDoc.WriteLn "</html>"

        Set Service=Nothing

        Set Locator=Nothing

        Set IEDoc=Nothing

        Set IE=Nothing

執行畫面:

2. 套表名稱: WMI測試

套表畫面:

按鈕程式:

On Error Goto ErrorHandle

        Dim ws As New NotesUIWorkspace

        Dim uidoc As NotesUIDocument

        Dim strComputer As String

        Dim strDomain As String

        Dim strUser As String

        Dim strPassword As String

        Dim objSWbemLocator As Variant

        Dim colProcessList As Variant

        Dim objWMIService As Variant

        Dim run As Integer

        Set uidoc=ws.CurrentDocument

        If Trim(uidoc.FieldGetText("Computer"))="" Then

                Msgbox "請務必輸入[電腦名稱]!!",16,"訊息通知"

        Elseif Trim(uidoc.FieldGetText("Domain"))="" Then

                Msgbox "請務必輸入[網域]!!",16,"訊息通知"

        Elseif Trim(uidoc.FieldGetText("ID"))="" Then

                Msgbox "請務必輸入[登入名稱]!!",16,"訊息通知"

        'Elseif Trim(uidoc.FieldGetText("Password"))="" Then

        '        Msgbox "請務必輸入[登入密碼]!!",16,"訊息通知"

        Elseif Trim(uidoc.FieldGetText("ProcessName"))="" Then

                Msgbox "請務必輸入[程式執行檔名稱]!!",16,"訊息通知"

        End If

        strComputer =uidoc.FieldGetText("Computer")

        strDomain = uidoc.FieldGetText("Domain")

        strUser = uidoc.FieldGetText("ID")

        strPassword =uidoc.FieldGetText("Password")

        Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")

        Set objWMIService = objSWbemLocator.ConnectServer(strComputer, _

        "root\CIMV2", _

        strUser, _

        strPassword, _

        "MS_409", _

        "ntlmdomain:" + strDomain)

        Set colProcessList = objWMIService.ExecQuery _

        ("SELECT * FROM Win32_Process WHERE Name = '" &_

        uidoc.FieldGetText("ProcessName") & "'")

        run=0

        Forall objProcess In colProcessList

                ret%=objProcess.Terminate()

                Select Case ret%

                Case 0

                        Msgbox "執行檔[" & uidoc.FieldGetText("ProcessName") & "]已經停止執行.",64,"訊息通知"

                Case 2

                        Msgbox "錯誤訊息:" & "Access denied.",16,"訊息通知"

                Case 3

                        Msgbox "錯誤訊息:" & "Insufficient privilege.",16,"訊息通知"

                Case 8

                        Msgbox "錯誤訊息:" & "Unknown failure.",16,"訊息通知"

                Case 9

                        Msgbox "錯誤訊息:" & "Path not found.",16,"訊息通知"

                Case 21

                        Msgbox "錯誤訊息:" & "Invalid parameter.",16,"訊息通知"

                End Select

                run=1

        End Forall     

        If run=0 Then                       

                Msgbox "找不到[" & uidoc.FieldGetText("ProcessName") & "]執行檔.",16,"訊息通知"

        End If

        Set objSWbemLocator=Nothing

        Set objWMIService=Nothing

        End

ErrorHandle:

        Msgbox "執行錯誤:" & Error$ & "(" & Erl & ")",16,"訊息通知"

　

執行畫面:

註:如有需要可至智頡科技網站（http://www.wmmate.com）下載範例資料庫。  

Top

近期電子報內容預告

後續陸續會發行相關技術的電子報

內容預告如下:

Lotus Notes系統整合&應用介紹

  內容相當豐富敬請期待...

Top

Copyright 1999-2005
版權所有 轉載必究

智頡科技股份有限公司

TEL:03-5326262
FAX:03-5344873
Email:support@wmmate.com