AutoIt Français

Code : Tout sélectionner

$oShell = ObjCreate("WScript.Shell")
$ProcessEnv = $oShell.Environment("PROCESS")
$ClientName = $ProcessEnv("Clientname")
MsgBox(0,'',$ClientName)

Code : Tout sélectionner

$ClientName = $ProcessEnv("ClientIP")
 

Code : Tout sélectionner

$WshShell = ObjCreate("WScript.Shell")
$WshSysEnv = $WshShell.Environment("SYSTEM")
MsgBox(0,'nombre de processeurs',"sur cette machine il y a : "&$WshSysEnv("NUMBER_OF_PROCESSORS")&" processeur(s)")



$ProcessEnv = $WshShell.Environment("PROCESS")
$ClientName = $ProcessEnv("Clientname")
$WshNetwork = ObjCreate("WScript.Network")
$oDrives = $WshNetwork.EnumNetworkDrives
$oPrinters = $WshNetwork.EnumPrinterConnections
MsgBox(0,'nom de la machine =',$ClientName)
MsgBox(0,"Domaine","Domaine = " & $WshNetwork.UserDomain)
MsgBox(0,"Serveur","Nom serveur = " & $WshNetwork.ComputerName)
MsgBox(0,"utilisateur","Nom utilisateur  = " & $WshNetwork.UserName)

For $i = 0 to $oDrives.Count - 1 Step 2
    MsgBox(0,"lecteurs utilisés par la session :","Unité " & $oDrives.Item($i) & " = " & $oDrives.Item($i+1))

Next

For $i = 0 to $oPrinters.Count - 1 Step 2
        MsgBox(0,"imprimantes utilisées par la session ","port " & $oPrinters.Item($i) & " = " & $oPrinters.Item($i+1))
Next

Code : Tout sélectionner

 Enum WTS_INFO_CLASS
        WTSInitialProgram = 0
        WTSApplicationName = 1
        WTSWorkingDirectory = 2
        WTSOEMIdWTSOEMIdNot = 3
        WTSSessionId = 4
        WTSUserName = 5
        WTSWinStationName = 6
        WTSDomainName = 7
        WTSConnectState = 8
        WTSClientBuildNumber = 9
        WTSClientName = 10
        WTSClientDirectory = 11
        WTSClientProductId = 12
        WTSClientHardwareId = 13
        WTSClientAddress = 14
        WTSClientDisplay = 15
        WTSClientProtocolType = 16
        WTSIdleTime = 17
        WTSLogonTime = 18
        WTSIncomingBytes = 19
        WTSOutgoingBytes = 20
        WTSIncomingFrames = 21
        WTSOutgoingFrames = 22
    End Enum
    Private Const WTS_CURRENT_SERVER_HANDLE As Integer = -1
    Private Declare Sub WTSFreeMemory Lib "wtsapi.dll" (ByVal memory As IntPtr)
    Private Declare Auto Function WTSGetActiveConsoleSessionId Lib "Kernek32.dll" () As Integer
    Private Declare Auto Function WTSQuerySessionInformation Lib "wtsapi32.dll" ( _
            ByVal hServer As Int32, _
            ByVal SessionId As Int32, _
            ByVal InfoClass As WTS_INFO_CLASS, _
            ByRef ppBuffer As IntPtr, _
            ByRef pCount As Int32) As Int32
    Private Function fnGetClientName() As String
        Dim R As String = ""
        Dim Buffer As IntPtr = IntPtr.Zero
        Try
            Dim bytesReturned As Integer
            Dim sessionInfo As Boolean = WTSQuerySessionInformation(IntPtr.Zero.ToInt32, -1, _
                WTS_INFO_CLASS.WTSClientName, Buffer, bytesReturned)
            R = System.Runtime.InteropServices.Marshal.PtrToStringAuto(Buffer)
        Catch ex As Exception
        Finally
            Try
                WTSFreeMemory(Buffer)
                Buffer = IntPtr.Zero
            Catch ex As Exception
            End Try
        End Try
        Return R
    End Function

Code : Tout sélectionner

#include <GUIConstants.au3>
#Include <date.au3>
#include <EditConstants.au3>
$oShell = ObjCreate("WScript.Shell")
$ProcessEnv = $oShell.Environment("PROCESS")
$ClientName = $ProcessEnv("Clientname")
MsgBox(0,'',$ClientName)