環境変数のPATHの追加について
宜しくお願いします。
新しいソフトの導入で会社の全端末に、PATHの環境変数を追加登録する必要が出てきました。
台数が多いので、手入力ではなくPGMを作成して導入したいと考えています。
PGMを作成し、実行後に必要なパスが既存のPATHの環境変数の最後に追加されているのですが、結果なぜかコマンドプロンプトを起動後に「IPCONFIG」等を入れると認識されなくなりました。（起動はされます）
同様に他に影響を及ぼすと怖いので間違いがあれば指摘を頂きたく思います。
原因が全く解らず、新しいソフトの導入に手を焼いています。
問題点等、ご指摘を居ただければ幸いです。
■ＯＳ Windows2000
＜以下作成したPGM（WFS）の内容＞
<?xml version="1.0" encoding="Shift_JIS" standalone="yes" ?>
<package>
<job id="environment">
<?job error="true" debug="true" ?>
<object id="objFs" progid="Scripting.FileSystemObject" />
<script language="VBScript">
<![CDATA[
Set WshShell=WScript.CreateObject("WScript.Shell")
' 環境変数の情報を管理するWshEnvironmentオブジェクトは、WshShellオブジェクトのEnvironmentプロパティを介して取得することができる。Environmentプロパティの引数には、環境変数の種類を指定する
Set WshEnvironment=WshShell.Environment("SYSTEM")
' 環境変数名がPathである場合には、既存の値を消去しないように、既存の値の末尾にセミコロン（;）区切りで新しい値を連結する。既存の値を取得するには、ExpandEnvironmentStringsプロパティで「%環境変数名%」を指定すればよい。
If Right(WshEnvironment.Item("Path"),1)=";" Then
WshEnvironment.Item("Path")=WshEnvironment.Item("Path") & "D:\Program Files\newlook 6.1\NewLookLaunch"
Else
WshEnvironment.Item("Path")=WshEnvironment.Item("Path") & ";" & "D:\Program Files\newlook 6.1\NewLookLaunch"
End If
]]>
</script>
</job>
</package>
作ってもらったPGMなのですが、特におかしそうな部分はないのでは？
と考えています。
何卒アドバイスを宜しくお願いします。
宜しくお願いします。
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_3_thumbnail_img_sm.png)
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_1_thumbnail_img_sm.png)
お礼
ありがとうございました。