Comment automatiser la connectivité de test au serveur Windows 2003?

Question

J'écris une application pour tester la connectivité RDP à une banque de serveurs VM Windows 2003. Le mode de défaillance typique est que du code exécuté sur le serveur se boucle en boucle, évitant ainsi les connexions RDP - et la plupart des autres types de connexion. Lorsque cela se produit, vous pouvez toujours exécuter une commande ping sur le serveur et cela semble aller, mais vous ne pouvez rien faire d'autre. J'utilise C#, .NET 3.5 et RDP version 6.1 - J'ai essayé de lancer le client ActiveX RDP (MSTSC ..) mais cela nécessite une intervention humaine et ne fonctionne pas très bien. J'ai trouvé un autre article ici qui a une solution possible d'Expert Sexchange, mais cette solution utilise Java et la bibliothèque Net :: Telnet, à laquelle je n'ai pas accès.

Des idées du camp .NET?

Merci, Dave

Answer 1

Vous pouvez utiliser l'API WinStationServerPing sans papier pour vérifier la connectivité au Terminal Server. Fondamentalement, si cette fonction réussit, cela signifie que Terminal Server est disponible.

Ceci est la (Delphi) la signature de la fonction (exportée de winsta.dll):

function WinStationServerPing(hServer: HANDLE): BOOLEAN; stdcall; 

Answer 2

Utilisez un TCPClient pour essayer de se connecter aux serveurs sur 3389 (ou tout autre port que vous configuré pour) si vous avez une connexion, déconnexion et signaler le succès, si la connexion est refusée rapport échec.

class Program 
    { 
     static void Main(string[] args) 
     { 
      RDPAvailable("someserver", 3389); 
     } 
     public static bool RDPAvailable(string remoteHost, int port) 
     { 
      bool available=false; 
      try 
      { 
       TcpClient client = new TcpClient(remoteHost, port); 
       client.Close(); 
       available = true; 
      } 
      catch (Exception ex) 
      { 
       //do some logging or whatnot 
      } 
      return available; 
    } 

EDIT: Une partie du code pratique

MsRdpClient51.Server = somServer 
MsRdpClient51.UserName = somUserID 
MsRdpClient51.Domain = someDomain 
MsRdpClient51.AdvancedSettings6.ClearTextPassword = somePassword 
MsRdpClient51.Connect