Message d'erreur après application script lecteurs réseau

Bonjour à tous,

Après avoir appliqué par GPO un script vbs d'affichage des raccourcis vers les lecteurs réseau P et Q sur le bureau de mes users, j'obtiens un message d'erreur concernant MicrosoftOfficeHub. Je ne sais pas s'il y a relation de cause à effet mais ce message est apparu après l'application du script vbs.

Script :
'////////////////////////////////////////////////////////////////
'Génération de raccourcis vers P: et Q: dans le bureau
'(C) KoXo Dev. 2006-2012
Shortcut GetDesktop & "\Espace personnel.lnk","Espace personnel","CTRL+ALT+SHIFT+H","P:"
Shortcut GetDesktop & "\Espace de groupe.lnk","Espace de groupe","CTRL+ALT+SHIFT+G","Q:"
'////////////////////////////////////////////////////////////////
'// Get "Desktop"
Function GetDesktop()
 Dim objShell
 Set objShell=CreateObject("WScript.Shell")
 GetDesktop=objShell.SpecialFolders("Desktop")
End Function
'////////////////////////////////////////////////////////////////
'// Make shortcut
Function Shortcut(FilePath,Description,HotKey,TargetPath)
 Dim objLink, objShell
 Set objShell=CreateObject("WScript.Shell")
 Set objLink=objShell.CreateShortcut(FilePath)
 objLink.Description=Description
 objLink.HotKey=Hotkey
 objLink.TargetPath=TargetPath
 objLink.WindowStyle=3
 objLink.Save   
End Function
'////////////////////////////////////////////////////////////////

Message d'erreur : voir capture d'écran.

Je précise que j'avais obtenu le script ici sur le forum et visiblement celui-ci fonctionne correctement puisque les raccourcis s'affichent.

Frank.
 

Bonjour,
Probablement que les lecteurs n'exitaient pas ou n'existent pas au moment où le script a été lancé.
Ce script n'est aps diffusé avec KoXo Admin.
Cdt
Le support