execution d'un script (excel) depuis serveur

**micka180** · 10/10/2007, 10h10

Bonjour,

mon script fait appel à de l'excel.
je dois l'executer depuis le serveur d'entreprise, mais voila l'oject excel ne peut pas etre créé car office n'est pas installé sur le serveur (normal).

ma question y a t'il une combine comme une DLL à placer ou autre chose pour povoir l'executer ?

Merci d'vance pour votre aide

**ced600** · 10/10/2007, 13h40

Je ne pense pas, je pense que tu es obligé de l'installer.
S'il y a une combien, tu la trouveras sur le site de microsoft.

**micka180** · 10/10/2007, 14h04

en utilisant un ADO et en convertissant le .xls en .CSV, penses tu que se soit realisable ?

**ced600** · 10/10/2007, 14h43

Je crois qu'il va falloir que tu explicites ce que tu veux dire par :

mon script fait appel à de l'excel.

**micka180** · 10/10/2007, 14h54

voila, le script doit tourner sur serveur win2003, il fait appel à un fichier .XLs situé sur un autre serveur.

le script scan des log et en fonction des logs il ouvre le fichier excel et ecrit une valeur à l'interieur.

voila un morceau de code pour ma methode de connexion.

Code :

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

1
2
3
4
Set xlapp = CreateObject("Excel.Application")  'créé une instance Excel
Set xlBook = xlapp.Workbooks.Open ("\\serveur\unite logique$\repertoire\fichier.xls") 'Ouverture du gestionnaire de feuilles Excel
Set xlSheet = xlBook.Sheets(tbmois(tbDate(1))) 'Positionnement sur la xlSheet du mois en cour
Set fso = CreateObject("Scripting.FileSystemObject") 'declaration de la creation d'un objet FSO

voici le message d'erreur qui m'est renvoyé

"un composant ActiveX ne peut pas créer un objet :"excel.application" "

l'erreur est positionnée ligne 25 soit

Code :

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

Set xlapp = CreateObject("Excel.Application")

**AlainTech** · 11/10/2007, 07h54

Envoyé par micka180

en utilisant un ADO et en convertissant le .xls en .CSV, penses tu que se soit realisable ?

Je pense qu'en utilisant ADO tu peux travailler sur des fichiers Excel pour autant qu'ils soient organisés comme des bases de données.

Il y a une contribution de SilkyRoad à ce sujet.
http://silkyroad.developpez.com/VBA/ClasseursFermes/

**micka180** · 11/10/2007, 10h50

je tente une connexion vias ado sur le fichier xls.

(je developpe sur Primalscript)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim cn as ADODB.Connection '(le as n'apparait pas en bleu chez moi)
Set cn = New ADODB.Connection
With cn
	.Provider = "Microsoft.Jet.OLEDB.4.0"
	.ConnectionString = "Data Source=D:\suivi bilan journalier.xls;" & _
"Extended Properties=Excel 8.0;"
	.Open
End With
 
 
strQuery = "SELECT * FROM [D:\suivi bilan journalier.xls$]"

et j'ai un retour d'erreur sur ma premiere ligne "Erreur de compilation Microsoft VBScript: Fin d'instruction attendue"

je ne comprend pas vraiment ce qu'attend le compilateur ?

**ced600** · 11/10/2007, 11h11

Code :

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

Dim cn as ADODB.Connection

Ce n'est pas du VBS, c'est du VB, en VBS :

Code :

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

Dim cn

Pour en savoir plus regarde la

**micka180** · 11/10/2007, 14h51

Bon j'ai donc décidé de changer de tactique en lisant la FAQ, pour quelque chose de plus simple.

J’essai maintenant de lancer un script en tache planifier depuis un serveur qui va exécuter mon script d'origine sur mon poste (qui lui a office d'installé).
Mais j'ai un message d'erreur.

"WshShell.Run: Impossible d'attendre pour le traitement" erreur sur ligne 2

je ne comprend pas ce que cela signifi, sur un forum on parle d'installer Windows Scripting ?

voici le code qui pourtant ne me parait pas complexe (mais je sent que je me rapproche du but par ce system)

Merci pour votre aide

Code :

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

1
2
3
4
 
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run(" Cscript.exe \\mon_poste.domaine\D$\mon_fichier.vbs",1,true)
MsgBox "Fin utilisation du script"

**omen999** · 11/10/2007, 17h28

salut,

mais je sent que je me rapproche du but par ce system)

je te le souhaite

pour exécuter un script sur une station distante, il faut utiliser l'objet WshRemote et non l'objet WshShell...
tout ça est bien expliqué dans la doc en français
(lien de téléchargement dans la

)

**ced600** · 11/10/2007, 18h44

Tu peux aussi utiliser WMI.
La FAQ explique ce que c'est et donne un liens vers la doc en ligne de WMI

**micka180** · 12/10/2007, 12h01

Bonjour,

j'ai chercher dans la faq VBS mais je n'ai pas trouvé de wshremote.
sur msdn j'ai trouvé de la doc mais je ne m'en sort pas.

