begin process at 2012 02 13 15:15:53
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

VBScript

 > ECRITURE DANS LA BASE DE REGISTRE D'UN ORDINATEUR DISTANT

ECRITURE DANS LA BASE DE REGISTRE D'UN ORDINATEUR DISTANT


 Information sur la source

Note :
5 / 10 - par 1 personne
5,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :VBScript Classé sous :vbscript, registre, réseau Niveau :Débutant Date de création :06/11/2007 Vu :11 714
Auteur : Hitch16

Ecrire un message privé
Commentaire sur cette source (14)
Ajouter un commentaire et/ou une note

 Description

Au départ, il s'agissait de corriger une erreur de DNS dans certains journaux d'évènements de machines du réseau (ID 40961, Requête DNS pour prisoner.iana.org).
En fait il fallait passer sur chaque machine pour ajouter ou modifier cette clé du registre.
J'aurais pu le faire par GPO mais j'ai choisi l'option VBScript, plus intéressante.
Donc voici le correctif de cette erreur (merci Microsoft) et par la même occasion le moyen de voir comment on accède au registre de la machine distante.
Je vais écrire une valeur dans le registre et vérifier qu'elle existe.

Source

  • '=====================================
  • ' Constantes de l'arbre du registre
  • '-------------------------------------
  • ' HKEY_CLASSES_ROOT = &H80000000
  • ' HKEY_CURRENT_USER = &H80000001
  • ' HKEY_LOCAL_MACHINE = &H80000002
  • ' HKEY_USERS = &H80000003
  • ' HKEY_CURRENT_CONFIG = &H80000005
  • '=====================================
  • '----------------------------------
  • 'Ecriture dans le registre distant
  • '----------------------------------
  • HKEY_LOCAL_MACHINE = &H80000002
  • strComputer = "NomDuPc"
  • Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
  • strKeyPath = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\"
  • objReg.CreateKey HKEY_LOCAL_MACHINE, strKeyPath
  • ValueName = "DisableReverseAddressRegistrations"
  • dwValue = 1
  • objReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, ValueName, dwValue
  • '----------------------------------
  • 'Lecture dans le registre distant
  • '----------------------------------
  • HKEY_LOCAL_MACHINE = &H80000002
  • strComputer = "NomDuPc"
  • Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
  • strKeyPath = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters"
  • ValueName = "DisableReverseAddressRegistrations"
  • objReg.GetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, ValueName, strValue
  • If IsNull(strValue) Then
  • Wscript.echo "valeur de la clé: La valeur est nulle ou ne peut pas être trouvé"
  • Else
  • Wscript.echo "valeur de la clé: ", strValue
  • End If
'=====================================
' Constantes de l'arbre du registre
'-------------------------------------
' HKEY_CLASSES_ROOT 	= &H80000000
' HKEY_CURRENT_USER 	= &H80000001
' HKEY_LOCAL_MACHINE 	= &H80000002
' HKEY_USERS 		= &H80000003
' HKEY_CURRENT_CONFIG 	= &H80000005
'=====================================


'----------------------------------
'Ecriture dans le registre distant
'----------------------------------

HKEY_LOCAL_MACHINE = &H80000002
strComputer = "NomDuPc"
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\"
objReg.CreateKey HKEY_LOCAL_MACHINE, strKeyPath
ValueName = "DisableReverseAddressRegistrations"
dwValue = 1
objReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, ValueName, dwValue


'----------------------------------
'Lecture dans le registre distant
'----------------------------------

HKEY_LOCAL_MACHINE = &H80000002
strComputer = "NomDuPc"
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters"
ValueName = "DisableReverseAddressRegistrations"
objReg.GetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, ValueName, strValue
If IsNull(strValue) Then
    Wscript.echo "valeur de la clé:  La valeur est nulle ou ne peut pas être trouvé"
Else
    Wscript.echo "valeur de la clé: ", strValue
End If

 Conclusion

Je n'ai pas plus commenté la source que ça mais jepense que c'est assez explicite...
J'attends vos commentaires.
Merci


 Sources du même auteur

REMPLACE UNE CHAINE DE CARACTÈRES PAR UNE AUTRE POUR TOUS LE...
Toutes les sources de Hitch16

 Sources de la même categorie

Source avec Zip Source avec une capture RECHERCHE & SAUVEGARDE DES FICHIERS PAR LEURS EXTENSIONS par hackoo
Source avec Zip Source avec une capture [VBS] SPLASH SCREEN EN VBSCRIPT par hackoo
Source avec Zip Source avec une capture [VBS] GOOGLE EASTER EGGS par hackoo
Source avec Zip Source avec une capture FILE2COMPARE: COMPARAISON DE DEUX FICHIERS LIGNE PAR LIGNE par hackoo
Source avec Zip Source avec une capture [VBS] COMMENT CRÉER UN DOSSIER ET LE PROTÉGER PAR MOT DE PAS... par hackoo
Toutes les sources de la catégorie VBScript

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture [VBS] SPLASH SCREEN EN VBSCRIPT par hackoo
Source avec Zip Source avec une capture FLÉCHES DES ICONES DU BUREAU par Sechaud
Source avec Zip Source avec une capture Source .NET (Dotnet) OUVRIR BASE ACCESS PAR CLIC DROIT par Le Pivert
MISE EN ROUTE AUTOMATIQUE D'UN CHECK DISK SUR UNE MASSE DE P... par BelgiumWaffel
Source .NET (Dotnet) RÉCUPÉRER ADRESSE IP + MASQUE DE SOUS-RÉSEAU (SUBNET MASK) P... par bizmoute

Commentaires et avis

Commentaire de Hitch16 le 06/11/2007 15:10:25

J'oubliais!
Vous allez me dire "il y a des répétitions entre l'ecriture et la lecture" et je répondrais : certes mais ça s'adresse aux débutants, permettant de bien montrer les étapes de lecture (get) et d'écritures (create). On peut couper le script en deux, faire ce qu'on veut d'ailleurs, servez-vous !!! ;)

Commentaire de pile_poil le 28/11/2007 14:49:04

Tres intéressant mais moi je ne cherche à lire la base de registre que d'une machine sur mon réseau privé je suppose que dans le "GetObject" il doit y avoir un peu de texte à changer ?
merci d'avance

Commentaire de Hitch16 le 28/11/2007 16:44:36

Il n'y a rien à changer, le "GetObject" reste le même.
Je parle ici d'un réseau d'entreprise mais cela reste un réseau "privé", il n'est pas question de franchir internet.

Commentaire de pile_poil le 28/11/2007 18:43:15

merci de m'avoir répondu aussi vite mais en fait mon probleme venait surtout du fait que c'est du VBscipt et non pas du VB6 du coup ça me fait un reset de la machine appelée .....Mort De Rire je trop distrait !
Mais quel dommage c'était si beau en aussi peu de lignes!!!
moi qui suis un gros fainéant !!!!!

Commentaire de Hitch16 le 12/02/2008 09:11:24

Administrateur réseau quoi... :D

Commentaire de edpimi le 29/09/2008 09:39:21

Merci pour le code mais j ai le message "permission refusée"
donc il doit manquer dans ton code les parametres de droit (compte admin)

Commentaire de edpimi le 29/09/2008 10:03:20 5/10

Désolé ton code est bon c'est moi qui n'était pas dans le bon domaine!!!

Commentaire de Hitch16 le 29/09/2008 10:08:46

Aucun problème ;)

Commentaire de edpimi le 06/10/2008 10:26:48

Salut
Juste une question: que fais la variable strValue?
car a chaque fois j'ai le message :
=>La valeur est nulle ou ne peut pas être trouvé
alors que la cle de registre que je teste est présente sur le poste

Commentaire de Hitch16 le 06/10/2008 12:50:57

strValue te renvoie la valeur de la clé que tu as inscrite dans le registre distant, à savoir "1"

Commentaire de edpimi le 06/10/2008 17:05:51

Oui mais moi je cherche à lire cle de valeur REG_SZ et toi dans ton script tu met "objReg.GetDWORDValue" . Donc quelle serait a ton avis
le bon script?

Commentaire de Hitch16 le 06/10/2008 17:21:02

Je crois de mémoire que l'on ne peut lire que des DWORD à distance (à vérifier)
Test en remplaçant DWORD par REG_SZ partout où il est présent mais je doute... Désolé

Commentaire de edpimi le 06/10/2008 23:21:23

C'est bon j'ai trouvé
On peut lire les REG_SZ avec "objReg.getStringValue"
ca marche nikel!!

Commentaire de timalin le 26/06/2009 13:54:46

Chez moi ca ne marche pas!
est-ce qu'il faut autoriser quelque chose comme la modification du registre à distance sur la machine cible ou quoi?

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Registre Réseau [ par COlive ] Sa interresse qqun une dll ou ocx qui permet de modifier le registre d'un pc via réseau ? (sans prog client - serveur) ?Si oui, suis prêt pour dévelop vérifier le nom d'une machine sur un réseau et la renommer si il y a besoin (en vbscript) [ par dncmarco ] j'aimerais savoir comment vérifier si le nom d'un poste sur un réseau (ex: PN00245) est le bon, si oui c'est good, mais si il ne correspond pas à ma d Nom réseau d'un post et base de registre [ par ApiO ] Bonjour, Je voudrais savoir s'il existe dans la base de registre une clef qui continent le nom réseau de la machine, et ce quelque soit l'OS. Ex : s Débutant en VBScript , à l'aide [ par alexfreemans ] Bonjour à tous, je suis dans mes première heures d'apprentissage au VBS, et je ne sais pas par ou commencer.J'ai quelques notions en BAT et Base de registre et Vbscript [ par Mastersoft ] bonjour à tousJ'ai une question sur l'écriture dans la base de registre avec Vbscipt.J'utilise Wshshell.regwrite sur VB 6 et ça marche, Vbscript et base de registre [ par Mastersoft ] bonjour à tousJ'ai une question sur l'écriture dans la base de registre avec Vbscipt.J'utilise Wshshell.regwrite sur VB 6 et ça marche, VBScript : Scan des machines en Réseau pour afficher leurs pilotes [ par med_sp2 ] Bonjour, Je suis à la demande d'une idée ou d'un bout de code VBS pour identifier les périphériques (les drivers) sur chaque machine situé dans mon r Modifier la base de registre pour mettre mon navigateur par défaut [ par JeremyZoe ] Salut, j'ai déja beacoup avancé sur mon navigateur web, en fait il ne reste plus qu'un truc a faire : c'est la fonction pour mettre mon navigateur par réseau de neurone [ par a7med85 ] salut mes amis, je demande votre aide pour me donner les codes sources ( visual basic) pour créer un réseau de neurone capable de manupuler un bas de Enregistrement DLL .NET dans la base de registre [ par DavidSPIN ] Bonjour à tous, J'ai un soucis au niveau de l'enregistrement de ma DLL compilé en VB.NET (VBExpress 2008). L'erreur ne vient pas de l'enregistrement


Nos sponsors


Sondage...

Comparez les prix


Apple iPhone 4 Noir (32 Go)
Entre 1290€ et 1333€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Photo aérienne de Saintes Maries de la Mer
Photo Tropical Location With Palm Tree and Woman Holding Umbrella 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,749 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)