Appuyer sur "Entrée" pour passer au contenu

Tous les articles marqués “vbs”

Résoudre les problèmes de profil temporaire sur les bureaux à distance RDS/TSE

0

Pour des raisons multiples et souvent inconnus, les utilisateurs se retrouvent connecter à leur session sur un profil temporaire. L’utilisateur ne retrouve pas ses paramètres et notamment le profil Outlook. Tout ce qui est stocké dans le dossier C:\Users\TEMP n’est pas sauvegardé à leur fermeture de session. Si vous appliquez une GPO de redirection de dossier (bureau/documents…), les fichiers et…

Mappage imprimante : GPO et Script

0

Présentation Lors de la mise en place d’un annuaire Active Directory, l’une des choses que l’on souhaite mettre en place automatiquement est le mappage imprimante aux différents utilisateurs. Avant de mettre en place les GPO, vous devez avoir partagé vos imprimantes. Mise en œuvre du mappage imprimante Comment pour le mappage des lecteurs réseaux, je vais vous présenter deux façons…

Mappage lecteur réseau : GPO et Script

0

Présentation Lors de la mise en place d’un annuaire Active Directory, l’une des premières chose que l’on souhaite mettre et le mappage automatique de lecteur réseau aux différents utilisateurs. Pour rappel, un lecteur réseau est un partage présenté à un poste/utilisateur sous la forme d’une lettre comme un disque dur/clef usb…. Mise en œuvre du mappage lecteur réseau Dans ce…

Alerter les utilisateurs du changement de leur mot de passe

2

Le script VBS suivant permet d’afficher à l’ouverture de session une alerte aux utilisateurs en leur indiquant que le mot de passe expire bientôt. Le script ' Days before to alert user QtDiasAviso = 7 RedirectRdWeb = true UrlRDWEB = "https://monserveur/RDWeb/Pages/fr-FR/password.aspx" Message_alert = "" Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000 Set oTranslate = CreateObject("NameTranslate") Set oNetwork = CreateObject("WScript.Network") Set wshell = WScript.CreateObject("WScript.Shell")…

Supprimer toutes les imprimantes réseaux d’un poste

0

Ce script vous permet de supprimer toutes les imprimantes réseaux sur un poste/serveur. ' ' RDR REMOVE NETWORK PRINTER ' ' ' Dim strComputer strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colInstalledPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer") Set WshNetwork = WScript.CreateObject("WScript.Network") 'msgbox "open script" ' Boucle sur les imprimantes For Each objPrinter in colInstalledPrinters…