Etat du script: Fonctionnel
Présentation:
Le script:
'Verrouillage bureau utilisateur et déploiement application 'Version 1.1 20120424 by Clockover ''''' FONCTION ''''' 'Vérifier si un utilisateur est membre d'un groupe Function IsMember (strGroup) Set oGroup = GetObject ("WinNT://" & WshNetwork.UserDomain & "/" & strGroup) IsMember = oGroup.IsMember ("WinNT://" & WshNetwork.UserDomain & "/" & WshNetWork.UserName) End Function ''''' MAIN ''''' On Error Resume Next set WshShell = WScript.CreateObject("WScript.Shell") set WshFSO = WScript.CreateObject("Scripting.FileSystemObject") Set WshNetwork = CreateObject ("WScript.Network") 'Déverrouiller le bureau pour procéder aux modifications WshShell.Run "\\domain.suffix\SysVol\domain.suffix\scripts\setacl.exe -on %userprofile%\Desktop -ot file -actn ace -ace n:%username%;p:add_file,add_subdir,del_child,delete;s:n;i:so,sc;m:grant;w:dacl", 0 'Petite pause pour que Setacl.exe est le temps d'appliquer les changements NTFS wscript.sleep(2000) 'Ajouter le raccourci de Outlook 2010 strPath = WshShell.SpecialFolders("Desktop") & "\Microsoft Outlook 2010.lnk" Set oShellLink = WshShell.CreateShortcut(strPath) oShellLink.TargetPath = "C:\Program Files\Microsoft Office\Office14\Outlook.exe" oShellLink.Save 'Ajouter le raccourci d'une application spécifique si l'utilisateur est membre du groupe nommé "Groupe_AD" (suppression sinon) strPath = WshShell.SpecialFolders("Desktop") & "\Application diverse.lnk" WshFSO.DeleteFile strPath if isMember("Groupe_AD") then Set oShellLink = WshShell.CreateShortcut(strPath) oShellLink.TargetPath = "C:\Program Files (x86)\editeur\appli.exe" oShellLink.Save end if 'Verrouiller le bureau WshShell.Run "\\domain.suffix\SysVol\domain.suffix\scripts\setacl.exe -on %userprofile%\Desktop -ot file -actn ace -ace n:%username%;p:add_file,add_subdir,del_child,delete;s:n;i:so,sc;m:deny;w:dacl", 0
TODO Liste:
Historique:
Page générée en 0.007 secondes