共有フォルダを追加、削除するサンプル

WSHのMSDNには共有フォルダを追加するサンプルがありますが、説明が難解でサンプルも長くて難しいです。VBScriptですし。
コマンドを使ってもっとシンプルに実行するサンプルを作成しました。



WSHのMSDNから共有フォルダに関するサンプルについての説明の引用

テキスト スクリプト エディタに、WMI (Windows Management Instrumentation) を使って共有を作成するためのコードを入力します。共有は上記の手順で作成したフォルダに設定します。スクリプトにより、まず、WMI. に接続します。次に、セキュリティ偽装レベルおよび Windows NT 権限を設定します。これにより、ユーザーは、DACL (Discretionary Access Control List) および SACL (Security Access Control List) を設定できるようになります。さらに、新しいセキュリティ記述子を作成し、新しい共有で使用する一組の ACE (Access Control Entry) をセットアップします。最後に、作成したセキュリティ記述子を使って新しい共有を作成します。

なるほど。なんか色々あってややこしいってことは分かった。



そして上記ページのサンプルソース




コマンドラインで「net share 共有名=c:\app\フォルダ /grant:everyone,full」と書くだけで共有フォルダの設定ができることを知ったうえで上記サンプルを見ると、長過ぎ。。と感じます。



共有フォルダの設定を変えるには管理者権限が必要なため、昇格処理がある分わたしのスクリプトもコマンドに比べたら長くなってしまいますが、だいぶ分かりやすいかと思います。



以下のように、設定用ファイルと解除用ファイルを作成して



共有したいフォルダを設定用ファイルにドラッグ＆ドロップすると



「ユーザーアカウント制御」の画面が表示されて、許可すると以下の画面が表示されます。



net shareコマンドで共有フォルダのリストを表示すると、以下のように「新規共有」という名前が追加されています。



同様に、共有中のフォルダを解除用ファイルにドラッグ＆ドロップすると



共有フォルダとして追加する時と同様にユーザーアカウント制御制御の画面が表示されます。その画面で実行を許可すると、以下の画面が表示されます。



もう一度net shareコマンドで共有フォルダの一覧を確認すると「新規共有」がなくなっていることが確認できました。