Extrait de mes fichiers de log utilisateur en vbs
Ces lignes permettent de créer un raccourci sur le bureau pointant vers w: et portant le nom de l'utilisateur.
Code :
- Set WshNetwork = WScript.CreateObject("WScript.Network" )
- user = WshNetwork.UserName
- Bureau = WSHShell.SpecialFolders("Desktop" )
- Set MyShortcut = WSHShell.CreateShortcut(Bureau & "\" & user & ".lnk" )
- MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("W:\" )
- MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("" )
- MyShortcut.Save
|
Pour créer un lecteur vers W:
Code :
- WshNetwork.RemoveNetworkDrive "W:"
- WScript.Sleep 2000
- WshNetwork.MapNetworkDrive "W:", cheminUNC_du_dossier_cible
|
Ne pas hésiter à consulter le technet de microsoft et de télécharger le script_repository ( tous les exemples en vbs ).