ソース掲示板




すべてから検索

キーワード   条件 表示 現行ログ 過去ログ トピックス 名前 本文
共有一覧 ( No.3 )
日時: 2013/05/02 00:19
名前: lightbox



http://winofsql.jp/wsf/enumShareWMI.wsf

<JOB>
<COMMENT>
************************************************************
 WSH 実行スケルトン
************************************************************
</COMMENT>

<COMMENT>
************************************************************
 外部スクリプト定義
************************************************************
</COMMENT>
<SCRIPT
	language="VBScript"
	src="http://homepage2.nifty.com/lightbox/laylaClass.vbs">
</SCRIPT>

<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************
Call laylaFunctionTarget( "http://homepage2.nifty.com/lightbox/" )
Call laylaLoadFunction( "baseFunction.vbs" )

Crun

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
	& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colShares = objWMIService.ExecQuery("Select * from Win32_Share")
Wscript.Echo "【共有一覧】"
Wscript.Echo "----------------------------------------------------"
For Each Share In colShares
	Wscript.Echo Rpad(Share.Name, " ", 20) & " : " & Share.Path
Next
Wscript.Echo

</SCRIPT>
</JOB>
【XP以降】 http://winofsql.jp/wsf/enumShare.wsf
<JOB>
<COMMENT>
************************************************************
 WSH 実行スケルトン
************************************************************
</COMMENT>

<COMMENT>
************************************************************
 外部スクリプト定義
************************************************************
</COMMENT>
<SCRIPT
	language="VBScript"
	src="http://homepage2.nifty.com/lightbox/laylaClass.vbs">
</SCRIPT>

<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************
Call laylaFunctionTarget( "http://homepage2.nifty.com/lightbox/" )
Call laylaLoadFunction( "baseFunction.vbs" )

Crun

Set Fs = GetObject("WinNT://" & GetCpname & "/LanmanServer")

Wscript.Echo "【共有一覧】"
Wscript.Echo "----------------------------------------------------"
For Each Share In Fs
	Wscript.Echo Rpad(Share.Name, " ", 20) & " : " & Share.Path
Next
Wscript.Echo

</SCRIPT>
</JOB>
【削除と追加】( 追加は簡単なほうで ) ※ 但し追加はXP以降
<JOB>
<COMMENT>
************************************************************
 WSH 実行スケルトン
************************************************************
</COMMENT>

<COMMENT>
************************************************************
 外部スクリプト定義
************************************************************
</COMMENT>
<SCRIPT
	language="VBScript"
	src="http://homepage2.nifty.com/lightbox/laylaClass.vbs">
</SCRIPT>

<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************
Call laylaFunctionTarget( "http://homepage2.nifty.com/lightbox/" )
Call laylaLoadFunction( "baseFunction.vbs" )

Crun

' 削除
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
	& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colShares = objWMIService.ExecQuery("Select * from Win32_Share")
For Each objShare in colShares
	If objShare.Name = "共有名" Then
		objShare.Delete
	End If
Next

Set Fs = GetObject("WinNT://" & GetCpname & "/LanmanServer")

' 追加( 同じ名前だとエラー )
Set objShare = Fs.Create("FileShare","共有名")
objShare.Path = "C:\TEMP\excel"
on error resume next
objShare.SetInfo
If Err.number <> 0 Then
	MsgBox("共有作成に失敗しました")
End if
on error goto 0

</SCRIPT>
</JOB>