Connecter un lecteur en fonction de l'ordinateur

Plus d'informations
il y a 10 ans 8 mois - il y a 10 ans 8 mois #471 par Admin KoXo
Connecter un lecteur en fonction de l'ordinateur a été créé par Admin KoXo
Voici un script qui permet de connecter un lecteur avec authentification en fonction du nom de l'ordinateur :
Code:
If ComputerNameBeginsWith("CDI") Then ConnectDrive2 "X:","\\MyServer\MyShare","Description de ma ressource","utilisateur","motdepasse" End If WScript.Quit '/////////////////////////////////////////////////////////// '// Check if the computer name begins with the given string '// RDP is supported Function ComputerNameBeginsWith(Name) Dim Computer, RDP Dim objNetwork, objShell Set objNetwork=WScript.CreateObject("WScript.Network") Set objShell=CreateObject("WScript.Shell") Computer=objShell.ExpandEnvironmentStrings("%CLIENTNAME%") RDP=(Computer<>"" And Computer<>"%CLIENTNAME%" And Computer<>"Console") If Not RDP Then Computer=objNetwork.ComputerName End If ComputerNameBeginsWith=(InStr(Computer,Name)=1) End Function '/////////////////////////////////////////////////////////// '// Connect a drive with credential function ConnectDrive2(Drive,Path,Description,User,Password) On Error Resume Next Dim objNetwork,oScriptShell Set objNetwork=WScript.CreateObject("WScript.Network") Set oScriptShell=CreateObject("WScript.Shell") Set oShell=CreateObject("Shell.Application") err.number=0 If User="" Then objNetwork.MapNetworkDrive Drive,Path Else objNetwork.MapNetworkDrive Drive,Path,False,User,Password End If If err.number<>0 Then oScriptShell.Popup "Connexion lecteur " & Drive & " (" & Path & ")" & VbCrLf & "Description=" & err.Description & VbCrLf & "Code=" & err.Number,5,"Erreur",64 Else oShell.NameSpace(Drive).Self.Name=Description End If end function

Cdt.

Le support
Dernière édition: il y a 10 ans 8 mois par Admin KoXo.

Connexion ou Créer un compte pour participer à la conversation.

Plus d'informations
il y a 8 ans 10 mois #1288 par Olivier HUMBERT
Réponse de Olivier HUMBERT sur le sujet Connecter un lecteur en fonction de l'ordinateur
si on veux l'appliquer a plusieurs salle exemple cdi salleXXX doit on faire 2 lignes ou peux t'on faire

If ComputerNameBeginsWith("CDI,SALLEXXX") The


Merci pour ce script

Connexion ou Créer un compte pour participer à la conversation.

Plus d'informations
il y a 8 ans 10 mois #1289 par Admin KoXo
Réponse de Admin KoXo sur le sujet Connecter un lecteur en fonction de l'ordinateur
Bonjour,

La fonction "ComputerNameBeginsWith" n'éclate pas la chaine passée, donc ce n'est pas bon.

Il faut soit refaire la fonction pour qu'elle gère plusieurs début de noms, soit recopier/coller les trois lignes plusieurs fois ou soit utiliser un opérateur logique "OU".

exemple :
Code:
If ComputerNameBeginsWith("PC") Or ComputerNameBeginsWith("F01") Then ConnectDrive2 "X:","\\MyServer\MyShare","Description de ma ressource","utilisateur","motdepasse" End If
Cdt

Le support
Les utilisateur(s) suivant ont remercié: Olivier HUMBERT

Connexion ou Créer un compte pour participer à la conversation.

Plus d'informations
il y a 1 an 7 mois #3913 par Olivier HUMBERT
Réponse de Olivier HUMBERT sur le sujet Connecter un lecteur en fonction de l'ordinateur
Je relance car le forum a dû perdre le message...

Pourriez-vous svp nous remettre le script pour un lecteur suivant l'ordinateur.

Et es ce possible avec ip de l'ordinateur ip ipadresss begin with 172.**

Connexion ou Créer un compte pour participer à la conversation.

Temps de génération de la page : 0.492 secondes