Discussion :

[Patrick.boez]

Bonjour a tous

Qui peux m'aider a déployer un script pour .......

Récupérer les 2 derniers caractères du mon de la machine....
exemple: C22-INFO-12

et placer sur le bureau de la machine 'C22-INFO-12' le raccourci d'une application....
exemple: \\srv\applications\test\testPRG12.ods

Merci

[hackoofr]

Une piste :

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
Titre ="Raccourci sur le Bureau"
NomMachine = "C22-INFO-12"
MonTableau = Split(NomMachine,"-")
MonDernierElement = MonTableau(UBound(MonTableau))
MsgBox MonTableau(UBound(MonTableau)),64,Titre
Path = "\\srv\applications\test\testPRG"&MonDernierElement&".ods" 
MsgBox Path,64,Titre
Call Shortcut(Path,"MonNom")
'*****************************************************************************************************
Sub Shortcut(CheminApplication,Nom)
	Dim objShell,DesktopFolder,objShortCut,MyTab
	Set objShell = CreateObject("WScript.Shell")
	MyTab = Split(CheminApplication,"\")
	Nom = MyTab(UBound(MyTab))
	DesktopFolder = objShell.SpecialFolders("Desktop")
	Set objShortCut = objShell.CreateShortcut(DesktopFolder & "\" & Nom & ".lnk")
	objShortCut.TargetPath = Dblquote(CheminApplication)
	ObjShortCut.IconLocation = "Winver.exe,0"
	objShortCut.Save
	MsgBox "Le Raccourci " & Dblquote(Nom) & " est crée avec succès sur le Bureau !",64,Titre
End Sub
'*****************************************************************************************************
Function DblQuote(Str)
	DblQuote = Chr(34) & Str & Chr(34)
End Function
'*****************************************************************************************************

[Patrick.boez]

Bonjour, et merci a Mehdi pour la précédente réponse

Je pense que j'ai manqué de précision dans la description de mon besoin.

J'ai une vingtaine de postes, soit C22-INFO-01......à C22-INFO-20 et j'ai également une vingtaine d'applications TestPRG01.ods.....TestPRG20.ods

Je dois associer le poste a l'application au log-in de la machine, en plaçant un raccourci sur le bureau.

donc, exemple, au login de la machine 'C22-INFO-12' je dois retrouver sur le bureau de cette dernière, un raccourci de l'application 'TestPRG12.ods' qui se trouve sur le serveur a l'emplacement \\srv\applications\test.

La seconde partie de la routine fournie par Mehdi me semble parfaite, il me reste donc a pouvoir identifier le machine qui se logue pour faire l'association

Également, qui peux me conseiller un bon tuto pour le VBScript ?

Merci a tous

[hackoofr]

Si vous postiez un problème sans détails, vous recevez bien sur une réponse manquante
Par contre, si vous expliquiez bien votre problème en détails, vous aurez bien sûr une meilleure réponse

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
Titre ="Raccourci sur le Bureau"
Set WshNetwork = WScript.CreateObject("WScript.Network")
NomMachine = WshNetwork.ComputerName
NomUtilisateur = WshNetwork.UserName
MonTableau = Split(NomMachine,"-")
MonDernierElement = MonTableau(UBound(MonTableau))
MsgBox MonTableau(UBound(MonTableau)),64,Titre
Path = "\\srv\applications\test\testPRG"&MonDernierElement&".ods" 
MsgBox Path,64,Titre
Call Shortcut(Path,"MonNom")
'*****************************************************************************************************
Sub Shortcut(CheminApplication,Nom)
    Dim objShell,DesktopFolder,objShortCut,MyTab
    Set objShell = CreateObject("WScript.Shell")
    MyTab = Split(CheminApplication,"\")
    Nom = MyTab(UBound(MyTab))
    DesktopFolder = objShell.SpecialFolders("Desktop")
    Set objShortCut = objShell.CreateShortcut(DesktopFolder & "\" & Nom & ".lnk")
    objShortCut.TargetPath = Dblquote(CheminApplication)
    ObjShortCut.IconLocation = "Winver.exe,0"
    objShortCut.Save
    MsgBox "Le Raccourci " & Dblquote(Nom) & " est crée avec succès sur le Bureau !",64,Titre
End Sub
'*****************************************************************************************************
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'*****************************************************************************************************