CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

jesperchristensen Nybegynder

27. juli 2004 - 10:11 Der er 5 kommentarer

læs i registreringdatabase

aloha - kloge mennesker. Jeg har et lille problem som jeg håber der er en som kan hjælpe med.

Hvordan læser en i registreringsdatasen med det formål et tjekke om en dll fil er registreret korrekt ?

Nøglen jeg skal have fat i hedder:

HKEY_CLASSES_ROOT\CLSID\{3955D421-C8F3-11d2-B7C8-A22B3D95F811}\InprocServer32

jeg er kommet frem til at jeg skal bruge regread - men den fejler hver gang med: invalid root in registry key. Hvad kan der være galt ??? - koden ser således ud:

Dim WSHShell,strRegValue,strRegKey,strRead
Set WSHShell = WScript.CreateObject("WScript.Shell")
strRegValue="HKEY_CLASSES_ROOT\CLSID\3955D421-C8F3-11d2-B7C8-A22B3D95F811\InprocServer32"
strRead=WSHShell.RegRead(strRegValue)
WScript.Echo "It currently says: " & strRead

Synes godt om

ttopholm Nybegynder

27. juli 2004 - 20:55 #1

enten er default værdien tom eller så findes key'en ikke

Synes godt om

bfjmnemonic Nybegynder

12. august 2004 - 15:36 #2

Du kan gøre således:

Dim WSHShell,strRegValue,strRegKey,strRead
Set WSHShell = WScript.CreateObject("WScript.Shell")
strRegValue="HKEY_CLASSES_ROOT\CLSID\3955D421-C8F3-11d2-B7C8-A22B3D95F811\InprocServer32"

On Error Resume Next
strRead=WSHShell.RegRead(strRegValue)
If Err.Number <> 0 Then
Err.Clear
WScript.Echo "Nøglen fantes ikke!"
Else
WScript.Echo "Den var der fileme..:"
WScript.Echo "It currently says: " & strRead
End If

On Error Goto 0

Synes godt om

bfjmnemonic Nybegynder

12. august 2004 - 15:36 #3

Hov det var jo et svar.

Synes godt om

drukkenbolden Nybegynder

21. december 2004 - 15:42 #4

et eksempel fra ms:

Reading a Binary Registry Value

Description
Uses WMI to read a binary registry value.

Script Code

const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set StdOut = WScript.StdOut

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
strValueName = "LicenseInfo"
oReg.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath,_
strValueName,strValue

For i = lBound(strValue) to uBound(strValue)
StdOut.WriteLine strValue(i)
Next

Synes godt om

drukkenbolden Nybegynder

21. december 2004 - 15:42 #5

Reading a MultiString Value

Description
Uses WMI to read a multi-string registry value.

Script Code

const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set StdOut = WScript.StdOut

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")

strKeyPath = "SYSTEM\CurrentControlSet\Services\Eventlog\System"
strValueName = "Sources"
oReg.GetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath,_
strValueName,arrValues

For Each strValue In arrValues
StdOut.WriteLine strValue
Next

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra VBscript kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Ændre navn på folder Af bsn i VBscript	12	07/07/202312:45	09/07/202307:04
Outlook makro Af Webnoob i VBscript	6	09/02/202313:32	16/02/202315:51
Sti / Filname med mellemrum ??? Af ksor i VBscript	10	07/10/202200:43	07/10/202215:40
GetLastRow - Google spreadsheet Af rickiegrayholm i VBscript	2	22/04/202213:23	22/04/202214:55
Batch fil Af BDV i VBscript	1	12/01/202210:00	12/01/202210:05

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS