Discussion :

[Tetzor]

Hop, bonjour à tous c'est re-moi pour finaliser le script ^^

je viens de m'appercevoir (grrr) que pour que mon script marche à la perfection il faut que l'utilisateur lambda puisse écrire dans le registre. Il parait que c'est possible alors je viens vers vous pour savoir si vous connaissez la méthode.

Voilà la partie qui écrit dans le registre en tant qu'utilisateur :

Code :

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

1
2
3
4
5
' Modification du chemin contenant la signature dans la base de registre basée sur la version d'outlook
'----------------------------------------------------------------------
 
RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\"&OutlookVer&".0\Common\General\Signatures"
objShell.RegWrite RegKey , StrSignatureName

merci à vous ^^

[Tetzor]

bon, en fait, c'est bon, l'écriture dans le registre se fait sans rien, c'est simplement un truc que je comprends pas :

dans le 1er script "Interne.vbs" il doit executer "Externe.vbs" à la fin pratiquement :

Code :

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

1
2
        Set wshell = CreateObject("WScript.Shell")
somelong = wshell.Run("wscript " + "Externe.vbs", 1, True)

mais, ca ne marche qu'en admin, lorsque que je me mets sur une session d'utilisateur X, le script s'arrête à l'exe d'Externe.vbs qui ne lance pas, par contre, si je vais lancer les 2 scripts un par un, ca marche ...

J'ai essayé de mettre le chemin entier du script Externe.vbs sur le serveur, mais ca ne marche pas non plus :

Code :

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

1
2
Set wshell = CreateObject("WScript.Shell")
somelong = wshell.Run("wscript " + "\\mairie3\SYSVOL\ville-saintjeandelaruelle.fr\scripts\Externe.vbs", 1, True)

et là aussi il faut exe un par un, donc si quelqu'un à une solution pour qu'Interne.vbs puisse exe Externe.vbs sur une session d'utilisateur X je suis preneur car là je tourne en rond je ne vois pas ou ca bug

merci à vous ^^

[ced600]

En VBS la concaténation des chaines de caractères se fait avec & et non +

[Tetzor]

ok pour la chaine, mais en admin ca marche ^^

alors maintenant que le reste en haut marche, il ne me reste que cela : je perds un peu mon latin et je nage et je touche au but alors ca m'enerve un peu ;p

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
 
Set filesys = CreateObject("Scripting.FileSystemObject")
 
le_chemin_du_fichier = "C:\Temp\mjsr.bmp"
 
if filesys.FileExists ("C:\Temp\mjsr.bmp") then
 
' Il existe donc.....
 
Else
 
End if
 
' Il n'existe pas, alors...
 
else
 
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.GetFile("\\mairie3\SYSVOL\ville-saintjeandelaruelle.fr\scripts\msjr.bmp")
MonFic.Copy "C:\Temp\msjr.bmp", True
 
end if

j'explique ce que je veux faire, je veux que le script check l'existence d'un fichier, s'il existe il faut qu'il check le fichier source sur le serveur local, et si le fichier qui existe diffère il faut qu'il copie le fichier source.

Si le fichier est le même que le fichier source du serveur il ne se passe rien.

Si le fichier n'existe pas, alors il le copie.

Ma dernière ligne, il copie le fichier quoi qu'il se passe (qu'il existe ou pas) ce qui n'est pas forcement top au niveau d'utilisation dans le réseau, je ne veux pas qu'il copie tous les matins le fichier si les attributs sont les mêmes. Enfin voilà, je fais limite de la chirurgie ce qui n'est pas forcément bien je pense ^^

[ProgElecT]

Mauvaise imbrication de tes If ... Then, un End If de trop.

[ced600]

Rappelle rapide :

Code :

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

1
2
3
4
5
6
If Condition Then
    'Si la condition est vrais, faire le code suivant
Else
    'Sinon faire cela
End If 'Marque la fin du If, aussi indispensable que le If et le Then
'Par contre le Else est optionnel.

L'utilisation des Else If :

Code :

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

1
2
3
4
5
6
7
8
9
10
If Condition Then
   'code
Else If Condition Then
   'code
Else If Condition Then
   'code
Else
   'Toujours optionnel
   'code
End If