[VBS] Change register value with user input

[Hari-Bo]

Ik heb nul ervaring op het gebied van VBS compileren, maar ik heb toch een poging geprobeerd. Want wat ik wil realiseren is dat een register key:
[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ComputerName] "mnmsrvc"
Door middel van een prompt gewijzigd kan worden.

Ik kwam met goochelen op deze site: http://www.experts-exchan...indows/XP/Q_23865252.html die redelijk een gelijkmatig issue had, alleen met een loop inbouwd om meerdere regiuster values aan te passen.
Dit script werd er als oplossing gegeven:

VBScript:

 
Const HKEY_LOCAL_MACHINE = &H80000002
Const cTitle = "Change Registry Values"
strComputer = "."
Set oWS = CreateObject("wscript.shell")
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
    strComputer & "\root\default:StdRegProv")
 
 
sKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"
sValueName = "DefaultUserName"
sDomain = "DefaultDomainName"
sDomainValue = "MCPS"
Do
sValue = InputBox("Please type in the DefaultUserName registry value you want to use:", cTitle, "(Enter value)")
    If sValue = "" Then
        sRes = oWS.Popup("Sorry, you must enter the DefaultUserName reg value to continue." &_
        " Do you wish to try again?", ,cTitle,vbExclamation+vbYesNo)
            If sRes = vbNo Then
                oWS.Popup "User canceled, Exiting script!", , cTitle, vbInformation
                WScript.Quit
            End If
    End If
Loop Until sValue <> ""
 
oReg.SetStringValue HKEY_LOCAL_MACHINE,sKeyPath,sValueName,sValue
oReg.SetStringValue HKEY_LOCAL_MACHINE,sKeyPath,sDomain,sDomainValue
 
oReg.GetStringValue HKEY_LOCAL_MACHINE,sKeyPath,sValueName,sValue2
oReg.GetStringValue HKEY_LOCAL_MACHINE,sKeyPath,sDomain,sDomainValue2
 
If sValue <> sValue2 Or sDomainValue <> sDomainValue2 Then
    oWS.Popup "There was a problem in changing the registry values," &_
    " please check that you have enough rights to write to the HKLM of the registry", , cTitle, vbCritical
Else
    oWS.Popup "Registry values were changed successfuly!", , cTitle, vbInformation
End If

Ik heb geprobeerd om het script aan te passen om het toe te passen in mijn situatie, maar daar krijg ik meteen een error op line 5, en je raad het al hier stopt mijn kennis.

VBScript:

 
Const HKEY_LOCAL_MACHINE = &H80000002
Const cTitle = "Change Registry Values"
strComputer = "."
Set oWS = CreateObject("wscript.shell")
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
    strComputer & "\root\default:StdRegProv")
 
 
sKeyPath = "SYSTEM\ControlSet001\Control\ComputerName\ComputerName"
sValueName = "ComputerName"
Do
sValue = InputBox("Please type in the ComputerName registry value you want to use:", cTitle, "(Enter value)")
    If sValue = "" Then
        sRes = oWS.Popup("Sorry, you must enter the ComputerName reg value to continue." &_
        " Do you wish to try again?", ,cTitle,vbExclamation+vbYesNo)
            If sRes = vbNo Then
                oWS.Popup "User canceled, Exiting script!", , cTitle, vbInformation
                WScript.Quit
            End If
    End If
Loop Until sValue <> ""
 
oReg.SetStringValue HKEY_LOCAL_MACHINE,sKeyPath,sValueName,sValue
 
If sValue Then
    oWS.Popup "There was a problem in changing the registry values," &_
    " please check that you have enough rights to write to the HKLM of the registry", , cTitle, vbCritical
Else
    oWS.Popup "Registry values were changed successfuly!", , cTitle, vbInformation
End If

[Woy]

Op deze manier voldoet je topic niet op onze eisen. We zijn hier geen forum om mensen te gaan leren programmeren. Natuurlijk kun je gewoon een topic openen als je tegen problemen aanloopt, maar je zal toch eerst zelf enige basis kennis op moeten doen.

Compiler/Parser fouten moet je 99% van de tijd gewoon zelf op kunnen lossen.

Maar buiten dat geef je sowieso ook al te weinig informatie. Zo zeg je wel dat het fout gaat, maar je geeft totaal niet aan wat er fout gaat.

Verder gaan we er ook van uit dat je je probleem probeert te debuggen, en verder te lokaliseren. Het is dus niet de bedoeling dat je hier je complete code dumpt. We zien graag alleen relevante stukken code. Om je daar verder mee te helpen kan ik je ook aanraden om eens Tips bij het debuggen door te lezen

Ook staat je topic nog eens op de verkeerde plek, want VBS hoort in Windows Clients ( Waar hoort mijn topic? )

edit:
Hari-Bo heeft via DM nog laten weten een oplossing gevonden te hebben. Hieronder zijn uiteindelijke code

VBScript:

' /* Maak Shell Object */ 
Dim newurl 
Dim WSH 
set WSH = createobject("WScript.Shell") 

' /* User prompt. */ 
registerkeyvaluenew = inputbox("Melding naar gebruiker") 

' /* Sluit script af na Cancel of afsluiten. */ 
If computername = "" Then WScript.Quit 

' /* Wijziging Register key, hier geef je aan welke registerkey er gewijzigd moet worden. */ 
wsh.regwrite "pad registerkey", registerkeyvaluenew 

' /* Melding na wijziging. */ 
MsgBox "melding na wijziging"

[ Voor 23% gewijzigd door Woy op 05-01-2010 15:04 ]