Tilføje en DWORD i registreringsdatabase

Prøv nedenstående VBS kode:

Option Explicit

dim WshShell


Set WshShell = WScript.CreateObject("WScript.Shell")

Call WshShell.RegWrite( _
  "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoChangeStartMenu",_
  1,"REG_DWORD")
 
Mvh
Jesper Naur

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

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

strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\SharedDLLs"

strValueName = "C:\\Program Files\\Sysmantec\\SYMEVNT1.DLL"
dwValue = 1
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

Vil mene du kan bruge denne!

//>Rune

Her har du oxo en guide ;o)
http://www.zdnet.com/windows/wpro/9809/ts_ntworkstation.html

//>Rune

OK jeg skal have skåret det ud i pap!!! Til jespernaur: Kan jeg bare sætte det ind i en batchfil og så kører det bare?

Den kode jeg har angivet, skal du indsætte i en .vbs (Visual Basic Script) fil. Så kan den startes fx ved dobbeltklik.

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

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

strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
strValueName = "NoChangeStartMenu"
dwValue = 1
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue



Åben notepad.. Indsæt ovenstående og gem det som under navnet "TEST.VBS" som alle filer.. ok ?

Vær venlig at afslutte spm'et hvis du har fået svar!

//>Rune

Thx 4 Poinz

//>Rune