Eysinem | 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
- ' =========================================
|
|