例としてLightning 1.02bを使用してGPO経由でMozilla Thunderbird Extensionsを更新する

少し前まで、Mozilla ThunderbirdのLighting 1.02b拡張機能を更新する際に問題や不便に遭遇しました。

1. Thunderbirdをバージョン2.x.xから3.x.xにアップグレードする場合、2.x.xにインストールされているLightingバージョンは3.x.xと互換性がありません

2. Thunderbirdをバージョン2.x.xから3.x.xにアップグレードすると、Lightningはインターネット経由でアップグレードを試みます

3. Thunderbirdをバージョン2.x.xから3.x.xに更新する場合、照明が常に自動的に更新されるとは限りません（更新のダウンロード元のサイトの問題）

この拡張機能を自分の手でインストールすることは、特に100人以上のユーザーがいる場合には不便です。

どのように、何をすべきかをユーザーに説明することも選択肢ではありません。

タスクは、GPOを介して照明ユーザーを更新することでした。

タスクは正常に実装されました。

すべてのThunderbird拡張機能は、-install-global-extensionスイッチを使用してインストールできることが判明しましたが、Thunderbirdでは、バージョン3以降、この機能は削除されました。長い検索が元のソリューションにもたらされました。

だから、ポイントで：

1.照明拡張機能をダウンロードする

2.解凍します（例：winrar）

3. install.rdfファイル（最近アンパックされた）と「Description about = "urn：mozilla：install-manifest"」セクションで「em：id」の行を探します。

4. ID番号を引用符でコピーします-{e2fda1a4-762b-4020-b5ad-a41df1933103}があります

5.ディレクトリを作成し、コピーしたIDの名前を付けます-{e2fda1a4-762b-4020-b5ad-a41df1933103}

6.拡張機能から以前に解凍されたすべてのファイルをこのディレクトリにコピーします

7.このディレクトリにupdate_light102b.txtという名前の空のファイルを作成して、インストールされている照明のバージョンを確認します。

8.サーバーにディレクトリを配置します。このディレクトリは、アップグレード中にクライアントが利用できるようになります

次に、このフォルダーをユーザープロファイルのThunderbirdプログラムの拡張機能フォルダーにコピーする必要があります。

ここでは、デフォルトのThunderbirdプロファイルを決定し、拡張機能を使用してフォルダーをコピーする必要がありますが、既にインストールされているかどうかを確認することを忘れないでください。

少し苦労しましたが、スクリプトは安全に作成され、GPOでユーザーの入力に適用されました。

スクリプトはオリジナルのふりをするものではありません。好きなように追加および調整できます。

スクリプトは、デフォルトのThunderbirdプロファイルを検出し、それまでにコピーされていなかった場合、拡張機能をコピーします。

スクリプト自体：

================================================== ================================

Dim Profiles,Thunderbird,fileprefs,profile_ini 
      

        
        
        
      

     Dim ProfDirs, OldProfileFolder 
      

        
        
        
      

     Dim strSource, strSource3 
      

        
        
        
      

     Dim fso 
      

        
        
        
      

     Dim numprof 
      

        
        
        
      

     Const ForReading = 1 
      

        
        
        
      

     
      

        
        
        
      

     Set fso = CreateObject("Scripting.FileSystemObject") 
      

        
        
        
      

     
      

        
        
        
      

     Profiles = "Profiles\" 
      

        
        
        
      

     Thunderbird="Thunderbird\" 
      

        
        
        
      

     fileprefs = "prefs.js" 
      

        
        
        
      

     profiles_ini = "profiles.ini" 
      

        
        
        
      

     Set un = WScript.CreateObject ( "WScript.Shell" ) 
      

        
        
        
      

     UserName = un.ExpandEnvironmentStrings ( "%USERNAME%" ) 
      

        
        
        
      

     PathApps = un.ExpandEnvironmentStrings ( "%APPDATA%" ) & "\" 
      

        
        
        
      

     PathLocal = un.ExpandEnvironmentStrings ( "%USERPROFILE%" ) & "\Local Settings\Thunderbird\" 
      

        
        
        
      

     
      

        
        
        
      

     Public Function Find_profile 
      

        
        
        
      

     numprof = 0 
      

        
        
        
      

     Set objFSO = CreateObject("Scripting.FileSystemObject") 
      

        
        
        
      

     Set objFile = objFSO.OpenTextFile(PathApps & Thunderbird & profiles_ini, ForReading) 
      

        
        
        
      

     i = 0 
      

        
        
        
      

     Do Until objFile.AtEndOfStream 
      

        
        
        
      

     strLine1 = objFile.ReadLine 
      

        
        
        
      

     If InStr(strLine1, "Name=default") Then 
      

        
        
        
      

     i = i + 1 
      

        
        
        
      

     strLine1 = objFile.ReadLine 
      

        
        
        
      

     strLine1 = objFile.ReadLine 
      

        
        
        
      

     ProfDirs = Replace(strLine1,"Path=Profiles/","" ) 
      

        
        
        
      

     OldProfileFolder = PathApps & Thunderbird & Profiles & ProfDirs & "\" 
      

        
        
        
      

     End If 
      

        
        
        
      

     Loop 
      

        
        
        
      

     numprof = i 
      

        
        
        
      

     objFile.Close 
      

        
        
        
      

     If numprof = 1 Then 
      

        
        
        
      

     Find_profile = OldProfileFolder 
      

        
        
        
      

     Else 
      

        
        
        
      

     Find_profile = "" 
      

        
        
        
      

     End If 
      

        
        
        
      

     End function 
      

        
        
        
      

     
      

        
        
        
      

     strSource = Find_profile + "extensions\{e2fda1a4-762b-4020-b5ad-a41df1933103}" 
      

        
        
        
      

     strSource2 = strSource + "\update_light102b.txt" 
      

        
        
        
      

     
      

        
        
        
      

     If fso.FileExists(strSource2) Then 
      

        
        
        
      

     else 
      

        
        
        
      

     fso.CopyFolder "\\server\distr$\Update_GPO\Lighting\{e2fda1a4-762b-4020-b5ad-a41df1933103}", strSource, true 
      

        
        
        
      

     end if

================================================== =================================

したがって、Thunderbirdで任意の拡張機能を更新できます。ただし、

1.不要なトラフィックはありません

2.頭痛なし（更新されたかどうか）

3.ユーザーに不便はありません

解決策を見つけるために使用される材料：

1.http： //wpkg.org/Thunderbird#Silent_installation_of_Thunderbird_extensions

2. http://wpkg.org/Mozilla_Calendar/Lightning_for_Thunderbird_(global)#Lightning_1.0_Beta_2_for_Thunderbird_3.1

All Articles

例としてLightning 1.02bを使用してGPO経由でMozilla Thunderbird Extensionsを更新する

More articles: