XCOPY

質問

こんにちわ

クライアント数台(NT workstation)のローカルデータ
を、ファイルサーバ(2003)に自動保存(ＷＳＨ)する処理
を行いたいと思っています。

処理概要は、クライアントのコンピュータ名と同じ
ディレクトリをファイルサーバに作成し、
そのディレクトリに、クライアントのデータを保存する
流れで考えています。

XCOPYでやる場合だと、保存先を変数では無理なのでしょうか。

WSHで成功できましたが、権限は引き継がれるのでしょうか？

Dim objFS
Dim objNetwork
Dim f

Set objNetwork = WScript.CreateObject("WScript.Network")
Set objFS = CreateObject("Scripting.FileSystemObject")

Set f = objFS.CreateFolder("C:\ " & objNetwork.ComputerName)

'objFS.CopyFolder "c:\test", "c:\ " & objNetwork.ComputerName

xcopy C:\test C:\ & objNetwork.ComputerName /e /v /q /h /k /o /x

回答No.2

taka_tetsu · ベストアンサー

>これを、ログインスクリプトに実行させたいのですが
>具体的にどうすればよいか教えていただければ幸いです。

これって、ログインスクリプトとして作成したWSHを動かすにはどうすればいいのかということを聞いているのですか？

>この処理は、DOSプロンプト画面が出力されますが
>影響はないでしょうか？

ヘルプを読みましょう。
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/wsmthrun.asp

1を指定しているので表示されています。
0にすれば表示されません。

>最後に、xcopyのオプションの意味を教えていただけないでしょうか。
>よろしくお願いいたします。

(^^;;
私はyano-kouichiさんが書かれたオプションをコッピってはっつけただけなんですけど。書かれた本人が知らないとは・・・

コマンドプロンプトで
xcopy /?
で自分で調べてください。DOSコマンドの常識です。
またはスタートボタンを押して出てくるスタートメニューにあるWindowsのヘルプから。

お礼

ありがとうございます

補足

これって、ログインスクリプトとして作成したWSHを動かすにはどうすればいいのかということを聞いているのですか？
>まさにその通りです。

回答No.3

taka_tetsu

>>これって、ログインスクリプトとして作成したWSHを動かすにはどうすればいいのかということを聞いているのですか？
>まさにその通りです。

自分で調べる癖をつけましょう。
山ほど出てきます。
http://www.google.co.jp/search?num=100&hl=ja&q=Windows+%E3%83%AD%E3%82%B0%E3%82%AA%E3%83%B3%E3%82%B9%E3%82%AF%E3%83%AA%E3%83%97%E3%83%88&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=

ちなみにWindowsでは「ログイン」ではなく「ログオン」なので、ログオンで検索しないと正しいものが出てこないです。

＃引用記号のつけ方逆ですので直しました。

>処理概要は、クライアントのコンピュータ名と同じ

とのことですが、ADを構築しているのならサーバに、ワークグループ運用なら各PCにログオンスクリプトを設定することになりますが理解されてます？

お礼

ほんとうに、いろいろとありがとうございました。
自力にて調べてみます。

補足

各PCにログオンスクリプトを設定することは理解しております。

回答No.1

taka_tetsu

>XCOPYでやる場合だと、保存先を変数では無理なのでしょうか。

バッチファイルでXCOPYを起動する際に変数を使用する場合は環境変数を使うことになります。

>WSHで成功できましたが、権限は引き継がれるのでしょうか？

コピーではACL情報と監査設定は引き継がれません。なので、WSHからXCOPYコマンドを呼び出すのがいいかと。
そうすれば、変数ももっと簡単に使えます。

Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("xcopy C:\test C:\" & objNetwork.ComputerName & " /e /v /q /h /k /o /x" , 1, true)

こんな感じに。

お礼

成功しました。
ありがとうございます。

なんどもすいませんが、
これを、ログインスクリプトに実行させたいのですが
具体的にどうすればよいか教えていただければ幸いです。この処理は、DOSプロンプト画面が出力されますが
影響はないでしょうか？

最後に、xcopyのオプションの意味を教えていただけないでしょうか。
よろしくお願いいたします。

補足

ありがとうございます。

この処理を、ログインスクリプトの中で処理を
させるにはどうしたらいいのでしょうか。

あと、DOSプロンプト画面が出力されるのは、
ログインする際に、影響はでないのでしょうか。