Discussion :

[moha31005]

Bonjour

Je voulais parfois exécuter quelques taches uniquement sur le serveur, par exemple la fonction HModifieStructure() vu que la base de donnée existe sur le serveur et ne sera plus se lancer depuis les postes clients.

Pour cela je dois tester sur le nom de la machine en renommant le serveur par exemple "Server"

Code :

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

1
2
3
SI NetNomMachine()="server" ALORS
HModifieStructure()
FIN

Alors cette méthode m'exige de renommer chaque serveur par nom : "Server" de chaque nouveau client ce qui est pas pratique.
Je vous demande si vous avez une autre méthode.

Merci de votre aide

[tatayo]

Bonjour,
Il suffit de mettre le nom en question dans un fichier ini.

Tatayo.

[moha31005]

Bonjour,
Il suffit de mettre le nom en question dans un fichier ini.

Tatayo.

Merci tatayo

Mais toujours je dois donner le même nom a chaque nouveau client et à chaque nouvelle installation n'est ce pas?

[tatayo]

Non, le client doit mettre dans ce fichier ini le nom de la machine qui peut lancer cette modification.

Sinon à quoi bon mettre le nom de la machine dans un fichier ini ?

Tatayo.

[zouzoukha]

Salut,

Prérequis : Le service hyperfile n'est installé que sur mon serveur !

Je procède en recherchant la liste des services en cours sur la machine.
Si j'y retrouve le service hyperfile (donc c'est mon serveur)

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
// Liste les services
lsServiceListe est chaîne
lsService est chaîne
llServiceInd est entier
sListeService est une chaîne
 
lsServiceListe = ServiceListe()
SI lsServiceListe <> "" ALORS
	// Traite le résultat pour l'ajouter dans la table
	llServiceInd = 1
	BOUCLE
		lsService = ExtraitChaîne(lsServiceListe, llServiceInd, RC)
		SI lsService DANS ("", EOT) ALORS SORTIR
		//Hyper File Server : Serveur-Zouzoukha<TAB>Hyper File Server : Serveur-Zouzoukha
		SI ChaîneOccurrence(lsService,"Hyper File Server")>0 ALORS
			gsDosServiceHF = ExtraitChaîne(lsService,1,TAB)
		FIN
		sListeService+=lsService+RC
		llServiceInd++
	FIN 
SINON 
	Erreur(ErreurInfo(errComplet))
FIN
 
SI ChaîneOccurrence(sListeService,"Hyper File Server")>0 ALORS
   //Hyper File Server - BINGO - on execute wdmodif
FIN

Bon DEV

[moha31005]

Merci de votre retour

C'est une bonne idée, je vais la tester.