Question sur un script qui ajoute un profil Outlook

Marsh Posté le 24-05-2012 à 17:19:09

Bonjour,

J'utilise ce script pour ajouter les profils outlook automatiquement mais je ne comprend pas la Subroutine "CleanUp".
Quelqu'un pourrait-il m'éclairer ?

Merci d'avance.

Code :

' =========================================
'Début SubRoutine ProfilOutlook
' =========================================
Sub ProfilOutlook
Dim Company, PRFLocation, ProfileName
'Information PRF
Company = "Leasecom" 'Nom de la société
PRFLocation = "\\srv-fic\netlogon\FichiersScript\ProfilOutlook.prf" 'Emplacement du PRF
ProfileName = "Outlook" 'Nom du profil pour Outlook
'Création des variables
Set WshShell = CreateObject("WScript.Shell" )
Set WshNetwork = Wscript.CreateObject("Wscript.Network" )
Set fso = CreateObject("Scripting.FileSystemObject" )
Set ObjEnv = WshShell.Environment("Process" )
Set objShell = CreateObject("Shell.Application" )
Set objSysInfo = CreateObject("ADSystemInfo" )
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
Const HKEY_CURRENT_USER = &H80000001
'Déclaration des variables
Dim HKCUfirstRunflag
HKCUfirstRunflag = "HKCU\Software\" & Company & "\FirstRunFlag"
Dim HKCUprofile
HKCUprofile = "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\" & ProfileName
Dim WshShell, WshNetwork, objEnv, fso, objShell, username, key, FirstRunCurrentUser, MSOKey, NoProfile, OfficeInstalled, strUserName, strInitials
Dim strOfficePath, strMachineName, objSysInfo, objUser
Dim objWord, LogonSrv, PRFPath, result, OSnummer, objWMIService, colOperatingSystems, objOperatingSystem
strOfficePath = "Software\Microsoft\Office\11.0\Common\UserInfo" 'Path for office user info
strMachineName = "."
'Test pour savoir si le script à déjà été lancé
TestfirstRunUser
If FirstRunCurrentUser then
TestProfile
If NoProfile then
OutlookSetup
End if
End if
' Ajout d'une clé dans le registre si le script s'est lancé correctement
WshShell.RegWrite HKCUfirstrunflag, "1", "REG_DWORD"
CleanUp
'SubRoutine pour tester si c'est le premier lancement pour cet utilisateur
Sub TestFirstRunUser
on error resume next
key = WshShell.RegRead(HKCUfirstRunflag)
If Err <> 0 Then
FirstRunCurrentUser = True
Else
FirstRunCurrentUser = False
End If
On Error Goto 0
End Sub
'SubRoutine pour tester si le profil existe
Sub TestProfile
on error resume next
MSOKey = WshShell.RegRead(HKCUprofile)
If MSOKey = "" Then
NoProfile = True
else
NoProfile = False
end if
On Error Goto 0
End sub
'SubRoutine pour lancer l'ajout du profil
Sub OutlookSetup
WshShell.Run "outlook.exe /importprf " & PRFLocation, 1, False
End Sub
'SubRoutine pour vider les variables
Sub CleanUp
Set WshNetwork = Nothing
Set objSysInfo = Nothing
Set WshShell = Nothing
Set fso = Nothing
Set ObjEnv = Nothing
Set objShell = Nothing
Set objUser = Nothing
Set objWord = Nothing
Set objWMIService = Nothing
Set colOperatingSystems = Nothing
Set objWord = Nothing
End Sub
End Sub
' =========================================
'Fin SubRoutine ProfilOutlook
' =========================================

Reply

Marsh Posté le 24-05-2012 à 17:19:09

Reply

Marsh Posté le 25-05-2012 à 07:35:43

Bonjour,
la routine CleanUp "supprime" tous les objets (= Nothing).
C'est le pendant de la commande Set MonObjet = Qqch qui lui le "créé".

Ca sert à libérer la mémoire allouée à chaque objet avant la fin du code.

---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"- Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1

Reply

Question sur un script qui ajoute un profil Outlook

Sujets relatifs:

Leave a Replay