J'ai un petit problème sur un grand nombre de machines dans un domaine AD...
De nombreux postes ont des partages réseaux divers et variés que l'on ne
controle pas... (=> pb de virus, pb de sauvegarde...)
Peut-on faire un script de démarrage qui supprime tous les partages des
postes (hors partages administratifs ?)...sans connaitre les noms de ces
partages ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-Marc Hilaire [MS]
Si les postes en question ont WMI d'installé, vous pourrez vous inspirer de ce script. Attention je ne filtre que ADMIN$, IPC$ et C$ (case sensitive dans le code) comme share par défaut, ce n'est peut-être pas adapté à votre cas, des tests s'imposent avant bien évidemment. Ce script supprime les share déclarés sur le poste mais pas les shares qui pointent sur d'autres postes.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2") Set colShares = objWMIService.ExecQuery _ ("Select * from Win32_Share Where ((Name <> 'IPC$') and (Name <> 'C$') and (Name <> 'ADMIN$') )") For Each objShare in colShares objShare.Delete Next
"Nico" wrote in message news:
Bonjour à tous...
J'ai un petit problème sur un grand nombre de machines dans un domaine AD... De nombreux postes ont des partages réseaux divers et variés que l'on ne controle pas... (=> pb de virus, pb de sauvegarde...) Peut-on faire un script de démarrage qui supprime tous les partages des postes (hors partages administratifs ?)...sans connaitre les noms de ces partages ?
Merci pour vos infos...
@+
Nico.
Si les postes en question ont WMI d'installé, vous pourrez vous inspirer de
ce script.
Attention je ne filtre que ADMIN$, IPC$ et C$ (case sensitive dans le code)
comme share par défaut, ce n'est peut-être pas adapté à votre cas, des tests
s'imposent avant bien évidemment. Ce script supprime les share déclarés sur
le poste mais pas les shares qui pointent sur d'autres postes.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
Set colShares = objWMIService.ExecQuery _
("Select * from Win32_Share Where ((Name <> 'IPC$') and (Name <> 'C$') and
(Name <> 'ADMIN$') )")
For Each objShare in colShares
objShare.Delete
Next
"Nico" <n@news.com> wrote in message
news:e5scJxrLFHA.436@TK2MSFTNGP09.phx.gbl...
Bonjour à tous...
J'ai un petit problème sur un grand nombre de machines dans un domaine
AD...
De nombreux postes ont des partages réseaux divers et variés que l'on ne
controle pas... (=> pb de virus, pb de sauvegarde...)
Peut-on faire un script de démarrage qui supprime tous les partages des
postes (hors partages administratifs ?)...sans connaitre les noms de ces
partages ?
Si les postes en question ont WMI d'installé, vous pourrez vous inspirer de ce script. Attention je ne filtre que ADMIN$, IPC$ et C$ (case sensitive dans le code) comme share par défaut, ce n'est peut-être pas adapté à votre cas, des tests s'imposent avant bien évidemment. Ce script supprime les share déclarés sur le poste mais pas les shares qui pointent sur d'autres postes.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2") Set colShares = objWMIService.ExecQuery _ ("Select * from Win32_Share Where ((Name <> 'IPC$') and (Name <> 'C$') and (Name <> 'ADMIN$') )") For Each objShare in colShares objShare.Delete Next
"Nico" wrote in message news:
Bonjour à tous...
J'ai un petit problème sur un grand nombre de machines dans un domaine AD... De nombreux postes ont des partages réseaux divers et variés que l'on ne controle pas... (=> pb de virus, pb de sauvegarde...) Peut-on faire un script de démarrage qui supprime tous les partages des postes (hors partages administratifs ?)...sans connaitre les noms de ces partages ?
Merci pour vos infos...
@+
Nico.
Nico
OK.... je vais essayer avec cela... Merci beaucoup pour l'info.
"Jean-Marc Hilaire [MS]" a écrit dans le message de news:
Si les postes en question ont WMI d'installé, vous pourrez vous inspirer de ce script. Attention je ne filtre que ADMIN$, IPC$ et C$ (case sensitive dans le code) comme share par défaut, ce n'est peut-être pas adapté à votre cas, des tests s'imposent avant bien évidemment. Ce script supprime les share déclarés sur le poste mais pas les shares qui pointent sur d'autres postes.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2") Set colShares = objWMIService.ExecQuery _ ("Select * from Win32_Share Where ((Name <> 'IPC$') and (Name <> 'C$') and (Name <> 'ADMIN$') )") For Each objShare in colShares objShare.Delete Next
"Nico" wrote in message news:
Bonjour à tous...
J'ai un petit problème sur un grand nombre de machines dans un domaine AD... De nombreux postes ont des partages réseaux divers et variés que l'on ne controle pas... (=> pb de virus, pb de sauvegarde...) Peut-on faire un script de démarrage qui supprime tous les partages des postes (hors partages administratifs ?)...sans connaitre les noms de ces partages ?
Merci pour vos infos...
@+
Nico.
OK.... je vais essayer avec cela...
Merci beaucoup pour l'info.
"Jean-Marc Hilaire [MS]" <jeanmarh@online.microsoft.com> a écrit dans le
message de news: Okz5n1sLFHA.3420@tk2msftngp13.phx.gbl...
Si les postes en question ont WMI d'installé, vous pourrez vous inspirer
de ce script.
Attention je ne filtre que ADMIN$, IPC$ et C$ (case sensitive dans le
code) comme share par défaut, ce n'est peut-être pas adapté à votre cas,
des tests s'imposent avant bien évidemment. Ce script supprime les share
déclarés sur le poste mais pas les shares qui pointent sur d'autres
postes.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
Set colShares = objWMIService.ExecQuery _
("Select * from Win32_Share Where ((Name <> 'IPC$') and (Name <> 'C$') and
(Name <> 'ADMIN$') )")
For Each objShare in colShares
objShare.Delete
Next
"Nico" <n@news.com> wrote in message
news:e5scJxrLFHA.436@TK2MSFTNGP09.phx.gbl...
Bonjour à tous...
J'ai un petit problème sur un grand nombre de machines dans un domaine
AD...
De nombreux postes ont des partages réseaux divers et variés que l'on ne
controle pas... (=> pb de virus, pb de sauvegarde...)
Peut-on faire un script de démarrage qui supprime tous les partages des
postes (hors partages administratifs ?)...sans connaitre les noms de ces
partages ?
OK.... je vais essayer avec cela... Merci beaucoup pour l'info.
"Jean-Marc Hilaire [MS]" a écrit dans le message de news:
Si les postes en question ont WMI d'installé, vous pourrez vous inspirer de ce script. Attention je ne filtre que ADMIN$, IPC$ et C$ (case sensitive dans le code) comme share par défaut, ce n'est peut-être pas adapté à votre cas, des tests s'imposent avant bien évidemment. Ce script supprime les share déclarés sur le poste mais pas les shares qui pointent sur d'autres postes.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2") Set colShares = objWMIService.ExecQuery _ ("Select * from Win32_Share Where ((Name <> 'IPC$') and (Name <> 'C$') and (Name <> 'ADMIN$') )") For Each objShare in colShares objShare.Delete Next
"Nico" wrote in message news:
Bonjour à tous...
J'ai un petit problème sur un grand nombre de machines dans un domaine AD... De nombreux postes ont des partages réseaux divers et variés que l'on ne controle pas... (=> pb de virus, pb de sauvegarde...) Peut-on faire un script de démarrage qui supprime tous les partages des postes (hors partages administratifs ?)...sans connaitre les noms de ces partages ?
