Script per la rimozione automatica di tutte le condivisione locali del computer

Script auto remove share local Computer

Questo semplice script permette di risolvere il dilemma di cancellare automaticamente tutte le condivisioni attive su un pc.
Direte ma che serve se c’e’ il comando NET SHARE?

Il comando NET SHARE che ne riporto anche l’HELP permette si di cancellare le condivisioni del computer via riga di comando ma devi prima sapere il nome della condivisione…

Sintassi del comando:

NET SHARE
nomecondivisione
        nomecondivisione=unità:percorso [/GRANT:utente,[READ | CHANGE | FULL]]
                             [/USERS:numero | /UNLIMITED]
                             [/REMARK:”testo”]
                             [/CACHE:Manual | Documents| Programs | BranchCache
| None ]
        nomecondivisione [/USERS:numero | /UNLIMITED]
                  [/REMARK:”testo”]
                  [/CACHE:Manual | Documents | Programs | BranchCache | None]
        {nomecondivisione | nomedispositivo | unità:percorso} /DELETE
        nomecondivisione \\nomecomputer /DELETE

e se hai una rete dove gli utenti possono avere il diritto di fare certe cose e tra queste quelle di creare le condivisioni?
Certamente alla fine della sessione di ogni utente non puoi lasciare il computer un colabrodo anche perche’ l’utente che si siede dopo non e’ a conoscenza delle condizioni e alterazioni fatte dall’utente precedente e come tale devi riportare ad un minimo di sicurezza il computer.

Ora ritorniamo al nostro discorso:

1. come facciamo a sapere se il computer ha delle condivisioni “abusive”?
2. come facciamo a cancellarle in automatico?

Ecco che un bellissimo script in CScript permette di risolvere il nostro bellissimo problema.

 Questo codice a seguire permette di elencare le share presenti nel computer non e’ fondamentale per arrivare alla soluzione, viene riportato solo per conoscenza.

---

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Set colShares = objWMIService.ExecQuery(“Select * from Win32_Share”)

For each objShare in colShares
if (objShare.Type=0) then
WScript.Echo "Share: (" & objShare.Name & ")"
end if
Next

---

 Questo codice a seguire permette di identificare e cancellare automaticamente le condivisioni (Share) sul computer dove viene eseguito lo script, l’output e limitatissimo ma visto che gira come script non serve.

---

Set objWMIService = GetObject(“winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2”)
‘Select our list of shares on the system

Set colShares = objWMIService.ExecQuery(“Select * from Win32_Share”)

For each objShare in colShares
 if (objShare.Type=0) then
  WScript.Echo “Deleting Share (” & objShare.Name & “)”
  if objshare.delete then
   WScript.echo “Error Deleting Share”
  end if
 end if
Next

---

Nuovo Aggiornamento

Versione 01.12062013.15.40

Download Script:
Delete-Sharing.zip

Delete-Sharing.vbs

---

Informazioni / problemi

---

® Dream Land by Giovanni Bifera

---

LE INFORMAZIONI CONTENUTE SONO FORNITE SENZA GARANZIA DI ALCUN TIPO, IMPLICITA OD ESPLICITA. L’UTENTE SI ASSUME L’INTERA RESPONSABILITA’ PER L’UTILIZZO DI QUESTE INFORMAZIONI. IN NESSUN CASO SI RENDONO RESPONSABILI PER DANNI DIRETTI, INDIRETTI O ACCIDENTALI CHE POSSANO PROVOCARE PERDITA DI DENARO O DI DATI.

---

 

 

Numero Di Accessi Alla Pagina: 3759

Short Link: