Raccourci generer via VBS

Version imprimable

Bonjour a Tous

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

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

pour l'instant j'ai ça
Code:

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

08/08/2007, 11h51
ced600

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

Citation:

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.
08/08/2007, 11h57
lordsamael

Citation:

Envoyé par ced600

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

:lol:

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
08/08/2007, 12h03
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 ?
08/08/2007, 14h11
lordsamael

Citation:

Envoyé par 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 ?

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

j'avance mais c'est pas encore ça

lorsque j'execute ça

Code:

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 8O

alors que ça

Code:

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 ?

09/08/2007, 15h04
lordsamael

bon en farfouillant mon script marche je suis content :D

Merci pour ton aide et tes pistes mister ced600

question en sus : savez vous si on peut gerer les droits reseaux Novell via un script VBS ?

Encore Merci
09/08/2007, 15h28
ced600

De rien, je ne suis pas sur d'avoir été d'un grand secours.
N'oublie pas de mettre le tag résolu si ton problème est résolu.
Je ne sais pas pour les droits réseaux Novell (je sais meme pas ce que c'est), mais en tout cas ici tu as de l'aide sur la gestion du reseaux avec WMI :
http://msdn2.microsoft.com/en-us/library/aa394595.aspx
09/08/2007, 15h30
lordsamael

Citation:

Envoyé par ced600

De rien, je ne suis pas sur d'avoir été d'un grand secours.
N'oublie pas de mettre le tag résolu si ton problème est résolu.
Je ne sais pas pour les droits réseaux Novell (je sais meme pas ce que c'est), mais en tout cas ici tu as de l'aide sur la gestion du reseaux avec WMI :
http://msdn2.microsoft.com/en-us/library/aa394595.aspx

si si tes pistes furent d'une grande aide

Thx