Bardzo często użytkownicy zostawiają na swoich stacjach masę folderów udostępnionych, aby pozbyć się ich wystarczy uruchomić taki oto skrypt
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer &
"\root\cimv2")
Set Shares = objWMIService.ExecQuery _
("Select * from Win32_Share Where Type = 0")
For Each objShare in Shares
objShare.Delete
Next
keywords : share folder list, share, list of shares, vbs, vbscript, skrypty vbs, windows scripting, powershell, script, scripting, windows scripting, wmi, wmi script, mkowalczyk, clearcase, itil, reklama, pomoc,vbs, vbscript, skrypty vbs, windows scripting, powershell, script, scripting, windows scripting, wmi, wmi script, mkowalczyk, clearcase, itil, reklama, pomoc
Share Link: 
