Deployer un script VB

Version imprimable

24/10/2013, 11h07
Patrick.boez

Deployer un script VB

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

:salut:
Une piste :

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
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
'*****************************************************************************************************

25/10/2013, 11h28
Patrick.boez

Suite de mon besoin en VBScript

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

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

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
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
'*****************************************************************************************************