Bilgisayarımdaki tüm paylaşımları silmem gerekiyor, bunun için

net share c$ /DELETE gibi bir komut kullanabilirim. c$ paylaşımını silmek için fakat bu $ lı paylaşımlar sistem yeniden açıldığında tekrar geri gelirler. O zaman bu komutu açılışa koymalıyız. Batch dosyası ile yapılabilir ama siyah ekran gözükmesin VBS ile yazalım.

set ws =CreateObject("WScript.Shell")
ws.Run("net share c$ /DELETE")
ws.Run("net share d$ /DELETE")
ws.Run("net share ADMIN$ /DELETE")

bu şekilde istediğim paylaşımı vbs dosyası ile siliyorum fakat sistemde hangi sharelar olduğunu bilmem gerekiyor.

Bunu nasıl çözeceğimi ararken WMI ile bir çözüm yolu buldum MSDN de:

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colShares = objWMIService.ExecQuery("SELECT * FROM Win32_Share")
For Each objShare in colShares
 'msgbox objShare.name
objShare.delete
Next

yukarıdaki dosyayı .vbs ile kaydedip sistemin açılışına koydum artık bilgisayarım biraz daha güvenli:)

kaynak : http://www.microsoft.com/resources/documentation/windows/2000/server/scriptguide/en-us/sas_fil_zzcu.mspx