• 0

[vb Easy] Export Some Registry Keys To File


Question

Can anybody make a small VBscript which will export these registry keys to separate files? Here's how i want it,trasnlated to normal language

---------------------------------------------

export [HKEY_CURRENT_USER\Software\XXXXXXXX]

save it as X:\XXXX\XXX.REG

next

export [HKEY_CURRENT_USER\Software\ZZZZZZZZ]

save it as Z:\ZZZZ\ZZZ.REG

end

-----------------------------------------

i'll replace XXX and ZZZ.I'm sure this is very easy for all you vbscript programmers.Oh yes,and please make it silent,so i wont have to answer any questions and do not ask if i want to rewrite if file exist.

-one last thing,is it possible in VB to close program? like if i had one script which will close 5 programs which eat resources because and i'm gonna play game(this is only example) so it is possible?

Many Thanks

Dominik

3 answers to this question

Recommended Posts

  • 0

Here is a VBScript that will do the job

--------------------------------------------

Option Explicit

On Error Resume Next

'Declare variables

Dim WSHShell, TheKey, FName, OkToExec

'Set the Windows Script Host Shell

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

If (WScript.Arguments.Count > 0) And (WScript.Arguments.Count < 3) Then

OkToExec = True

FName = WScript.Arguments(0)

If WScript.Arguments.Count = 2 Then

TheKey = WScript.Arguments(1)

Else

If MsgBox("Are you sure you want to extract all the registry?", vbYesNo or vbDefaultButton2) = vbNo Then OkToExec = False

End If

'Extract the key from registry

If OkToExec Then

WSHShell.Exec "regedit /e /s """ & FName & """ """ & TheKey & """"

End If

End If

--------------------------------------------

Save it let's say as "c:\ExtractReg.vbs"

After you can run it like this

c:\ExtractReg.vbs X:\XXXX\XXX.REG HKEY_CURRENT_USER\Software\XXXXXXXX

Note: If in any path there is a space you must use the "

Example:

"c:\Program Files\ExtractReg.vbs" "c:\Program Files\test.reg" "HKEY_CURRENT_USER\Software\A Word"

=========================

If you want to have the file name and the key inside the script then use this

--------------------------------------------

Option Explicit

On Error Resume Next

'Declare variables

Dim WSHShell, TheKey, FName

'Set the Windows Script Host Shell

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

FName = "c:\Program Files\test.reg"

TheKey = "HKEY_CURRENT_USER\Software\A Word"

'Extract the key from registry

WSHShell.Exec "regedit /e /s """ & FName & """ """ & TheKey & """"

--------------------------------------------

This topic is now closed to further replies.
  • Recently Browsing   0 members

    • No registered users viewing this page.
  • Posts

    • It does when you're a software developer and you have to provide supports for these people.
    • Epic endless battle between Windows and Linux, as if it matters what OS the fella next door is running!
    • Microsoft 365 getting "major change" to how app updates will be released by Sayan Sen Microsoft tends to publish messages regarding upcoming Microsoft 365 app updates and changes on its Microsoft 365 admin center dashboard. Some of these posts are labelled as a "major change" as they require admin attention and monitoring to ensure smooth deployment of such changes, which can be new feature additions or removal of some. Communicating these early is crucial given that they can introduce bugs and issues, and sometimes they can be numerous as it happened with Outlook following a big Calendar upgrade. Microsoft recently announced changes to Teams-certified third-party app approvals. However, it may not be available to all licenses as initially announced. You can find the details in its dedicated article here. Another "major change" Microsoft has announced is about how the Microsoft 365 (M365) app update channels will function. For those who may not be familiar, the tech giant currently releases M365 app updates in four ways: Current channel, Monthly Enterprise channel, Semi-Annual Enterprise channel (preview), and Semi-Annual Enterprise Channel. Administrators, depending on how often and soon their organizations want the updates, can choose the servicing channel. However, Microsoft has announced today that it is deprecating the semi-annual preview channel and at the same time, reducing the support for the semi-annual channel from 14 months down to eight months. On the positive side, the company is extending the monthly channel servicing from one month to two. In an updated support document regarding this, Microsoft has outlined the changes. It writes: "Update Channel Changes Coming July 2025: Microsoft is making significant changes to update channels beginning July 2025: Monthly Enterprise Channel: Rollback support extended to 2 months (from 1 month) Semi-Annual Enterprise Channel (Preview): Being deprecated - migrate devices immediately Semi-Annual Enterprise Channel: Support duration reduced to 8 months (from 14 months), shifting to focus on unattended devices" Some additional details regarding this have also been released. Below, Microsoft has explained why the Semi-Annual Channel is seeing the alteration. The company writes: You can find the updated support document here on Microsoft's official website. Details about the change have also been communicated to the M365 Admin Center via message ID MC1087098.
    • Polaroid went bankrupt due to poor sales after the rise in digital cameras and cheaper analogue alternatives. Now nearly everyone has a digital camera in their pocket , it's pointless. Nostalgia wont sell big numbers.
  • Recent Achievements

    • Dedicated
      jbatch earned a badge
      Dedicated
    • Week One Done
      Leonard grant earned a badge
      Week One Done
    • One Month Later
      portacnb1 earned a badge
      One Month Later
    • Week One Done
      portacnb1 earned a badge
      Week One Done
    • First Post
      m10d earned a badge
      First Post
  • Popular Contributors

    1. 1
      +primortal
      264
    2. 2
      snowy owl
      158
    3. 3
      +FloatingFatMan
      145
    4. 4
      ATLien_0
      140
    5. 5
      Xenon
      131
  • Tell a friend

    Love Neowin? Tell a friend!