Désactivation de IRDP automatiquement l'utilisation de VBScript WSH

Traductions disponibles Traductions disponibles
Numéro d'article: 216141 - Voir les produits auxquels s'applique cet article
Agrandir tout | Réduire tout

Sommaire

Résumé

Cet article décrit comment créer un fichier VBScript qui désactive automatiquement IRDP (Internet Router Discovery Protocol) sous Windows 98 ou Windows 95 à l'aide de Windows Script Host.

Plus d'informations

IRDP peut être désactivé manuellement en ajoutant «PerformRouterDiscovery» nom de la valeur et en affectant à la valeur dword 0, sous les clés de Registre suivante :
HKLM\System\CurrentControlSet\Services\Class\NetTrans\ ####

Où #### est la liaison pour TCP/IP. Il existe peut-être plus d'une liaison TCP/IP.

Veuillez Notez que si vous utilisez Windows 95 et que vous souhaitez exécuter le script pour désactiver IRDP, vous devez installer des Wsh.exe à partir du site Web MSDN Online Scripting MSDN Online Scripting pour activer Windows Script Host.

Remarque : cette procédure n'est pas conçue pour les particuliers, avec quelques ordinateurs. IRDP est activé sur Windows 95 uniquement après que la mise à jour Winsock 2 est installée.

Avertissement : Si vous utilisez l'Éditeur du Registre incorrectement, vous exposez à de graves problèmes pouvant vous obliger à réinstaller votre système d'exploitation. Microsoft ne peut pas garantir que vous puissiez résoudre les problèmes résultant d'une mauvaise utilisation de l'Éditeur du Registre. Utilisez l'Éditeur du Registre à vos risques et périls.

Utilisez la ligne suivante pour exécuter NO IRDP.vbs à partir d'un script de connexion :
Cscript \\<server>\<share>\NO-IRDP.VBS //T:5 //B
				
Où <server>est le nom du serveur et <share>est le nom du partage.
//T:5  Terminates the script after 5 seconds if it is still running.
//B    Tells the script to run in non-interactive mode.
				

Exemple de code

À l'aide d'un éditeur de texte, créez un fichier de VBScript appelé NO IRDP.vbs avec les lignes suivantes :
   '----------------------------------------------------------------------
   ' The following script reads the registry value name IPAddress to
   ' determine which registry entries are TCP/IP bindings and disables
   ' IRDP (Internet Router Discovery Protocol).  For more info on IRDP
   ' please read RFC 1256.
   ' This sample checks the first 13 network bindings for TCP/IP, which 
   ' is typically sufficient in most environments.
   ' ---------------------------------------------------------------------
   Dim WSHShell, NList, N, IPAddress, IPValue, RegLoc
   Set WSHShell = WScript.CreateObject("WScript.Shell")

   NList = array("0000","0001","0002","0003","0004","0005","0006", _
                 "0007","0008","0009","0010","0011","0012")

   On Error Resume Next
   RegLoc = "HKLM\System\CurrentControlSet\Services\Class\NetTrans\"
 
   For Each N In NList
     IPValue = ""      'Resets variable
     IPAddress = RegLoc & N & "\IPAddress"
     IPValue = WSHShell.RegRead(IPAddress)
     If (IPValue <> "") then
       PFRD = RegLoc & N & "\PerformRouterDiscovery"
       WSHShell.RegWrite PFRD,"0","REG_DWORD"
     end If
   Next

   WScript.Quit        ' Tells the script to stop and exit.<BR/>
				

Propriétés

Numéro d'article: 216141 - Dernière mise à jour: mercredi 24 janvier 2007 - Version: 1.5
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Windows 95
  • Microsoft Windows 98 Standard Edition
Mots-clés : 
kbmt kbhowto KB216141 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 216141
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com