begin process at 2012 02 09 02:47:06
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Réseau & Internet

 > MODULE COMPLET D'ARRÊT MACHINE À DISTANCE

MODULE COMPLET D'ARRÊT MACHINE À DISTANCE


 Information sur la source

Note :
Aucune note
Catégorie :Réseau & Internet Source .NET ( DotNet ) Classé sous :arrêt, machine, shutdown Niveau :Initié Date de création :17/02/2008 Date de mise à jour :19/02/2008 17:56:59 Vu :10 429

Auteur : DonaldServ

Ecrire un message privé
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

 Description

En recherchant sur ce site et d'autres des sources pour à partir des API win32 arrêter une machine à distance, on trouve bcp de choses, mais souvent incomplet, ou ne permettant pas d'avoir le message d'erreur si l'appel de la fonction n'a pas aboutie. (Ou uniquement compatible vb6 mais pas vb.net).

On peut faire ca via la fonction shutdown.exe qui utilise la meme API et qui n'est pas dispo sur 2k/nt et ne permet pas d'avoir le code d'erreur de retour facilement.

J'avais besoin de faire ca en dotnet quelque soit l'os, et j'ai donc fait un petit module permettant de le faire via une fonction avec un retour d'erreur si l'appel n'a pas abouti.

Ce module est facilement incorporable dans une assembly dll par exemple histoire d'avoir une classe propre qui fasse tout ca proprement sans devoir forcement se poser la question avant de l'utiliser.

