Bardzo łatwo zaimplementować ten skrypt do sprawdzania na serwerze aplikacyjnych folderów udostępnionych dodając do wmi opcji filtrującej WHERE np: Set objShares = objWMIService.ExecQuery("Select * from Win32_Share where Name like 'ksieg%'") ....
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" _
& strComputer & "\root\cimv2")
Set Shares = objWMIService.ExecQuery("SELECT * FROM Win32_Share")
For Each obj in Shares
Wscript.Echo "Allow Maximum: " & obj.AllowMaximum
Wscript.Echo "Caption: " & obj.Caption
Wscript.Echo "Maximum Allowed: " & obj.MaximumAllowed
Wscript.Echo "Name: " & obj.Name
Wscript.Echo "Path: " & obj.Path
Wscript.Echo "Type: " & obj.Type
Next
Keywords : foldery udostępnioe, lista folderów udostępnionych, vbs, vbscript, skrypty vbs, windows scripting, powershell, vbs, script, scripting,
windows scripting, wmi, wmi script, mkowalczyk, clearcase, vbs, itil, reklama, pomoc,vbs,
vbscript, skrypty vbs, windows scripting, powershell, vbs, script, scripting, windows scripting,
wmi, wmi script, vbs, mkowalczyk, vbscript, clearcase, itil, reklama, pomoc, vbs, vbscript,
skrypty vbs, windows scripting, powershell, script, vbs, scripting, windows scripting, wmi,
wmi script, mkowalczyk, vbscript, vbs, clearcase, itil, reklama, pomoc,vbs, vbscript,
skrypty vbs, windows scripting, powershell, script, scripting, windows scripting, vbs, wmi,
wmi skrypt, vbskryptowanie,powershell, script, vbs, scripting, windows scripting, wmi,
wmi script, mkowalczyk, vbscript, vbs, clearcase, itil, reklama, pomoc,vbs, vbscript,
skrypty vbs, windows scripting, powershell, script, scripting, windows scripting, vbs, wmi,
wmi script, mkowalczyk, vbskrypty, vbs dla wszystkich, vbs, skryptowanie w vbs, skrypty w vbs,
vbs jest proste, vbs dla opornych, vbs, administracja windows 2008,
powershell dla windows server 2008
Share Link: 
