Executer en tant que en .net

Soyez le premier à donner votre avis sur cette source.

Snippet vu 24 352 fois - Téléchargée 34 fois

Contenu du snippet

Une classe qui vous permet d "executer en tant que" , c'est a dire executer un programme sous un user de windows en tant qu'un autre user, de manière transparente pour l'utilisateur (sans que le password n'apparaisse), en .net.
Il y avait deja une source pour faire ca sur le site, mais pas .net, et le code était pas exceptionnellement propre. ( http://www.vbfrance.com/code.aspx?ID=7555 )
Celui là est un peu plus propre a mon gout et c'est une classe.

Source / Exemple :


Imports System
Imports System.Runtime.InteropServices
Public Class clsRunAs
    Public Const LOGON_WITH_PROFILE = &H1&
    Public Const LOGON_NETCREDENTIALS_ONLY = &H2&
    Public Const CREATE_DEFAULT_ERROR_MODE = &H4000000
    Public Const CREATE_NEW_CONSOLE = &H10&
    Public Const CREATE_NEW_PROCESS_GROUP = &H200&
    Public Const CREATE_SEPARATE_WOW_VDM = &H800&
    Public Const CREATE_SUSPENDED = &H4&
    Public Const CREATE_UNICODE_ENVIRONMENT = &H400&
    Public Const ABOVE_NORMAL_PRIORITY_CLASS = &H8000&
    Public Const BELOW_NORMAL_PRIORITY_CLASS = &H4000&
    Public Const HIGH_PRIORITY_CLASS = &H80&
    Public Const IDLE_PRIORITY_CLASS = &H40&
    Public Const NORMAL_PRIORITY_CLASS = &H20&
    Public Const REALTIME_PRIORITY_CLASS = &H100&

    Public Structure PROCESS_INFO
        Public hProcess As IntPtr
        Public hThread As IntPtr
        Public dwProcessId As Integer
        Public dwThreadId As Integer
    End Structure
    Public Structure STARTUP_INFO
        Public cb As Integer
        Public lpReserved As Integer
        <MarshalAs(UnmanagedType.LPTStr)> _
        Public lpDesktop As String
        <MarshalAs(UnmanagedType.LPTStr)> _
        Public lpTitle As String
        Public dwX As Long
        Public dwY As Integer
        Public dwXSize As Integer
        Public dwYSize As Integer
        Public dwXCountChars As Integer
        Public dwYCountChars As Integer
        Public dwFillAttribute As Integer
        Public dwFlags As Integer
        Public wShowWindow As Short
        Public cbReserved2 As Short
        Public lpReserved2 As Integer
        Public hStdInput As Integer
        Public hStdOutput As Integer
        Public hStdError As Integer
    End Structure

    <DllImport("C:\\Windows\\System32\\advapi32.dll")> _
    Public Shared Function CreateProcessWithLogonW( _
    <MarshalAs(UnmanagedType.LPWStr)> ByVal lpUsername As String, _
    <MarshalAs(UnmanagedType.LPWStr)> ByVal lpDomain As String, _
    <MarshalAs(UnmanagedType.LPWStr)> ByVal lpPassword As String, _
    ByVal dwLogonFlags As Integer, _
    <MarshalAs(UnmanagedType.LPWStr)> ByVal lpApplicationName As String, _
    <MarshalAs(UnmanagedType.LPWStr)> ByVal lpCommandLine As String, _
    ByVal lpCreationFlags As Integer, _
    ByVal lpVoid As Integer, _
    <MarshalAs(UnmanagedType.LPWStr)> ByVal lpCurrentDirectory As String, _
    ByRef lpStartupInfo As STARTUP_INFO, _
    ByRef lpProcessInfo As PROCESS_INFO) As Boolean
    End Function

    Public Sub start(ByVal strCMD As String, ByVal strUser As String, ByVal strPass As String, Optional ByVal strArguments As String = "")
        Dim strDomain As String
        Try
            strDomain = Split(strUser, "\")(0)
            strUser = Split(strUser, "\")(1)
        Catch
            ' no Domain given Try invoking users Domain 
            strDomain = System.Environment.UserDomainName
        End Try

        Dim lres As Long
        Dim pStartInfo As STARTUP_INFO
        Dim pProcessInfo As PROCESS_INFO
        Dim LOGON_NETCREDENTIALS_ONLY As Long = LOGON_WITH_PROFILE
        Dim CREATE_DEFAULT_ERROR_MODE As Long = CREATE_DEFAULT_ERROR_MODE
        Dim lpUsername As String = strUser
        Dim lpPassword As String = strPass
        Dim lpApplicationName As String = strCMD
        Dim lpdomainname As String = strDomain
        Dim lpcommandline As String
        If strArguments = "" Then
            lpcommandline = VariantType.Null
        Else
            lpcommandline = strArguments
        End If

        Dim lpCurrentDirectory As String = "c:\"
        pStartInfo.cb = Len(pStartInfo)
        pStartInfo.lpTitle = "MowConsole"
        pStartInfo.dwFlags = 0&
        Try
            lres = CreateProcessWithLogonW(lpUsername, lpdomainname, lpPassword, LOGON_NETCREDENTIALS_ONLY, lpApplicationName, lpcommandline, CREATE_DEFAULT_ERROR_MODE, 0, lpCurrentDirectory, pStartInfo, pProcessInfo)
        Catch ec As Exception
            MsgBox(ec.ToString)
        End Try
    End Sub
End Class

A voir également

Ajouter un commentaire

Commentaires

BlackLiquor
Messages postés
1
Date d'inscription
vendredi 14 mars 2008
Statut
Membre
Dernière intervention
7 juin 2010

En VB8 (.NET2) par contre ça se résume en une seule ligne :
System.Diagnostics.Process.Start(System.String filename[, System.String arguments], System.String userName, System.Security.SecureString password, System.String domain)

Ca ne gère pas le /netonly qui peut être fait par un runas ou la fonction CreateProcessWithLogonW.

Ca peut etre pratique quand on veut lancer un DSA.MSC depuis un serveur pour se connecter à une multitude de domaines.
Merci pour le code, j'avais toujours un peu de peine à la mettre en place ;)
cs_Alain Proviste
Messages postés
908
Date d'inscription
jeudi 26 juillet 2001
Statut
Modérateur
Dernière intervention
1 février 2015
2
je ne savais pas ! merci beaucoup!!
DarkenerDaemonEx
Messages postés
11
Date d'inscription
mercredi 8 février 2006
Statut
Membre
Dernière intervention
26 mars 2006

En VB8 (.NET2) par contre ça se résume en une seule ligne :
System.Diagnostics.Process.Start(System.String filename[, System.String arguments], System.String userName, System.Security.SecureString password, System.String domain)
jmenfous
Messages postés
117
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
2 juillet 2009
1
De rien, je voulais juste faire des tests car je ne note jamais dans le vide.
cs_Alain Proviste
Messages postés
908
Date d'inscription
jeudi 26 juillet 2001
Statut
Modérateur
Dernière intervention
1 février 2015
2
Moi ca fonctionne sous wds2000 pro sp4 mais j'avoue qu'il n'est pas impossible que mes dll aient été remplacées.
Je te suis extremement reconnaissant pour ces tests.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.