Pour Info, je recupere l'éventuel message d'erreur via marshal (system.interop), et je le traite via formatmessageA. (le declare le configure automatiquement, on peut aussi passer par un DLLImport avec getlasterror a true si on veut se separer de la visual basic compatibility (qui est inclu par defaut dans un nvo projet form dotnet 2003) et eviter ainsi d'utiliser un declare)

Le point d'entre de ce module (fonction friend) c'est UNE SEULE fonction qui permet à elle seule d'arrêter une machine, d'interrompre l'arrêt, de préciser le message, de forcer ou non la fermeture des appli, et le reboot après shutdown de la machine.

La seule chose qui manque c'est la recupération des privileges, personnellement je le fais via un shell "net use \\machine\ipc$ /user:user pass" avant d'excuter ma fonction.

En espérant que ca puisse aider.

Source

  • Option Strict On
  • Option Explicit On
  • Module modAdvapi32
  • 'Constantes nécessaire au fonctionnement des fonctions de codes non managées
  • 'pour formatMessage
  • Private Const FORMAT_MESSAGE_ALLOCATE_BUFFER As Short = &H100
  • Private Const FORMAT_MESSAGE_IGNORE_INSERTS As Short = &H200
  • Private Const FORMAT_MESSAGE_FROM_STRING As Short = &H400
  • Private Const FORMAT_MESSAGE_FROM_HMODULE As Short = &H800
  • Private Const FORMAT_MESSAGE_FROM_SYSTEM As Short = &H1000
  • Private Const FORMAT_MESSAGE_ARGUMENT_ARRAY As Short = &H2000
  • Private Const FORMAT_MESSAGE_MAX_WIDTH_MASK As Short = &HFF
  • 'pour le language des messages d'erreurs
  • Private Const LANG_NEUTRAL As Short = &H0
  • Private Const SUBLANG_DEFAULT As Short = &H1
  • Private Const LANG_FRENCH As Short = &HC
  • Private Const SUBLANG_FRENCH As Short = &H1
  • 'inclut les fonctions necessaires à l'arrêt de la machine
  • ' on aurai pu passer par System.Runtime.InteropServices et DLLImport en mettant l'attribut setlasterror a true (comme en c#), mais en vb powa, il existe
  • ' une fonction declare et elle le fait automatiquement et l'on pourra recuperer le message d'erreur via marshal getlastwin32error
  • Private Declare Function InitiateSystemShutdown Lib "advapi32.dll" Alias "InitiateSystemShutdownA" (ByVal lpMachineName As String, ByVal lpMessage As String, ByVal dwTimeout As Integer, ByVal bForceAppsClosed As Integer, ByVal bRebootAfterShutdown As Integer) As Integer
  • Private Declare Function AbortSystemShutdown Lib "advapi32.dll" Alias "AbortSystemShutdownA" (ByVal lpMachineName As String) As Integer
  • 'non utilisé dans le module mais par extension pour evolutions futures
  • Private Function MAKELANGID(ByRef p As Object, ByRef s As Object) As Integer
  • 'MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language
  • Return CInt((CInt(s) * 4) Or CInt(p))
  • End Function
  • 'inclut les fonctions necessaires à la récupération des messages d'erreur si une fonction win32 n'a pas aboutie
  • Private Declare Function FormatMessageA Lib "kernel32" (ByVal dwFlags As Integer, ByRef lpSource As Object, ByVal dwMessageId As Integer, ByVal dwLanguageId As Integer, ByVal lpBuffer As String, ByVal nSize As Integer, ByRef Arguments As Integer) As Integer
  • 'surcharge de formatmessage a la sauce vb
  • Private Function FormatMessage(ByVal dwMessageId As Integer) As String
  • 'On est obligé de passer par une variable qui sera "remplie" par la fonction win32, c'est après coup que la fonction renvoi le nombre de caracteres reellement utilise et qu'on pourra
  • ' donc réajuster la taille de celle ci (999 est suffisant, vis a vis de ce qu'on peut trouver comme message d'erreur des API win32 (http://www.xs4all.nl/~rjg70/vbapi/ref/other/errorcodes.html)
  • Dim buffer As String = Space(999)
  • Dim realSize As Integer = FormatMessageA(FORMAT_MESSAGE_FROM_SYSTEM, 0, dwMessageId, LANG_NEUTRAL, buffer, 999, 0)
  • buffer = Mid(buffer, 1, realSize)
  • Return buffer
  • End Function
  • Friend Function MOD_remoteSystemShutdown(ByVal BoolAbortSystemShutdown As Boolean, ByVal IPaddress As String, Optional ByVal Message As String = "", Optional ByVal TimeOutInSecond As Integer = 0, Optional ByVal BoolForceAppsClosed As Boolean = True, Optional ByVal BoolRebootAfterShutdown As Boolean = False) As String
  • 'si AbortSystemShutdown=false, alors on envoi une init d'un system shutdown, les params par defaut sont arret immediat, sans message user, avec forcage fermeture appli et arret de la machine sans reboot
  • 'si AbortSystemShutdown=true, alors on envoi une annulation de la commande d'init d'un system shutdown, les autres parametres ne sont pas pris en compte
  • Select Case BoolAbortSystemShutdown
  • Case True
  • 'si la demande se passe bien on renvois "True" que le user de la fonction pourra facilement convertir en boolean
  • 'si la demande n'a pas aboutie, on renvois une chaine de caractere contenant le texte d'erreur dans la langue par defaut de la machine sur lequel on execute cette fonction
  • ' (le user pourra try un cbool(return fonction) et en cas d'erreur traiter le message d'erreur comme bon lui semble)
  • If AbortSystemShutdown(IPaddress) = 0 Then
  • 'une erreur s'est produite, on la recupere, on la met en forme et on la renvoi
  • Return FormatMessage(System.Runtime.InteropServices.Marshal.GetLastWin32Error())
  • Else
  • Return "True"
  • End If
  • Case False
  • 'si la demande se passe bien on renvois "True" que le user de la fonction pourra facilement convertir en boolean
  • 'si la demande n'a pas aboutie, on renvois une chaine de caractere contenant le texte d'erreur dans la langue par defaut de la machine sur lequel on execute cette fonction
  • ' (le user pourra try un cbool(return fonction) et en cas d'erreur traiter le message d'erreur comme bon lui semble)
  • If InitiateSystemShutdown(IPaddress, Message, TimeOutInSecond, CInt(BoolForceAppsClosed), CInt(BoolRebootAfterShutdown)) = 0 Then
  • 'une erreur s'est produite, on la recupere, on la met en forme et on la renvoi
  • Return FormatMessage(System.Runtime.InteropServices.Marshal.GetLastWin32Error())
  • Else
  • Return "True"
  • End If
  • End Select
  • End Function
  • End Module
Option Strict On
Option Explicit On 

Module modAdvapi32

    'Constantes nécessaire au fonctionnement des fonctions de codes non managées
    'pour formatMessage
    Private Const FORMAT_MESSAGE_ALLOCATE_BUFFER As Short = &H100
    Private Const FORMAT_MESSAGE_IGNORE_INSERTS As Short = &H200
    Private Const FORMAT_MESSAGE_FROM_STRING As Short = &H400
    Private Const FORMAT_MESSAGE_FROM_HMODULE As Short = &H800
    Private Const FORMAT_MESSAGE_FROM_SYSTEM As Short = &H1000
    Private Const FORMAT_MESSAGE_ARGUMENT_ARRAY As Short = &H2000
    Private Const FORMAT_MESSAGE_MAX_WIDTH_MASK As Short = &HFF

    'pour le language des messages d'erreurs
    Private Const LANG_NEUTRAL As Short = &H0
    Private Const SUBLANG_DEFAULT As Short = &H1
    Private Const LANG_FRENCH As Short = &HC
    Private Const SUBLANG_FRENCH As Short = &H1

    'inclut les fonctions necessaires à l'arrêt de la machine
    '   on aurai pu passer par System.Runtime.InteropServices et DLLImport en mettant l'attribut setlasterror a true (comme en c#), mais en vb powa, il existe
    '   une fonction declare et elle le fait automatiquement et l'on pourra recuperer le message d'erreur via marshal getlastwin32error
    Private Declare Function InitiateSystemShutdown Lib "advapi32.dll" Alias "InitiateSystemShutdownA" (ByVal lpMachineName As String, ByVal lpMessage As String, ByVal dwTimeout As Integer, ByVal bForceAppsClosed As Integer, ByVal bRebootAfterShutdown As Integer) As Integer
    Private Declare Function AbortSystemShutdown Lib "advapi32.dll" Alias "AbortSystemShutdownA" (ByVal lpMachineName As String) As Integer

    'non utilisé dans le module mais par extension pour evolutions futures
    Private Function MAKELANGID(ByRef p As Object, ByRef s As Object) As Integer
        'MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language
        Return CInt((CInt(s) * 4) Or CInt(p))
    End Function

    'inclut les fonctions necessaires à la récupération des messages d'erreur si une fonction win32 n'a pas aboutie
    Private Declare Function FormatMessageA Lib "kernel32" (ByVal dwFlags As Integer, ByRef lpSource As Object, ByVal dwMessageId As Integer, ByVal dwLanguageId As Integer, ByVal lpBuffer As String, ByVal nSize As Integer, ByRef Arguments As Integer) As Integer

    'surcharge de formatmessage a la sauce vb
    Private Function FormatMessage(ByVal dwMessageId As Integer) As String
        'On est obligé de passer par une variable qui sera "remplie" par la fonction win32, c'est après coup que la fonction renvoi le nombre de caracteres reellement utilise et qu'on pourra
        '   donc réajuster la taille de celle ci (999 est suffisant, vis a vis de ce qu'on peut trouver comme message d'erreur des API win32 (http://www.xs4all.nl/~rjg70/vbapi/ref/other/errorcodes.html)
        Dim buffer As String = Space(999)
        Dim realSize As Integer = FormatMessageA(FORMAT_MESSAGE_FROM_SYSTEM, 0, dwMessageId, LANG_NEUTRAL, buffer, 999, 0)
        buffer = Mid(buffer, 1, realSize)
        Return buffer
    End Function

    Friend Function MOD_remoteSystemShutdown(ByVal BoolAbortSystemShutdown As Boolean, ByVal IPaddress As String, Optional ByVal Message As String = "", Optional ByVal TimeOutInSecond As Integer = 0, Optional ByVal BoolForceAppsClosed As Boolean = True, Optional ByVal BoolRebootAfterShutdown As Boolean = False) As String
        'si AbortSystemShutdown=false, alors on envoi une init d'un system shutdown, les params par defaut sont arret immediat, sans message user, avec forcage fermeture appli et arret de la machine sans reboot
        'si AbortSystemShutdown=true, alors on envoi une annulation de la commande d'init d'un system shutdown, les autres parametres ne sont pas pris en compte

        Select Case BoolAbortSystemShutdown
            Case True
                'si la demande se passe bien on renvois "True" que le user de la fonction pourra facilement convertir en boolean
                'si la demande n'a pas aboutie, on renvois une chaine de caractere contenant le texte d'erreur dans la langue par defaut de la machine sur lequel on execute cette fonction
                '   (le user pourra try un cbool(return fonction) et en cas d'erreur traiter le message d'erreur comme bon lui semble)
                If AbortSystemShutdown(IPaddress) = 0 Then
                    'une erreur s'est produite, on la recupere, on la met en forme et on la renvoi
                    Return FormatMessage(System.Runtime.InteropServices.Marshal.GetLastWin32Error())
                Else
                    Return "True"
                End If
            Case False
                'si la demande se passe bien on renvois "True" que le user de la fonction pourra facilement convertir en boolean
                'si la demande n'a pas aboutie, on renvois une chaine de caractere contenant le texte d'erreur dans la langue par defaut de la machine sur lequel on execute cette fonction
                '   (le user pourra try un cbool(return fonction) et en cas d'erreur traiter le message d'erreur comme bon lui semble)
                If InitiateSystemShutdown(IPaddress, Message, TimeOutInSecond, CInt(BoolForceAppsClosed), CInt(BoolRebootAfterShutdown)) = 0 Then
                    'une erreur s'est produite, on la recupere, on la met en forme et on la renvoi
                    Return FormatMessage(System.Runtime.InteropServices.Marshal.GetLastWin32Error())
                Else
                    Return "True"
                End If
        End Select
    End Function

End Module

 Conclusion

bon codage :)


 Historique

19 février 2008 17:55:55 :
19fév: correction de mon texte de description ou je me repetais comme un petit vieu :) (aucunes modifs du code)
19 février 2008 17:56:59 :
Modifs du texte de la description où je me répètais comme un petit vieu :)

 Sources de la même categorie

