AutoIt Français

Nouveau forum : http://www.autoitscript.fr/
 
AccueilFAQRechercherS'enregistrerMembresGroupesConnexionhttp://www.autoitscript.fr

Partagez | 
 

 Appel WMI en autoit [RESOLU]

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
CG0611
Débutant
Débutant


Nombre de messages : 3
Localisation : Lille
Date d'inscription : 23/03/2007

MessageSujet: Appel WMI en autoit [RESOLU]   2007-03-23, 14:53

Bonjour à tous,

je souhaiterais savoir si certains d'entres-vous aurais réussis à faire des appels WMI depuis un prg autoit ?

Objectif :
démarrer un service sur poste distant ( en l'occurence service 'serveur')

Je dispose du script en VBS, mais la transposition me semble délicate voir impossible ...

Merci de m'apporter vos lumières sur ce point.:D
cg


Dernière édition par le 2007-06-01, 10:42, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
ani
Modérateur
Modérateur


Nombre de messages : 563
Date d'inscription : 23/01/2007

MessageSujet: Re: Appel WMI en autoit [RESOLU]   2007-03-23, 17:09

salut cg061

rien n'est impossible surtout en informatique .

le script vbs tu peux l'inclure sans trop de problème. t'a un exemple ou deux dans les dossiers Extra/autoit-x/vbs

pour wmi c'est aussi simple t'a un script tout fait [url=http://www.autoitscript.com/forum/index.php?automodule=downloads&showfile=29]ici[/url]
le post est [url=http://www.autoitscript.com/forum/index.php?showtopic=10534&hl=scriptomatic]là[/url] t'a divers explication et questions.

un petit exemple

[b][color=#aa0000]$wbemFlagReturnImmediately[/color][/b] [b][color=#ff0000]=[/color][/b] [b][i][color=#ac00a9]0x10
[/color][/i][color=#aa0000]$wbemFlagForwardOnly[/color][/b] [b][color=#ff0000]=[/color][/b] [b][i][color=#ac00a9]0x20
[/color][/i][color=#aa0000]$colItems[/color][/b] [b][color=#ff0000]=[/color][/b] [b][color=#9999cc]""
[/color][color=#aa0000]$strComputer[/color][/b] [b][color=#ff0000]=[/color][/b] [b][color=#9999cc]"localhost"

[/color][color=#aa0000]$Output[/color][color=#ff0000]=[/color][/b][b][color=#9999cc]""
[/color][color=#aa0000]$Output[/color][/b] [b][color=#ff0000]=[/color][/b] [b][color=#aa0000]$Output[/color][/b] [b][color=#ff0000]&[/color][/b] [b][color=#9999cc]"Computer: "[/color][/b] [b][color=#ff0000]&[/color][/b] [b][color=#aa0000]$strComputer[/color][/b] [b][color=#ff0000]&[/color][/b] [b][color=#ff33ff]@CRLF
[/color][color=#aa0000]$Output[/color][/b] [b][color=#ff0000]=[/color][/b] [b][color=#aa0000]$Output[/color][/b] [b][color=#ff0000]&[/color][/b] [b][color=#9999cc]"=========================================="[/color][/b] [b][color=#ff0000]&[/color][/b] [b][color=#ff33ff]@CRLF
[/color][color=#aa0000]$objWMIService[/color][/b] [b][color=#ff0000]=[/color][/b] [b][i][color=#000090]ObjGet[/color][/i][color=#ff0000]([/color][color=#9999cc]"winmgmts:\"[/color][/b] [b][color=#ff0000]&[/color][/b] [b][color=#aa0000]$strComputer[/color][/b] [b][color=#ff0000]&[/color][/b] [color=#9999cc][b]"rootCIMV2"[/b][/color][b][color=#ff0000])
[/color][color=#aa0000]$colItems[/color][/b] [b][color=#ff0000]=[/color][/b] [b][color=#aa0000]$objWMIService[/color][color=#ff0000].[/color][i][color=#0000ff]ExecQuery[/color][/i][color=#ff0000]([/color][color=#9999cc]"SELECT * FROM Win32_BaseBoard"[/color][color=#ff0000],[/color][/b] [b][color=#9999cc]"WQL"[/color][color=#ff0000],[/color][/b] [b][color=#ff0000]_
[/color][/b][b][color=#aa0000]$wbemFlagReturnImmediately[/color][/b] [b][color=#ff0000]+[/color][/b] [color=#aa0000][b]$wbemFlagForwardOnly[/b][/color][b][color=#ff0000])

[/color][color=#0000ff]If[/color][/b] [b][i][color=#000090]IsObj[/color][/i][color=#ff0000]([/color][color=#aa0000]$colItems[/color][color=#ff0000])[/color][/b] [b][color=#0000ff]then
[/color][/b][b][color=#0000ff]For[/color][/b] [b][color=#aa0000]$objItem[/color][/b] [b][color=#0000ff]In[/color][/b] [b][color=#aa0000]$colItems
[/color][/b][b][color=#aa0000]$Output[/color][/b] [b][color=#ff0000]=[/color][/b] [b][color=#aa0000]$Output[/color][/b] [b][color=#ff0000]&[/color][/b] [b][color=#9999cc]"Caption: "[/color][/b] [b][color=#ff0000]&[/color][/b] [b][color=#aa0000]$objItem[/color][color=#ff0000].[/color][i][color=#0000ff]Caption[/color][/i][/b] [b][color=#ff0000]&[/color][/b] [b][color=#ff33ff]@CRLF
[/color][/b][b][color=#aa0000]$strConfigOptions[/color][/b] [b][color=#ff0000]=[/color][/b] [b][color=#aa0000]$objItem[/color][color=#ff0000].[/color][i][color=#0000ff]ConfigOptions[/color][/i][color=#ff0000]([/color][i][color=#ac00a9]0[/color][/i][color=#ff0000])
[/color][/b][b][color=#aa0000]$Output[/color][/b] [b][color=#ff0000]=[/color][/b] [b][color=#aa0000]$Output[/color][/b] [b][color=#ff0000]&[/color][/b] [b][color=#9999cc]"ConfigOptions: "[/color][/b] [b][color=#ff0000]&[/color][/b] [b][color=#aa0000]$strConfigOptions[/color][/b] [b][color=#ff0000]&[/color][/b] [b][color=#ff33ff]@CRLF
[/color][/b][b][color=#aa0000]$Output[/color][/b] [b][color=#ff0000]=[/color][/b] [b][color=#aa0000]$Output[/color][/b] [b][color=#ff0000]&[/color][/b] [b][color=#9999cc]"CreationClassName: "[/color][/b] [b][color=#ff0000]&[/color][/b] [b][color=#aa0000]$objItem[/color][color=#ff0000].[/color][i][color=#0000ff]CreationClassName[/color][/i][/b] [b][color=#ff0000]&[/color][/b] [b][color=#ff33ff]@CRLF
[/color][/b][b][color=#aa0000]$Output[/color][/b] [b][color=#ff0000]=[/color][/b] [b][color=#aa0000]$Output[/color][/b] [b][color=#ff0000]&[/color][/b] [b][color=#9999cc]"Manufacturer: "[/color][/b] [b][color=#ff0000]&[/color][/b] [b][color=#aa0000]$objItem[/color][color=#ff0000].[/color][i][color=#0000ff]Manufacturer[/color][/i][/b] [b][color=#ff0000]&[/color][/b] [b][color=#ff33ff]@CRLF
[/color][/b][b][color=#aa0000]$Output[/color][/b] [b][color=#ff0000]=[/color][/b] [b][color=#aa0000]$Output[/color][/b] [b][color=#ff0000]&[/color][/b] [b][color=#9999cc]"PoweredOn: "[/color][/b] [b][color=#ff0000]&[/color][/b] [b][color=#aa0000]$objItem[/color][color=#ff0000].[/color][i][color=#0000ff]PoweredOn[/color][/i][/b] [b][color=#ff0000]&[/color][/b] [b][color=#ff33ff]@CRLF
[/color][/b][b][color=#aa0000]$Output[/color][/b] [b][color=#ff0000]=[/color][/b] [b][color=#aa0000]$Output[/color][/b] [b][color=#ff0000]&[/color][/b] [b][color=#9999cc]"Product: "[/color][/b] [b][color=#ff0000]&[/color][/b] [b][color=#aa0000]$objItem[/color][color=#ff0000].[/color][i][color=#0000ff]Product[/color][/i][/b] [b][color=#ff0000]&[/color][/b] [b][color=#ff33ff]@CRLF
[/color][/b][b][color=#aa0000]$Output[/color][/b] [b][color=#ff0000]=[/color][/b] [b][color=#aa0000]$Output[/color][/b] [b][color=#ff0000]&[/color][/b] [b][color=#9999cc]"SerialNumber: "[/color][/b] [b][color=#ff0000]&[/color][/b] [b][color=#aa0000]$objItem[/color][color=#ff0000].[/color][i][color=#0000ff]SerialNumber[/color][/i][/b] [b][color=#ff0000]&[/color][/b] [b][color=#ff33ff]@CRLF
[/color][/b][b][color=#aa0000]$Output[/color][/b] [b][color=#ff0000]=[/color][/b] [b][color=#aa0000]$Output[/color][/b] [b][color=#ff0000]&[/color][/b] [b][color=#9999cc]"Tag: "[/color][/b] [b][color=#ff0000]&[/color][/b] [b][color=#aa0000]$objItem[/color][color=#ff0000].[/color][i][color=#0000ff]Tag[/color][/i][/b] [b][color=#ff0000]&[/color][/b] [b][color=#ff33ff]@CRLF
[/color][/b][b][color=#aa0000]$Output[/color][/b] [b][color=#ff0000]=[/color][/b] [b][color=#aa0000]$Output[/color][/b] [b][color=#ff0000]&[/color][/b] [b][color=#9999cc]"Version: "[/color][/b] [b][color=#ff0000]&[/color][/b] [b][color=#aa0000]$objItem[/color][color=#ff0000].[/color][i][color=#0000ff]Version[/color][/i][/b] [b][color=#ff0000]&[/color][/b] [b][color=#ff33ff]@CRLF
[/color][/b][b][color=#0000ff]if[/color][/b] [b][i][color=#000090]Msgbox[/color][/i][color=#ff0000]([/color][i][color=#ac00a9]1[/color][/i][color=#ff0000],[/color][color=#9999cc]"WMI Output"[/color][color=#ff0000],[/color][color=#aa0000]$Output[/color][color=#ff0000])[/color][/b] [b][color=#ff0000]=[/color][/b] [b][i][color=#ac00a9]2[/color][/i][/b] [b][color=#0000ff]then[/color][/b] [b][color=#0000ff]ExitLoop
[/color][/b][b][color=#aa0000]$Output[/color][color=#ff0000]=[/color][color=#9999cc]""
[/color][/b][b][color=#0000ff]Next
Else
[/color][/b][b][i][color=#000090]Msgbox[/color][/i][color=#ff0000]([/color][i][color=#ac00a9]0[/color][/i][color=#ff0000],[/color][color=#9999cc]"WMI Output"[/color][color=#ff0000],[/color][color=#9999cc]"No WMI Objects Found for class: "[/color][/b] [b][color=#ff0000]&[/color][/b] [b][color=#9999cc]"Win32_BaseBoard"[/color][/b] [b][color=#ff0000])
[/color][color=#0000ff]Endif[/color][/b]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
ani
Modérateur
Modérateur


Nombre de messages : 563
Date d'inscription : 23/01/2007

MessageSujet: Re: Appel WMI en autoit [RESOLU]   2007-03-23, 18:11

c'est bien çà que tu désirais ?

poste le code vbs stp en pm ou ici

merciiii d'avance
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
CG0611
Débutant
Débutant


Nombre de messages : 3
Localisation : Lille
Date d'inscription : 23/03/2007

MessageSujet: Re: Appel WMI en autoit [RESOLU]   2007-05-04, 12:45

[i]Merci beaucoup pour ton aide précieuse ...[/i]

[i]Voici le script en résultat ...[/i]

[code]
#include
Global $etat,$start,$stop,$objWMIService,$colItems,$poste,$info

GUICreate("Service serveur",600,250)
GUISetFont(16)
GUICtrlCreateLabel("Gestion du service serveur sur les postes Portalis",50,10)
GUISetFont(10)
GUICtrlCreateLabel("Nom du poste :",10,60)
$poste=GUICtrlCreateInput(@ComputerName,100,55)
$etat=GUICtrlCreateButton(" Etat ",50,120)
$start=GUICtrlCreateButton("Démarrage",130,120)
$stop=GUICtrlCreateButton(" Arrêt ",230,120)
$txt=GUICtrlCreateLabel(" ",10,180)
$info=GUICtrlCreateLabel(" ",10,200)
GUISetState (@SW_SHOW)

While 1
$msg = GUIGetMsg()

If $msg = $GUI_EVENT_CLOSE Then Exit
if $msg=$etat Then
_etat()
EndIf
if $msg=$start Then
_start()
EndIf
if $msg=$stop Then
_stop()
EndIf

Wend

Exit

func _etat()
$code=0
$strcomputer=GUICtrlRead($poste)
$objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Service where Name='lanmanserver'", "WQL", 0x10 + 0x20)
If IsObj($colItems) then
For $objitem In $colItems
GUICtrlSetData($txt,$objitem.State&"-"&$objItem.StartMode)
Next
$code=$objitem
EndIf
GUICtrlSetData($info,"")
return $code
EndFunc

func _stop()
$objitem=_etat()
if $objitem<>0 Then
$objitem.Change(Default ,Default ,Default ,Default , "disabled")
$objitem.StopService()
EndIf


_etat()
GUICtrlSetData($info,"Service arrêté.")
EndFunc
func _start()
$objitem=_etat()
if $objitem<>0 Then
$objitem.Change(Default ,Default ,Default ,Default , "Manual")
$objitem.StartService()
EndIf


_etat()
GUICtrlSetData($info,"Service démarré.")
EndFunc
[/code]


A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
ani
Modérateur
Modérateur


Nombre de messages : 563
Date d'inscription : 23/01/2007

MessageSujet: Re: Appel WMI en autoit [RESOLU]   2007-05-04, 17:22

manque rien ? j'ai pas testé vu que ej ne suis pas chez moi

le label = "titre","coingauche",coinhaut","largeur","hauteur"

je vois que tu envoi le resultat ver le label info ,,

bon je re vais chez moi, je reediterai

a toute
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Appel WMI en autoit [RESOLU]   Aujourd'hui à 10:40

Revenir en haut Aller en bas
 
Appel WMI en autoit [RESOLU]
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Roll-over (Resolu)
» Avez-vous eue un appel de DirectBuy pour 50,000$ pour une cuisine à Ottawa ?
» icone(RESOLU par Migau)
» [appel à super-zebdal]visual novel
» 865T, appel aux utilisateurs, avis

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
AutoIt Français :: AutoIt v3 :: Entraide-
Sauter vers: