Re: Open Shares

From: Benton Chase Wink (Benton.Wink@Bus.UTexas.edu)
Date: 05/31/02 

From: "Benton Chase Wink" <Benton.Wink@Bus.UTexas.edu>
Date: Fri, 31 May 2002 10:57:18 -0500

You can do this using WMI. The following is the base script you would want
to use...Just modify it to suit your environment.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colShares = objWMIService.ExecQuery _
    ("Select * from Win32_Share Where Name = 'FinanceShare'")
For Each objShare in colShares
    objShare.Delete
Next

Benton Chase Wink
-------------------------------------------------
Benton Chase Wink, CCNA MCSE
McCombs School of Business
LAN Administrator, Network Team
512-471-9938
512-619-9016

"Senthil Kumar" <thasenthil@hotmail.com> wrote in message
news:9c9c01c20873$45714e70$19ef2ecf@tkmsftngxa01...
> Hi,
> I am managing a systems consisting of about 600 systems.I
> need to remove the open shares which are available at the
> desktops. Is there ahyway to accomplish the above
> mentioned task without checking each and every system in
> the network;
> Any help in this regard will be highly appreciated.
>
> Kindly reply at the earliest.
>
> Thanks & Regards,
> Senthil Kumar.D
> Systems/Network Engineer.
>
>