'************************************************* ' ' FreigabenLoeschen.txt ' ' !!!! Umbenennen in 'FreigabenLoeschen.vbs' !!! ' ' Autor: Franz Kohnle, http://www.kohnlehome.de/ ' ' Löscht die Freigaben 'FirmaC00' ... 'FirmaC25' ' ' Die Ordner werden nicht gelöscht ' '************************************************** Option Explicit '************************************************** ' ' folgende Konstanten können angepasst werden: Const FREIGABE = "FirmaC" Const MIN = 0 Const MAX = 25 '************************************************** Dim strComputer Dim oWMIService Dim oFreigabeListe, oFreigabe Dim strFreigabe, strNummer, i strComputer = "." Set oWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") For i = min To max If i < 10 Then strNummer = "0" & i Else strNummer = i End If strFreigabe = FREIGABE & strNummer Set oFreigabeListe = oWMIService.ExecQuery _ ("SELECT * FROM Win32_Share WHERE Name = '" & strFreigabe &"'") For Each oFreigabe in oFreigabeListe oFreigabe.Delete Next Next Wscript.Echo "Die Freigaben " & FREIGABE & "... wurden gelöscht."