Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Course Of The Month
3 days, 11 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Vbscript to query a registry key and pass to a batch file
Posted on 2011-02-22
Hi,
I need a script that will be able to query a reg_sz key in the registry within HKLM.
I would then like the vbscript to call another Windows Batch file and pass the key as a variable into this script. I assume I can then use %1 within the batch script.
Thanks
I need a script that will be able to query a reg_sz key in the registry within HKLM.
I would then like the vbscript to call another Windows Batch file and pass the key as a variable into this script. I assume I can then use %1 within the batch script.
Thanks
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
-
3
-
2
5 Comments
try this code
Give the reg key paths and modify test.bat to the batch file name
Yes, you can use %1 in batch file.
Give the reg key paths and modify test.bat to the batch file name
Yes, you can use %1 in batch file.
On Error Resume Next
strKeyPath = "SOFTWARE\Microsoft\Windows Script Host\Settings" 'give reg path
strValueName = "TrustPolicy" 'give key to get
strComputer = "."
Const HKEY_LOCAL_MACHINE = &H80000002
dim shell
set shell=createobject("wscript.shell")
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
'WScript.Echo "strvalue" & strvalue
shell.run "test.bat " & strvalue
set shell=nothing
you can test the following to hide the batch script
On Error Resume Next
strKeyPath = "SOFTWARE\Microsoft\Window
strValueName = "TrustPolicy" 'give key to get
strComputer = "."
Const HKEY_LOCAL_MACHINE = &H80000002
dim shell
set shell=createobject("wscrip
Set oReg=GetObject("winmgmts:{
strComputer & "\root\default:StdRegProv"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyP
'WScript.Echo "strvalue" & strvalue
shell.run "test.bat " & strvalue,0
set shell=nothing
On Error Resume Next
strKeyPath = "SOFTWARE\Microsoft\Window
strValueName = "TrustPolicy" 'give key to get
strComputer = "."
Const HKEY_LOCAL_MACHINE = &H80000002
dim shell
set shell=createobject("wscrip
Set oReg=GetObject("winmgmts:{
strComputer & "\root\default:StdRegProv"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyP
'WScript.Echo "strvalue" & strvalue
shell.run "test.bat " & strvalue,0
set shell=nothing
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
The recent Microsoft changes on update philosophy for Windows pre-10 and their impact on existing WSUS implementations.
When you try to extract and to view the contents of a Microsoft Update Standalone Package (MSU) for Windows Vista, you cannot extract the files from the MSU. Here we are going to explain how to extract those hotfix details without using any third pa…
In this video, we discuss why the need for additional vertical screen space has become more important in recent years, namely, due to the transition in the marketplace of 4x3 computer screens to 16x9 and 16x10 screens (so-called widescreen format). …
- Microsoft Legacy OS
- Windows 10
- Windows 8
- Windows OS
- Windows 7
- Windows Vista, Windows XP, Windows 2000
This Micro Tutorial will give you a basic overview of Windows Live Photo Gallery and show you various editing filters and touches to photos you can apply.
This will be demonstrated using Windows Live Photo Gallery on Windows 7 operating system.
Suggested Courses
Earn Certification
HTML5 Specialist - Certification
Free withPremium
Course of the Month3 days, 11 hours left to enroll
630 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.