Supression des comptes dans outlook express

Le
Frédéric Breassier - News
Bonjour,



Avez-vous un script pour supprimer tous les comptes enregistrés dans Outlook
express ?



Merci et Bonne journée.

Frédéric Breassier.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Gilles LAURENT [MVP]
Le #685868
"Frédéric Breassier - News" écrit dans le message de
news:
| Bonjour,

Bonjour,

| Avez-vous un script pour supprimer tous les comptes enregistrés dans
| Outlook express ?

Ci-dessous le script VBScript "RemoveOutlookAccounts.vbs" permettant de
supprimer tous les comptes de courrier et comptes de news définis dans
Outlook Express pour le profil de l'utilisateur courant :

+++ Usage
> cscript //nologo RemoveOutlookAccounts.vbs

--- Coupez ici : RemoveOutlookAccounts.vbs ---
Option Explicit

' déclaration des variables
Dim oRe, oReg
Dim arrKeys
Dim strKey

' définition des constantes
Const HKCU = &H80000001
Const SUBKEY = "SoftwareMicrosoftInternet Account ManagerAccounts"

' initialisation des objets
Set oRe = New RegExp: oRe.Pattern = "d{8}"
Set oReg = GetObject ("winmgmts:/root/default:stdregprov")

' suppression des comptes
oReg.EnumKey HKCU, SUBKEY, arrKeys
For Each strKey In arrKeys
If oRe.Test (strKey) Then
oReg.DeleteKey HKCU, SUBKEY & "" & strKey
End If
Next
--- Coupez ici : RemoveOutlookAccounts.vbs ---

--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
Frédéric Breassier - News
Le #685867
merci beaucoup


"Gilles LAURENT [MVP]" %
"Frédéric Breassier - News" écrit dans le message de
news:
| Bonjour,

Bonjour,

| Avez-vous un script pour supprimer tous les comptes enregistrés dans
| Outlook express ?

Ci-dessous le script VBScript "RemoveOutlookAccounts.vbs" permettant de
supprimer tous les comptes de courrier et comptes de news définis dans
Outlook Express pour le profil de l'utilisateur courant :

+++ Usage
> cscript //nologo RemoveOutlookAccounts.vbs

--- Coupez ici : RemoveOutlookAccounts.vbs ---
Option Explicit

' déclaration des variables
Dim oRe, oReg
Dim arrKeys
Dim strKey

' définition des constantes
Const HKCU = &H80000001
Const SUBKEY = "SoftwareMicrosoftInternet Account ManagerAccounts"

' initialisation des objets
Set oRe = New RegExp: oRe.Pattern = "d{8}"
Set oReg = GetObject ("winmgmts:/root/default:stdregprov")

' suppression des comptes
oReg.EnumKey HKCU, SUBKEY, arrKeys
For Each strKey In arrKeys
If oRe.Test (strKey) Then
oReg.DeleteKey HKCU, SUBKEY & "" & strKey
End If
Next
--- Coupez ici : RemoveOutlookAccounts.vbs ---

--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr




Publicité
Poster une réponse
Anonyme