Source avec Zip Source avec une capture GESTIONNAIRE DE TÉLÉCHARGEMENT, AVEC REPRISE ET MULTITHREADI... par Madx23
Source avec Zip Source avec une capture CONVERTIR DU TEXTE RTF EN CODE HTML ET VICE-VERSA par vicosta
Source avec Zip Source avec une capture DICTIONAIRE TEXT/AUDIO/VISUELLE ANGLAIS AVEC WEBBROWSER CONT... par majnounmajda
Source avec Zip Source .NET (Dotnet) NSLOOKUP EN VB.NET OU COMMENT FAIRE UNE REQÛETE DNS EN PRÉCI... par ShareVB
Source avec Zip Source avec une capture MINI SEVEUR HTTP AVEC INTERFACE GRAPHIQUE ET IMPLÉMENTATIONS... par lemout

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) CRYPTOGRAPHIE AMUSANTE par alpha5
Source avec Zip Source avec une capture Source .NET (Dotnet) SIMPLE SHUTDOWN SCHEDULER : ARRÊTS PLANIFIÉS (LOCAL OU REMOT... par violent_ken
Source avec Zip GESTION DES INTERVENTIONS SUR UN PARC MACHINES par koolman61
Source avec Zip Source avec une capture SHUTDOWN TT LES FONCTION DISPONIBLE UTLISER AVEC PLANIFICATI... par jeremdoudou
Source avec Zip ARRET DU PC par flagyg

Commentaires et avis

Commentaire de Aurazed le 18/02/2008 07:46:56

Deux questions:
Pourquoi fait tu un switch sur un boolean et pas tout simplement un if/else?
Est tu sur que ton code ne soulève pas d'exception?

A mon avis ton code à besoin d'ètre un peu revu.

Commentaire de DonaldServ le 19/02/2008 17:52:01

Bien sur que je suis sur qu'il ne releve pas d'exception, sinon je ne l'aurai pas posté :) Je l'ai testé et je l'utilise.

Sinon pour le case cela revient au même, mais je trouve plus lisible de faire un case. Je ne fais pas un test qui en fonction du résultat va donner lieu à du code ou sinon à un autre code. Je considère deux cas chacun correspondant à du code qui n'est pas lié.

En terme d'algorithmie, c'est plus lisible de cette manière, le code généré revu par le compilo sera assez proche de tout de facon quelque soit la manière de l'avoir écrit. Mais pour la lecture c'est mieux comme ca :)

