How do I quickly cancel all folder sharing? Come in and see.

Original: How to quickly cancel all folder sharing? Come in and see.

To quickly cancel all folder sharing:
Share the folder to others but forget to cancel, want to cancel sharing but can't find that folder, how to do?
Double-click the tool to clear all shares.
StrComputer = "."
Set objWMIService = GetObject ("winmgmts:" _
& "{impersonationlevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set Colshares = objWMIService.ExecQuery _
("SELECT * from Win32_Share Where Name <> ' C $ ' and name <> ' d$ ' and name <> ' e$ ' and name <> ' f$ '" )
For each objshare in Colshares
Objshare.delete
Next
MsgBox "shared directory cleared"

Save the above code as a file in. vbs format.

How do I quickly cancel all folder sharing? Come in and see.