共有フォルダの「共有のアクセス許可」を設定するコマンド

ANo.#2には問題があったので 書き直しました。 Option Explicit Dim Services Dim SecDescClass Dim SecDesc Dim Trustee Dim ACE1 Dim ACE2 Dim Share Dim InParam Const FolderName = "C:\public" Const ImpLevel = "{impersonationLevel=impersonate}" Const namespace = "!root\cimv2:" Const ComputerName = "ittochan" Const ShareName = "Pubs" Set Services = GetObject("WINMGMTS:{impersonationLevel=impersonate,(Security)}!\\.\ROOT\CIM

[teru_while]

WSHでnet shareコマンドより高度なファイル共有設定のサンプルスクリプト。ユーザ毎のアクセス許可設定ができる。