%USERNAME%環境変数を使うには?


もりもり  2004-06-04 17:54:06  No: 113723  IP: [192.*.*.*]

VBSでフォルダをコピーするスクリプトを作成しています。
コピー先はユーザーごとに異なるため、以下のVBSを作成しましたが、
パスが見つからないとエラーがでます。

-------------------------------------------------------------
Dim Fs
Set Fs = Wscript.CreateObject("Scripting.FileSystemObject")
Fs.CopyFolder "\\サーバ名\フォルダ名", "\\サーバ名\redirect\%USERNAME%\Application Data\Microsoft", True
-------------------------------------------------------------

よろしくお願いします。

編集 削除
nanashi  2004-06-04 18:12:52  No: 113724  IP: [192.*.*.*]

「VBS 環境変数 USERNAME」とかで検索すれば出てくると思いますが…。

Set Fs = Wscript.CreateObject("Scripting.FileSystemObject")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Fs.CopyFolder "\\サーバ名\フォルダ名", "\\サーバ名\redirect\" & WshNetwork.UserName & "\Application Data\Microsoft", True

こんな感じかなァ?

編集 削除