[R] Ouvrir un lecteur logique en fonction de son ip

[niaque]

Bonjour à tous et toutes,

En général, en cherchant sur les posts j'ai jusqu'ici trouvé les réponses à mes problèmes.
Mais là

Je voudrais ouvrir un lecteur logique sur un serveur en fonction de l'adresse ip de la machine, il s'agit d'un réseau d'entreprise
par exemple:

si l'ip du pc est 11.11.12.28, alors ouvre sur le serveur le lecteur t:\\11.11.12.249\partage
si l'ip du pc est 11.11.13.28, alors ouvre sur le serveur le lecteur t:\\11.11.13.249\partage
si l'ip du pc est 11.11.14.28, alors ouvre sur le serveur le lecteur t:\\11.11.14.249\partage

et ainsi de suite

Les adresses ip commenceront toujours par les mêmes chiffres (ici 11.11........)

j'arrive a obtenir l'adresse ip de la machine, à l'afficher, mais après je sais pas quoi en faire !

Merci à vous

[Davyly]

Bonjour,

Avant que Tlem passe par ici et te parle de la "balise de titre", pense à prendre le temps de lire les règles de présentation d'un message.

Sinon pour répondre à ta demande, ces deux lignes devrait faire l'affaire.

Code : Tout sélectionner

$ip = StringSplit(@IPAddress1, ".")
DriveMapAdd("T:", "\\11.11." & $ip[3] & ".249\Partage")

Bonne journée.

[niaque]

bonjour Davyly

ça marche impeccable pour les sites avec 1 plage d'ip !!

par contre j'y avais pas pensé, mais sur un site, j'ai deux plages d'ip
exemple:
11.11.98. ..... et 11.11.99. ......
le partage est seulement sur \\11.11.99.249\partage
du coup la machine 11.11.98.98 peut pas faire monter le partage

Tu aurais une idée ?

merci beaucoup

[Davyly]

A partir de là, la réponse n'est pas évidente car tout dépend de la configuration des postes de ton parc, et du réseau. Le poste possède t'il une deuxième carte réseau ? Ou est-ce une adresse IP ajouté sur la première carte ?

Sinon en repartant de mon premier exemple :

Code : Tout sélectionner

ip = StringSplit(@IPAddress1, ".")
DriveMapAdd("T:", "\\11.11." & $ip[3] & ".249\Partage")
If @IPAddress2 <> "0.0.0.0" Then
    $ip = StringSplit(@IPAddress2, ".")
    DriveMapAdd("U:", "\\11.11." & $ip[3] & ".249\Partage")
EndIf
 

Ensuite adapte à ton environnement.

Tu peux aussi ajouter un contrôle avant le "DriveMapAdd" avec un "Ping" ou un "FileExists". Exemple :

Code : Tout sélectionner

If FileExists("\\11.11." & $ip[3] & ".249\Partage") Then DriveMapAdd("T:", "\\11.11." & $ip[3] & ".249\Partage")

Et si cela ne répond pas, décris nous la configuration réseau d'un PC (carte réseau), du réseau et des serveurs ...

Bon après midi.

[niaque]

Salut

alors j'ai fait un mix de plusieurs choses trouvées de ci de la, et ça fonctionne :

► Afficher le texte

Code : Tout sélectionner

;===============================================================================
; Ouverture lecteur logique pour ip 11.11.98.......
;===============================================================================
$ipokt = StringSplit (@IPAddress1, ".", 2)
If Number ($ipokt [2]) > 97 < 99 Then
   DriveMapAdd("t:", "\\11.11.99.249\partage")
;===============================================================================
; Ouverture lecteur logique pour autres Ip
;===============================================================================
 If FileExists("t:\oOo\setup\openofficeorg31") Then
exit
endif
else
$ip = StringSplit(@IPAddress2, ".")
DriveMapAdd("T:", "\\11.11." & $ip[3] & ".249\partage")
EndIf

je précise que j'ai pas fait expres , mais pour moi ça fonctionne comme je le voulais.
Le code est peut etre pas très "catholique" pour les experts, désolé

encore merci à tous
a+