Vbs script supprimer dossier users
inoxj1
Messages postés
13
Statut
Membre
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
J'ai un fichier vbs :
'Les déclarations
Dim Path, fso, f, f1, User, Users, Sup
Path = "c:\Documents and Settings\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Path)
Set Users = f.SubFolders
For Each f1 in Users
User = User & vbCrLf & vbCrLf & f1.Name
Select Case f1.Name
Case "Administrateur" 'profil à ne pas supprimer
'MsgBox "Le user Administrateur ne sera supprimé"
Case "All Users" 'profil à ne pas supprimer
Case "Default User" 'profil à ne pas supprimer
Case "LocalService" 'profil à ne pas supprimer
Case "NetworkService" 'profil à ne pas supprimer
Case Else
'msgbox "Ce profil sera supprimé : " & f1.Name
Sup = Sup & vbCrLf & vbCrLf & f1.Name
fso.DeleteFolder(f1.ShortPath) 'ATTENTION: ordre protégé car dangerous !!!
End Select
Next
'msgbox "Liste de tous les profils (visibles et cachés)" & vbCrLf & vbCrLf & User
msgbox "Liste des profils supprimés" & vbCrLf & vbCrLf & Sup
Sont but est de supprimer les dossier users. J'ai donc lancer le script et la on m'affiche un message d'erreur : Permission refusée
code : 800A0046
J'ai un fichier vbs :
'Les déclarations
Dim Path, fso, f, f1, User, Users, Sup
Path = "c:\Documents and Settings\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Path)
Set Users = f.SubFolders
For Each f1 in Users
User = User & vbCrLf & vbCrLf & f1.Name
Select Case f1.Name
Case "Administrateur" 'profil à ne pas supprimer
'MsgBox "Le user Administrateur ne sera supprimé"
Case "All Users" 'profil à ne pas supprimer
Case "Default User" 'profil à ne pas supprimer
Case "LocalService" 'profil à ne pas supprimer
Case "NetworkService" 'profil à ne pas supprimer
Case Else
'msgbox "Ce profil sera supprimé : " & f1.Name
Sup = Sup & vbCrLf & vbCrLf & f1.Name
fso.DeleteFolder(f1.ShortPath) 'ATTENTION: ordre protégé car dangerous !!!
End Select
Next
'msgbox "Liste de tous les profils (visibles et cachés)" & vbCrLf & vbCrLf & User
msgbox "Liste des profils supprimés" & vbCrLf & vbCrLf & Sup
Sont but est de supprimer les dossier users. J'ai donc lancer le script et la on m'affiche un message d'erreur : Permission refusée
code : 800A0046
A voir également:
- Vbs script supprimer dossier users
- Supprimer rond bleu whatsapp - Guide
- Impossible de supprimer un dossier - Guide
- Dossier appdata - Guide
- Supprimer page word - Guide
- Supprimer pub youtube - Accueil - Streaming
1 réponse
Bjr,
Il est vraiment chouette ce script. Je ne suis plus au top du vbs, mais à vue de nez, une chose me semble bizarre.
N'essaie-t-il pas d'effacer aussi le profil de l'utilisateur en cours? Je ne vois pas de ligne qui lui dit de ne pas le faire. Si tu te connectes en tant que "toto", il veut te supprimer (c'est impossible), voire se supprimer lui-même (ça ne l'est pas plus).
**************************************************************
En réseau d'entreprise, je me servais de la clé de registre suivante (je l'ai retrouvée):
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon]
"DeleteRoamingCache"=dword:00000001
Elle supprimait le profil itinérant en fin de connexion, ce qui évitait des manips fastidieuses.
La gpo permet aussi de le faire directement sous 2000 et 2003 (une propriété spécifique permet de le faire, me semble-t-il)
Il est vraiment chouette ce script. Je ne suis plus au top du vbs, mais à vue de nez, une chose me semble bizarre.
N'essaie-t-il pas d'effacer aussi le profil de l'utilisateur en cours? Je ne vois pas de ligne qui lui dit de ne pas le faire. Si tu te connectes en tant que "toto", il veut te supprimer (c'est impossible), voire se supprimer lui-même (ça ne l'est pas plus).
**************************************************************
En réseau d'entreprise, je me servais de la clé de registre suivante (je l'ai retrouvée):
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon]
"DeleteRoamingCache"=dword:00000001
Elle supprimait le profil itinérant en fin de connexion, ce qui évitait des manips fastidieuses.
La gpo permet aussi de le faire directement sous 2000 et 2003 (une propriété spécifique permet de le faire, me semble-t-il)
