Discussion :

[popofpopof]

bonjour

j'ai crée ce fichier VBS

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
'####################################################################
'#  Permet l'installation d'une bdd d'un réseau vers user connectés #
'####################################################################
 
'instance
Set fso = CreateObject("Scripting.FileSystemObject")
Set net = CreateObject("Wscript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")
 
'Test si fichier éxistant sur serveur.
If fso.FileExists ("\\Serveurxp\Dossiers Groupe SAINT-AGNE\SAINT-AGNE PROMOTION\ACCESBASESTAGNE\mise a jour base\saisie base APPSA.mdb") 			Then
 
    'Copie du Fichier du serveur vers le pc utilisateurs
		fso.CopyFile "\\Serveurxp\Dossiers Groupe SAINT-AGNE\SAINT-AGNE PROMOTION\ACCESBASESTAGNE\mise a jour base\saisie base APPSA.mdb","C:\access pc\"
		fso.CopyFile "\\Serveurxp\Dossiers Groupe SAINT-AGNE\SAINT-AGNE PROMOTION\ACCESBASESTAGNE\mise a jour base\publipostage.mdb","C:\access pc\"
		fso.CopyFile "\\Serveurxp\Dossiers Groupe SAINT-AGNE\SAINT-AGNE PROMOTION\ACCESBASESTAGNE\mise a jour base\Sécurité.mdw","C:\access pc\"
		fso.CopyFile "\\Serveurxp\Dossiers Groupe SAINT-AGNE\SAINT-AGNE PROMOTION\ACCESBASESTAGNE\mise a jour base\evenement_ribbon.XML","C:\access pc\"
		fso.CopyFile "\\Serveurxp\Dossiers Groupe SAINT-AGNE\SAINT-AGNE PROMOTION\ACCESBASESTAGNE\mise a jour base\modification base.txt","C:\access pc\"
	msgbox "mise à jour terminée"
 
 
WshShell.Run """C:\Program Files\Microsoft Office\Office12\MSACCESS.EXE"" ""C:\access pc\saisie base APPSA.mdb"" /WRKGRP ""C:\access pc\Sécurité.mdw"""
 
 
 
Else
 
    'Avertissement si fichier non éxistant
    msgbox "Problème rencontré lors de la connexion au serveur.", vbExclamation, "Mise à Jour"
 
End If

Mon probleme est que sous windows XP quand on clique sur le fichier VBS il nous demande ci on est sur de vouloir exécuté ce programme et on est obliger de clique sur exécute pour continue ensuite il nous demande si connai l'éditeur et ci on accept de l'ouvrir.

Donc je voudrai evite ce deux clique et le rentre invisible pour l'utilisateur comment faire???

[ced600]

Je pense qu'il faut résoudre cela au niveau du système d'exploitation.
C'est peut être dans les règles de sécurités.

[popofpopof]

quel sont ces réglage?? je ne sais comment faire aide moi stp

[ced600]

Je ne sais pas quels sont les regles de securtes à modifier , desole

[RadPAT]

Salut popofpopof

si tu demandes à ton admin systeme de changer les GPO pour que les VBS puissent passer, il risque la crise cardiaque !!
Je crois que le plus simple pour toi si tu dois lancer ton script occasionnellement est de 'executer en ligne de commande :

Code :

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

1
2
 
cmd /c cscript.exe MonPgm.vbs

et hop la sécurité....

A+

[ced600]

pas con .
Et en mettant cette ligne de commande dans un fichier .bat ? Peut être que windows ne dira rien quand à l'exécution du .bat .