http://winofsql.jp/wsf/enumShareWMI.wsf 拡張子:txtvbswsfjsphpjavahtmlutf8sjis <JOB> <COMMENT> ************************************************************ WSH 実行スケルトン ************************************************************ </COMMENT> <COMMENT> ************************************************************ 外部スクリプト定義 ************************************************************ </COMMENT> <SCRIPT language="VBScript" src="http://lightbox.in.coocan.jp/laylaClass.vbs"> </SCRIPT> <SCRIPT language=VBScript> ' *********************************************************** ' 処理開始 ' *********************************************************** Call laylaFunctionTarget( "http://lightbox.in.coocan.jp/" ) 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 拡張子:txtvbswsfjsphpjavahtmlutf8sjis <JOB> <COMMENT> ************************************************************ WSH 実行スケルトン ************************************************************ </COMMENT> <COMMENT> ************************************************************ 外部スクリプト定義 ************************************************************ </COMMENT> <SCRIPT language="VBScript" src="http://lightbox.in.coocan.jp/laylaClass.vbs"> </SCRIPT> <SCRIPT language=VBScript> ' *********************************************************** ' 処理開始 ' *********************************************************** Call laylaFunctionTarget( "http://lightbox.in.coocan.jp/" ) 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以降 拡張子:txtvbswsfjsphpjavahtmlutf8sjis <JOB> <COMMENT> ************************************************************ WSH 実行スケルトン ************************************************************ </COMMENT> <COMMENT> ************************************************************ 外部スクリプト定義 ************************************************************ </COMMENT> <SCRIPT language="VBScript" src="http://lightbox.in.coocan.jp/laylaClass.vbs"> </SCRIPT> <SCRIPT language=VBScript> ' *********************************************************** ' 処理開始 ' *********************************************************** Call laylaFunctionTarget( "http://lightbox.in.coocan.jp/" ) 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>
<JOB> <COMMENT> ************************************************************ WSH 実行スケルトン ************************************************************ </COMMENT> <COMMENT> ************************************************************ 外部スクリプト定義 ************************************************************ </COMMENT> <SCRIPT language="VBScript" src="http://lightbox.in.coocan.jp/laylaClass.vbs"> </SCRIPT> <SCRIPT language=VBScript> ' *********************************************************** ' 処理開始 ' *********************************************************** Call laylaFunctionTarget( "http://lightbox.in.coocan.jp/" ) 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>
<JOB> <COMMENT> ************************************************************ WSH 実行スケルトン ************************************************************ </COMMENT> <COMMENT> ************************************************************ 外部スクリプト定義 ************************************************************ </COMMENT> <SCRIPT language="VBScript" src="http://lightbox.in.coocan.jp/laylaClass.vbs"> </SCRIPT> <SCRIPT language=VBScript> ' *********************************************************** ' 処理開始 ' *********************************************************** Call laylaFunctionTarget( "http://lightbox.in.coocan.jp/" ) 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>
<JOB> <COMMENT> ************************************************************ WSH 実行スケルトン ************************************************************ </COMMENT> <COMMENT> ************************************************************ 外部スクリプト定義 ************************************************************ </COMMENT> <SCRIPT language="VBScript" src="http://lightbox.in.coocan.jp/laylaClass.vbs"> </SCRIPT> <SCRIPT language=VBScript> ' *********************************************************** ' 処理開始 ' *********************************************************** Call laylaFunctionTarget( "http://lightbox.in.coocan.jp/" ) 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>