Comment puis-je déterminer si Remote Desktop est exécuté à une adresse IP donnée?

Question

Je veux savoir quelle adresse IP peut être distante. (Bureau à distance)

Par exemple, je définis une adresse IP valide de mon réseau dans une zone d'édition et le programme indique qu'il peut être distant ou non.

Answer 1

Cela dépend de ce que vous essayez d'accomplir: ne voulez-vous voir si le serveur est opérationnel depuis votre réseau? Si oui, essayez mon Terminal Server Ping Tool. Sinon, vous pouvez seulement vérifier si quelque chose écoute sur le port 3389, par exemple avec Indy.

Answer 2

Recherchez un composant Remote Desktop pour Delphi et essayez de vous connecter.

Answer 3

Pour déterminer si une adresse IP est un serveur de bureau distant, vous pouvez utiliser la fonction WTSEnumerateServers.

procédez comme suit

• énumèrent les serveurs d'un domaine de réseau en utilisant la fonction WTSEnumerateServers
• lorsque vous obtenez la liste des serveurs convertir le nom de chaque serveur à une adresse ip
• comparer maintenant l'adresse IP de chaque serveur avec l'ip à vérifier.

voir cet exemple, Wich montrent comment utiliser la fonction WTSEnumerateServers

uses 
    Classes, 
    Windows, 
    SysUtils; 

type 
PWTS_SERVER_INFO = ^WTS_SERVER_INFO; 
_WTS_SERVER_INFO = packed record 
pServerName:LPTSTR; 
end; 
WTS_SERVER_INFO = _WTS_SERVER_INFO; 
WTS_SERVER_INFO_Array = Array [0..0] of WTS_SERVER_INFO; 
PWTS_SERVER_INFO_Array =^WTS_SERVER_INFO_Array; 

{$IFDEF UNICODE} 
function WTSEnumerateServers(pDomainName: LPTSTR; Reserved: DWORD; Version: DWORD; ppServerInfo: PWTS_SERVER_INFO; pCount: PDWORD):BOOLEAN; stdcall; external 'wtsapi32.dll' name 'WTSEnumerateServersW'; 
{$ELSE} 
function WTSEnumerateServers(pDomainName: LPTSTR; Reserved: DWORD; Version: DWORD; ppServerInfo: PWTS_SERVER_INFO; pCount: PDWORD):BOOLEAN; stdcall; external 'wtsapi32.dll' name 'WTSEnumerateServersA'; 
{$ENDIF} 
procedure WTSFreeMemory(pMemory:Pointer);stdcall; external 'wtsapi32.dll' name 'WTSFreeMemory'; 

procedure GetRemoteDesktopsList(const Domain:PChar;const Servers:TStrings); 
var 
ppServerInfo : PWTS_SERVER_INFO_Array;//PWTS_SERVER_INFO; 
pCount  : DWORD; 
i   : integer; 
begin 
    Servers.Clear; 
    ppServerInfo:=nil; 
    try 
    if WTSEnumerateServers(Domain,0,1,PWTS_SERVER_INFO(@ppServerInfo),@pCount) then 
     for i := 0 to pCount - 1 do 
     Servers.Add(ppServerInfo^[i].pServerName) 
    else 
    Raise Exception.Create(SysErrorMessage(GetLastError)); 
    finally 
    if ppServerInfo<>nil then 
    WTSFreeMemory(ppServerInfo); 
    end; 
end; 

puis appeler comme ça

Servers:=TStringList.Create; 
    try 
    GetRemoteDesktops(nil,Servers); //using nil for the current domain. 
    //now process the list and do your stuff 

    finally 
    Servers.Free; 
    end;