'Script que l'on peut placer dans le répertoire Netlogon des DC par exemple. Exemple d'emplacement du partage Netlogon sur un DC
'C:\Windows\SYSVOL\sysvol\NomDomaine\SCRIPTS

Dim MyCommand
Dim WSHShell, MonExe, PIDMonExe

Set WSHShell = CreateObject("WScript.Shell")

On Error Resume Next

MyCommand = "Net Use I: /Delete"
WSHShell.Run MyCommand

MyCommand = "Start Net Use J: /Delete"
WSHShell.Run MyCommand

WScript.Sleep 500 'Attente de 0,5 secondes

MyCommand = "cmd /c start Net Use I: ""\\NomServeur\NomPartage 01"""
WSHShell.Run MyCommand

MyCommand = "cmd /c Start Net Use J: ""\\NomServeur\NomPartage 02"""
WSHShell.Run MyCommand

Set WSHShell = Nothing