Solved

Use VBS script and WSHShell.RegWrite

Posted on 2004-09-29
4
4,439 Views
Last Modified: 2008-01-09
A small project I am working on requires a silent installation of some software. For NAV2k5, it means no CD Key gets entered. I want a .vbs script I can run that prompts for the CD key, then merges the key to the registry.
This can be done with the info here ( http://www.winguides.com/scripting/library.php?id=6 ).

The key is...
[HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\CCPD-LC\KStore\00000082\00000002\00000002]
"Key"="xxxxxxxxxxxxxxxxxxxxxxxx"

I need the .vbs script to prompt for the "xxxxxxxx"'s
Should be easy enough, I think...I don't know how to do it though. Any takers?
0
Comment
Question by:DVation191
  • 2
  • 2
4 Comments
 
LVL 4

Expert Comment

by:avi247
ID: 12181919
Option Explicit

' [HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\CCPD-LC\KStore\00000082\00000002\00000002]
' "Key"="xxxxxxxxxxxxxxxxxxxxxxxx"
' REF:  http://www.winguides.com/scripting/library.php?id=6

Dim CDKEY
Dim WSHShell, RegKey, ScreenSaver, Result


CDKEY = InputBox("CD Key","Please enter the CD Key and press Ok. Press Cancel to Exit.","")

' keep asking till your CDKEY is valid or user exits.
While Not IsCDKeyValid(CDKEY)
  CDKEY = InputBox("CD Key","Please enter a valid CD Key and press Ok.","")
wend


Set WSHShell = CreateObject("WScript.Shell")
RegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\CCPD-LC\KStore\00000082\00000002\00000002\"
WSHShell.RegWrite regkey & "Key", CDKEY
Set WSHShell = Nothing
Msgbox("Done")


Function IsCDKeyValid(CDKEY)

  CDKEY = Trim(CDKEY)  

 'enter validation functions here
  If Len(CDKEY) = 0 Or Len(CDKEY) = 10 then
    IsCDKeyValid = True
  else
    IsCDKeyValid = False
  end if

End Function
0
 
LVL 20

Author Comment

by:DVation191
ID: 12182513
looks good.

i'd do this myself if i could...but could you remove the valid cd key check? it isnt necessary because i want to be able to accept a variety of legit keys, and the application itself will check the validity of the key upon startup.

if you could do that i'd say this question is closed. thanks for your help.
0
 
LVL 4

Accepted Solution

by:
avi247 earned 500 total points
ID: 12182878
Option Explicit

' [HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\CCPD-LC\KStore\00000082\00000002\00000002]
' "Key"="xxxxxxxxxxxxxxxxxxxxxxxx"

Dim CDKEY
Dim WSHShell, RegKey, ScreenSaver, Result


CDKEY = InputBox("Please enter the CD Key and press Ok. Press Cancel to Exit.","CD Key","")


If CDKEY <> "" then
      Set WSHShell = CreateObject("WScript.Shell")
      RegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\CCPD-LC\KStore\00000082\00000002\00000002\"
      WSHShell.RegWrite regkey & "Key", CDKEY
      Set WSHShell = Nothing
end if

0
 
LVL 20

Author Comment

by:DVation191
ID: 12183027
Many thanks. It's perfect!
0

Featured Post

Enabling OSINT in Activity Based Intelligence

Activity based intelligence (ABI) requires access to all available sources of data. Recorded Future allows analysts to observe structured data on the open, deep, and dark web.

Join & Write a Comment

A short article about a problem I had getting the GPS LocationListener working.
Displaying an arrayList in a listView using the default adapter is rarely the best solution. To get full control of your display data, and to be able to refresh it after editing, requires the use of a custom adapter.
In this fifth video of the Xpdf series, we discuss and demonstrate the PDFdetach utility, which is able to list and, more importantly, extract attachments that are embedded in PDF files. It does this via a command line interface, making it suitable …
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…

707 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

14 Experts available now in Live!

Get 1:1 Help Now