j'ai besoin d'un coup de pouce svp

j'ai constamant une erreur ; Un composant ActiveX ne peut pas créer un objet

code:

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
Dim Controller, RemoteScript
 
Set Controller = WScript.CreateObject("WSHController")
 
Set RemoteScript = Controller.CreateScript("mon fichier.vbs", "\\poste.domaine")
 
RemoteScript.Execute
 
 
 
Do While RemoteScript.Status <> 2 
 
WScript.Sleep 100
 
Loop

**RadPAT** · 12/10/2007, 14h16

Salut,

voici une fonction qui me permet de lancer un process sur une machine distante :

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
 
Function CreateProcess(szCommande, szPioute, szNomAdm, szMDPAdm) 
 
   Dim objProcesses 
   Dim objLocator 
   Dim objService 
   Dim lngRet 
   Dim lngPID 
   Dim MesStr 
 
   Set objLocator = CreateObject("WbemScripting.SWbemLocator") 
   Set objService = objLocator.ConnectServer(szPioute, , szNomAdm, szMDPAdm) 
 
   Set objProcesses = objService.Get("Win32_Process") 
 
   lngRet = objProcesses.Create(szCommande, Null, Null, lngPID) 
 
   Set objProcesses = Nothing 
   Set objService   = Nothing 
   Set objLocator   = Nothing 
 
   CreateProcess = lngPID 
 
End Function

Avec :

szCommande = commande à envoyer
szPioute = nom de la machine à attaquer à distance
szNomAdm = compte autorisé à démarrer un process sur la machine distante (idéallement un compte Admin)
szMDPAdm = mot de passe du compte

Ca marche très bien dans mon contexte et pour les commandes que j'envoie sur mes machines, mais je ne sais pas si tu pourras l'adapter à ce que tu veux obtenir.

A++

**micka180** · 12/10/2007, 14h40

je souhaite executer un fichier vbs, mais je vais quand meme tenter merci.
je ne suis plus à une tentative prée.

**micka180** · 12/10/2007, 15h47

morche pas puah

**RadPAT** · 12/10/2007, 16h11

Tu as mis quoi dans ta variable szCommande ?

As tu fait ceci :

Code :

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

szCommande  = "Cmd /c CScript nom_du_Vbs.Vbs"

**ced600** · 12/10/2007, 16h26

Ici les explications pour se connecter à un poste distant avec WMI :
http://msdn2.microsoft.com/en-us/library/aa389290.aspx
La des exemples de codes sur les processus :
http://msdn2.microsoft.com/en-us/library/aa394599.aspx
Tu combine tout cela avec l'exemple de RadPAT et tu devrais réussir à faire ce que tu souhaites.

Et puis tu peux essayer cela (pas testé) :

Code :

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

1
2
3
Dim processus
Set objWMIService = GetObject("winmgmts:\\" & AdresseIP_du_PC & "\root\cimv2:Win32_Process")
processus = objWMIService.Create ("Le nom du processus", null, "Je crois me souvenir qu'il faut mettre un numero pour le PID")

Mais attention, je ne me connecte pas avec SWbemLocator -> dans mon cas, l'utilisateur courant est utilisé pour la connexion, avec SWbemLocator par contre tu peux choisir ton utilisateur.

**micka180** · 15/10/2007, 15h56

merci pour vos infos je vais les testers et chercher aussi à faire de par moi meme avec les kiens que tu ma donné ced600

Merci

**ced600** · 15/10/2007, 17h29

Heu comme je ne sais pas si les changements sur le poste sont alertés comme un nouveau commentaire, je met un commentaire pour que tu regarde les changement que j'ai apporté sur le code.
En effet, je n'avais pas bien nétoyé le code, il restait l'appel d'une fonction d'un script perso.

**micka180** · 17/10/2007, 12h15

bonjour et merci pour la modification du code.

j'ai appliqué le code sur le script que j'ai placé sur le serveur.

voici le code.

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
Dim processus
Dim lngRet
Dim szCommande
Dim machine
 
machine = xxxxxx
 
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set objServices = objLocator.ConnectServer _
			(machine, "root\cimv2", "domaine\loggin", "mot de passe")
	objServices.Security_.ImpersonationLevel = 3
 
 
 
Set objWMIService = GetObject ("winmgmts:\\d$\repertoire\fichier.Vbs" & machine & "\root\cimv2:Win32_Process")
processus = objWMIService.Create ("WScript.exe", null, "2588")

mais j'optien un message derreur 80041064 sur le serveur du type

les references utilisateur ne peuvent pas etre utilisaées pour des connexions locales

j'ai vu sur le net http://manageengine.adventnet.com/pr...ting-guide.doc
qu'une solution été de supprimer le login et le password de ma ligne

Code :

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

1
2
Set objServices = objLocator.ConnectServer _
			(machine, "root\cimv2", "domaine\loggin", "mot de passe")

ce que j'ai fais sans succès

execution d'un script (excel) depuis serveur

VBScript

Discussions similaires

Partager

Partager