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

2016年6月13日月曜日

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

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」と書くだけで共有フォルダの設定ができることを知ったうえで上記サンプルを見ると、長過ぎ。。と感じます。

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

	<package>
	<job>
	<script>
	arg = WScript.Arguments
	if(arg.length!=1){
	WScript.Echo('共有するフォルダを1つだけ指定してください')
	WScript.Quit()
	}

	// 共有フォルダを扱うコマンドは管理者権限がないと実行できないので、昇格する
	shellApp = new ActiveXObject('Shell.Application')
	shellApp.ShellExecute('wscript', WScript.ScriptFullName+' //job:main "'+arg(0)+'" uac', '', 'runas')
	</script>
	</job>
	<job id=main>
	<script>
	arg = WScript.Arguments
	shell = new ActiveXObject('WScript.Shell')
	shell.run('cmd /K net share 新規共有='+arg(0)+' /grant:everyone,full')
	</script>
	</job>
	</package>

view raw 共有フォルダの追加.wsf hosted with ❤ by GitHub

	<package>
	<job>
	<script>
	arg = WScript.Arguments
	if(arg.length!=1){
	WScript.Echo('共有解除するフォルダを1つだけ指定してください')
	WScript.Quit()
	}

	// 試してないけど、多分共有の解除も管理者権限が必要なので昇格する
	shellApp = new ActiveXObject('Shell.Application')
	shellApp.ShellExecute('wscript', WScript.ScriptFullName+' //job:main "'+arg(0)+'" uac', '', 'runas')
	</script>
	</job>
	<job id=main>
	<script>
	arg = WScript.Arguments
	path = arg(0)

	// 共有設定しているフォルダのリストを取得して共有名を調べる
	arr共有=[]
	objEnum = new Enumerator(WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer().ExecQuery("Select * From Win32_Share"))
	共有名 = ''
	for(i=0; !objEnum.atEnd() ;objEnum.moveNext()){
	item = objEnum.item()
	if(path==item.path){
	共有名 = item.name
	break
	}
	}

	if(!共有名){
	WScript.Echo('下記Pathフォルダは共有されていません。\n\n'+path)
	WScript.Quit()
	}

	shell = new ActiveXObject('WScript.Shell')
	shell.run('cmd /K net share '+共有名+' /delete')
	</script>
	</job>
	</package>