Discussion :

[lordsamael]

Bonjour a Tous

je viens soliciter votre etant aussi developpeur qu'un elephant est léger

je cherche a faire un shortcut par repertoire reseau avec comme argument "Chemin UNC du repertoire"

pour l'instant j'ai ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'Create a WshShell Object
Set WshShell = Wscript.CreateObject("Wscript.Shell")
 
'Create a WshShortcut Object
Set oShellLink = WshShell.CreateShortcut("NOM DU RACCOURCI.lnk")
 
'Set the Target Path for the shortcut
oShellLink.TargetPath = "CHEMIN UNC DE L'EXE"
 
oShellLink.Arguments = """" + WshShell.CurrentDirectory + """"
 
oShellLink.WorkingDirectory = "CHEMIN UNC DU REPERTOIRE CONTENANT L'EXE"
 
'Save the shortcut
oShellLink.Save
 
'Clean up the WshShortcut Object
Set oShellLink = Nothing

ça me donne presque ce que je veux mais en argument j'ai le chemin reseau et pas le chemin UNC

si déja ce probleme peut etre resolu ça m'aidera

cerise sur le gateau :

comme je dois créer ce raccourci sur les 160 Repértoires reseaux je pense qu'il est possible de passer des variables comme les chemin UNC des repertoires via un fichier TXT mais la c'est un poil plus baleze

Merci pour votre aide

[ced600]

Comme je suis aussi expert réseau qu'un éléphant est léger , je te pose cette question :
C'est quoi un chemin UNC ?

comme je dois créer ce raccourci sur les 160 Repértoires reseaux je pense qu'il est possible de passer des variables comme les chemin UNC des repertoires via un fichier TXT mais la c'est un poil plus baleze

C'est possible et pas très compliqué, renseignes toi sur l'objet FileSystemObject, ou sur l'objet WMI CIM_DataFile.

[lordsamael]

Comme je suis aussi expert réseau qu'un éléphant est léger , je te pose cette question :
C'est quoi un chemin UNC ?

UNC c'est Universal Naming Convention

Plutôt que de spécifier une lettre de lecteur et un chemin d'accès, un nom UNC utilise la syntaxe "\\serveur\partage\chemin\nom_fichier" .

en gros

tu as un chemin du type

M:\Repertoire\sous Repertoire

le format UNC donne

\\NOM SERVEUR\Repertoire\sous Repertoire

[ced600]

Ok je connais le format, mais je ne connaissais pas le nom

Que se passe t il lorsque tu met en argument le chemin UNC ?

[lordsamael]

Ok je connais le format, mais je ne connaissais pas le nom

Que se passe t il lorsque tu met en argument le chemin UNC ?

ben ça marche sauf que je vaudrais que le script recupere la valeur du chemin unc suivant le lieu d'execution

[lordsamael]

j'avance mais c'est pas encore ça

lorsque j'execute ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Const ForReading = 1, ForWriting = 2 
Dim oFso, f
 
Set oFso = CreateObject("Scripting.FileSystemObject")
Set f = oFso.OpenTextFile("Chemin du txt", ForReading)
 
while Not f.AtEndOfStream 
 
 
'Create a WshShell Object
Set WshShell = Wscript.CreateObject("Wscript.Shell")
 
'Create a WshShortcut Object
Set oShellLink = WshShell.CreateShortcut(f.ReadLine+"\nom du shortcut")
 
'Set the Target Path for the shortcut
oShellLink.TargetPath = "chemin de l'exe"
 
oShellLink.Arguments = """" + f.ReadLine + """"
 
oShellLink.WorkingDirectory = "Repertoire execution"
 
'Save the shortcut
oShellLink.Save
 
'Clean up the WshShortcut Object
Set oShellLink = Nothing
 
Wend
 
f.Close

et bien il me crée un seul raccourci dans le premier chemin du fichier text avec comme argument la derniere ligne du fichier

alors que ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Const ForReading = 1, ForWriting = 2 
Dim oFso, f
 
  Set oFso = CreateObject("Scripting.FileSystemObject")
  Set f = oFso.OpenTextFile("c:\tmp\fichier1.txt", ForReading)
  while Not f.AtEndOfStream 
     wscript.echo f.ReadLine
  Wend
  f.Close

ça me retourne bien les valeurs lignes par lignes du fichiers txt

c'est louche non ?