voila voila, merci en tout cas pour ton commentaire.

Commentaire de DonaldServ le 19/02/2008 17:59:12

erf désole pour la double mise à jour

Commentaire de irsoy le 20/02/2008 15:30:05

Slt,

comment je peut utiliser cette fonction? J'avais mis tous dans un module et j'ai fait un appel à la fonction ,avec les paramètres demandés, par un clic sur bouton et rien ne ce passe.

Bon collaboration.

Commentaire de DonaldServ le 20/02/2008 19:10:32

Est ce que tu as récupéré son retour ? (dans un messagebox par exemple pour voir). Tu as un message qui te dit si ça c'est bien passé ou non.

Tu as surement pas les droits sur la machine que tu veux arrêter. Comme je le disais dans ma description pour récupérer les droits tu peux utiliser un shell "net use \\machine\ipc$ /user:user pass" et ensuite executer la fonction. (Oubli pas de mettre wait à true, il faut un certain temp pour joindre la machine par netbios).

Commentaire de anwar666 le 30/07/2010 15:37:53

salut ,
vous pouvez mettre une application qui s'execute on nous montrant le resultat ?
cordialement .

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Défilement des items d'une machine à sous! [ par Dimension X ] Je fabrique présentement un jeu tiré du nom Anglais Slot Machine une machines à sous. Avec des timers et des cases de choix d'images, je fais changer Arrêt d'un prog MSDos [ par Mickael ] Voilà le topo :J'ai mon prog VB qui lance un prog MSDos par la fonction CreateProcess. Lorsque je quitte Windows 9x, et que les 2 progs tournent, il m Arrêt d'un prog MSDos [ par Mickael ] Voilà le topo :J'ai mon prog VB qui lance un prog MSDos par la fonction CreateProcess. Lorsque je quitte Windows 9x, et que les 2 progs tournent, il m MAC Adresse d'un poste distant [ par Lily ] Bonjour,Je cherche désespérément le moyen de connaître la MAC Adresse d'une machine dont on connaît l'IP ?Mon but : pinguer une machine, récupérer son Lister tous les périph présents sur la machine [ par crazydriver ] Salut,Je veux lister tous les périphériques d'un PC.J'en récupère dans le fichier System.ini, et dans la base de registre, mais les infos ne sont pas WMI -- Recherche infos systeme [ par Docmail ] Je cherche a recuperer en VB les differentes informations systeme d'une machine : Carte graphique, resolution, processeur, ram, carte reseau, mac adre Test Réseau [ par bensniper ] comment faire en VB pour pouvoir faire des stat sur le réseau taux d'utilisation, savoir si la machine est connecté, si il a eu des collisions,...Merc erreur 401 automation [ par olivier ] j'ai une application vbdevelopper sur win95 et lorsque quue j'excute l'empaquetage sur une machine equivalente il y a une erreur 401 a l'execeution de


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,827 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales