> Tous les forums > Forum Autres langages
 vbscript accès à la Base de registre (clé Autorun)
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
DenisCo
  Posté le 17/12/2012 @ 16:46 
Aller en bas de la page 
Nouvel astucien

Je tente de modifier une clé du registre à l'aide d'un vbscript.

Celle qui permet l'exécution automatique ou non du lecteur CDROM

Mon code fonctionne si je l'exécute dans un éditeur de vbscript, mais

si j'exécute le vbscript directement en cliquant mon vbscript, il ne fonctionne pas.

Quelqu'un peut m'indiquer quoi faire pour que cela fonctionne?

Je me demande si je ne dois pas d'abord modifier un droit d'accès à cette branche du registre.

Voici le code que j'ai commenté et où j'ai ajouté quelques fenêtres pour faire la trace du code :

' ______________________

Dim sh, varia

' varia est une variable qui prend une valeur 1 ou 0 permettant ou non l'exécution automatique d'un CD dans le CDROm
varia = 0


'assignation de l'objet
Set sh = WScript.CreateObject ("WScript.Shell")

On Error Resume Next

' J'affecte la valeur de varia dans la base de registre

sh.RegWrite "HKLM\SYSTEM\ControlSet001\services\cdrom\NoDriveAutoRun",varia,"REG_DWORD"
if err.number <> 0 then
wscript.echo "la clé n'est pas modifiée à " & varia
wscript.echo "Code d'erreur : " & err.number & vbcrlf & "Description: " & err.description
end if

' Je lis la valeur que j'ai affectée à Autorun pour m'assurer qu'elle a bien été changée.
RESULT= sh.regRead("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\services\cdrom\NoDriveAutoRun")

'J'affiche le résultat

sh.POPUP "la clé Autorun est à : " & RESULT

' fin du code

Publicité
breizhbugs
 Posté le 22/12/2012 à 11:57 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

crée un raccourci windows dont la commande est:

"wscript.exe tonfichier.vbs"

et essaie comme ca.

Si cela ne marche toujours pas, règle les propriétés du raccourci pour qu'il demarre en mode administrateur...

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
163,52 €Carte mère MSI B550 Tomahawk à 163,52 € livrée
Valable jusqu'au 13 Avril

Amazon Allemagne fait une promotion sur la carte mère MSI B550 Tomahawk à 156,20 €. Comptez 7,32 € pour la livraison en France soit un total de 163,52 € livrée. On la trouve ailleurs à partir de 180 €. Embarquant le chipset AMD B550, la carte mère MSI MAG B550 TOMAHAWK avec son socket AM4 est conçue pour accueillir les processeurs AMD Ryzen de 3ème génération. Elle permettra de composer une configuration Gaming disposant des dernières avancées technologiques : PCI-Express 4.0 pour les cartes graphiques et les SSD M.2, gestion de 128 Go de RAM DDR4. Tout est là pour une expérience gaming enivrante, à vous de jouer !

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane.


> Voir l'offre
10,99 €Bloc multiprise parasurtenseur BRENNENSTUHL 8 prises à 10,99 €
Valable jusqu'au 13 Avril

Cdiscount fait une promotion sur le bloc multiprise parasurtenseur BRENNENSTUHL avec 8 prises à orientation inversée qui passe à 10,99 € au lieu de 20 €. Le câble fait 1,4 m.


> Voir l'offre
Gratuit3 mois d'abonnement à Amazon Music Unlimited gratuits
Valable jusqu'au 24 Mai

Amazon vous permet d'essayer son service de streaming musical pendant 3 mois gratuitement. Avec Amazon Music Unlimited, accédez à plus de 50 millions de titres, sans publicité et en illimité sur tous vos appareils : smartphone, tablette, PC/Mac, Fire, Alexa. Vous avez même la possibilité de télécharger vos playlists pour des écoutes hors connexion. A la fin de ces 3 mois, vous pourrez basculer vers l'offre payante à 9,99 € / mois ou bien arrêter sans frais le service. A noter l'existence d'une offre famille à 14,99 € / mois qui permet jusqu'à 6 utilisateurs d'écouter leur musique à tout moment et sur leurs appareils préférés. Vous pouvez annuler l'abonnement à tout moment.


> Voir l'offre

Sujets relatifs
accès au registre en écriture par VB
Ajout de base de données Accès dans VB.NET
lire en VB6 une clé de la Base de registre
mysql base de données de récupération dans wampserver2
Base de données et VS 2015
acess et vba pour modification d'une base de donnée
Visual Basic & Base de données
Autorun cd
Modofication d' une clé de registre avec VB
registre
Plus de sujets relatifs à vbscript accès à la Base de registre (clé Autorun)
 > Tous les forums > Forum Autres langages