redirection du bureau

[syquest]

Bonjour a tous,

A propos de la redirection du bureau via les gpo..
J'ai mis en place pour test un redirection du bureau..rajout d'icones en fonctions de l'appartenance a un groupe pour l'tuilisateur.
Cela fonctionne correctement, les icones apparraissent bien sur le bureau de l'utilisateur en fonction de son groupe...
Les soucis:

Lorsque j'enleve la gpo les icones ne disparaissent pas...comment faire pour les faire dispariatre lorsque la gpo ne s'applique plus?
D'autre part est il possible de rajouter des icones sur le bureau d'un utilisateur qui appartient a des groupes differents via une gpo ?

Merci.

[thorvdr]

salut,

Lorsque j'enleve la gpo les icones ne disparaissent pas...comment faire pour les faire dispariatre lorsque la gpo ne s'applique plus?

=>tu mets en place des "profils itinérants" ???


D'autre part est il possible de rajouter des icones sur le bureau d'un utilisateur qui appartient a des groupes differents via une gpo ?

=>quels types d'icônes ?? des raccourcis (*.lnk) ? tu peux le faire par script, aussi !

Merci.

@+

[nadir.amghar]

Bonjour,

J'ai eu la même problématique que toi et je l'ai gérer avec un script d'ouverture de session et et autre script de fermeture de session et tout se passe bien :

script ouverture de session

On Error Resume Next

Dim oNet, sUserName, sUserDomain, oAcct, sGroup, GroupObj

Set oNet = CreateObject("WScript.Network")

sUserName = oNet.UserName
sUserDomain = oNet.UserDomain

Set oAcct = GetObject("WinNT://" & sUserDomain & "/" & sUserName)

For Each GroupObj In oAcct.Groups
Select Case GroupObj.Name
Case "app contentieux"
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\contentieux.lnk")
oShellLink.Arguments = "g:\applic\sdc\sdc8.mdb"
oShellLink.TargetPath = "g:\prog\access2\msarn200.exe"
oShellLink.WindowStyle = 3
oShellLink.Hotkey = ""
oShellLink.IconLocation = "\\si01s00002\menuxp\base\msarn200.exe"
oShellLink.Description = "suivi du contentieux"
oShellLink.WorkingDirectory = "g:\prog\access2\workdir"
oShellLink.Save
Set oShellLink = Nothing
Case "app courrier"
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\courrier.lnk")
oShellLink.Arguments = "g:\applic\courrier\courrier.mdb"
oShellLink.TargetPath = "g:\prog\access2\msarn200.exe"
oShellLink.WindowStyle = 3
oShellLink.Hotkey = ""
oShellLink.IconLocation = "\\si01s00002\menuxp\base\msarn200.exe"
oShellLink.Description = "suivi du courrier"
oShellLink.WorkingDirectory = "g:\prog\access2\workdir"
oShellLink.Save
Set oShellLink = Nothing




End Select
Next



script de fermeture de session

On Error Resume Next

Dim oNet, sUserName, sUserDomain, oAcct, sGroup, GroupObj, FSO

Set oNet = CreateObject("WScript.Network")


Set Shell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
DesktopPath = Shell.SpecialFolders("Desktop")
FSO.DeleteFile DesktopPath & "\contentieux.lnk"

Set Shell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
DesktopPath = Shell.SpecialFolders("Desktop")
FSO.DeleteFile DesktopPath & "\courrier.lnk"

J'espère que ça t'aidera

cordialement