Multidesk.be » Forums » Programmeren algemeen » Visual Basic <-> VBscript

  • Pagina
  • 1 van 1
0 gasten lezen dit onderwerp.
^ Onderwerp geschreven door joke op woensdag 18 januari 2017 om 14:28:37.
joke's avatar
Multiviteit: 2669
Morgen wordt het beter.
Ik heb wat zitten prutsen met code en dacht dat het resultaat is de twee gevallen het zelfde zou zijn. Maar het is verschillend. Wie kan daar een uitleg aan geven?

Dixit

Dim objshell,path,DigitalID, Result
Set objshell = CreateObject("WScript.Shell")
Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
ProductName = "Product Name: " & objshell.RegRead(Path & "ProductName")
MsgBox(ProductName)



Dixit

Dim hk As String = "HKEY_LOCAL_MACHINE"
Dim sk As String = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
Dim nm As String = "ProductName"
Dim readValue = My.Computer.Registry.GetValue(hk & "\" & sk, nm, Nothing)
MsgBox(readValue)

Dochters, tot hun 16e zeuren ze om een paard en op hun 17e komen ze thuis met een ezel
^ Reactie #1 geschreven door joke op woensdag 18 januari 2017 om 21:27:59.
joke's avatar
Multiviteit: 2669
Morgen wordt het beter.
Nog een aanvulling:

Bij de start gaven de twee methodes allebei het zelfde resultaat. Dan heb ik via regedit de waarde in het register gewijzigd en voor de zekerheid de pc opnieuw opgestart en de proef terug gedaan.

Het resultaat met VB was ongewijzigd, mijn wijzigingen in het register werden genegeerd. Maar het resultaat van het script gaf de wijziging correct weer.

VB en script lezen dus niet hetzelfde in de registry. Hoe is dat te verklaren?

Dochters, tot hun 16e zeuren ze om een paard en op hun 17e komen ze thuis met een ezel
^ Reactie #2 geschreven door thekid op woensdag 18 januari 2017 om 22:36:30.
thekid's avatar
Multiviteit: 5273
Moderator
VB of VB.net (ik vraag het voor het samenvoegen van het pad)? Het path ziet er niet hetzelfde uit.

Wat krijg je dan van uitvoer? Daar ik momenteel van thuis uit enkel op Linux werk kan ik ten vroegste morgen eens kijken op mijn werk ;)
"Human beings make life so interesting. Do you know, that in a universe so full of wonders, they have managed to invent boredom." - Death in Hogfather
^ Reactie #3 geschreven door joke op donderdag 19 januari 2017 om 09:37:23.
joke's avatar
Multiviteit: 2669
Morgen wordt het beter.
Allee wie werkt er nu nog met Linux? Er is toch Windows 10!!

Voor alle duidelijkheid heb ik maar enkele printscreens gemaakt daar is alles te zien.
Bijlage: 734c1b4653a5c5f5e027ab345345007a.png
Bijlage: 9335de2205b32f9468ad5409788714ea.png
Bijlage: 307f9dd5926cb048c68cbe7b16a19aa2.png
Deze tekst werd het laatst bewerkt voor 14.06 % door joke op donderdag 19 januari 2017 om 09:38:23.

Dochters, tot hun 16e zeuren ze om een paard en op hun 17e komen ze thuis met een ezel
  • Pagina
  • 1 van 1

Snel-antwoordformulier
Toon uitgebreid antwoordformulier Bericht nalezen Bericht plaatsen