如何从另一个脚本访问 VBScript 之外的变量？

Question

I created a VBScript that accesses a bookmark in a word document:

`Set oShell = CreateObject("WScript.Shell")`

CreateObject("WScript.Shell").Run("""C:\\Users\\1241\\Downloads\\HotelDel__advance.docm""") WScript.Sleep (1000) WScript.CreateObject("WScript.Shell").SendKeys("%m") WScript.CreateObject("WScript.Shell").SendKeys("Beachservices") WScript.CreateObject("WScript.Shell").SendKeys("~")

I want this part of the code: (C:\\Users\\1241\\Downloads\\HotelDel__advance.docm) to be a variable that I access outside of this script, so that it would look like:

`Set oShell = CreateObject("WScript.Shell")
 CreateObject("WScript.Shell").Run(""Hotel"")
 WScript.Sleep (1000)
 WScript.CreateObject("WScript.Shell").SendKeys("%m")
 WScript.CreateObject("WScript.Shell").SendKeys("Beachservices")
 WScript.CreateObject("WScript.Shell").SendKeys("~")`

where Hotel is the variable.

I want this variable to equal the following:

`Hotel = C:\Users\1241\Downloads\HotelDel__advance.docm`

I need to be able to set this variable outside of this script, and be able to access this variable from within this script.

In other words, I want to create a bat or js or a vba or a vbs Script that sets this

`Hotel = C:\Users\1241\Downloads\HotelDel__advance.docm`

Variable, so I can access it from my other scripts.

How do I make this Variable available to other scripts, and how do I access this variable from within the scripts?

I have been working this issue on my own for about 3 months now, and I have been unable to figure it out. Any ideas? Thanks

Answer 1

You can define Hotel variable in Windows registry. For example, HKEY_LOCAL_MACHINE\\Software\\Scott\\Hotel

You need a process to set value to Hotel variable:

Const HKEY_LOCAL_MACHINE = &H80000002

Dim oReg
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Scott\"
KeyPath = "SOFTWARE\Scott"
strValueName = "Hotel"
' strValue = "C:\Users\1241\Downloads\HotelDel__advance.docm"
strValue =Inputbox("Hotel variable value","Scott program")

' Create key to use
objReg.CreateKey(HKEY_LOCAL_MACHINE, KeyPath)
objReg.SetStringValue(HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue)

You must adapt your code to read Hotel variable from registry:

Const HKEY_LOCAL_MACHINE = &H80000002

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Scott"
strValueName = "Hotel"
strHotel = ""
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strHotel

...

CreateObject("WScript.Shell").Run(strHotel)
 WScript.Sleep (1000)
 WScript.CreateObject("WScript.Shell").SendKeys("%m")
 WScript.CreateObject("WScript.Shell").SendKeys("Beachservices")
 WScript.CreateObject("WScript.Shell").SendKeys("~")`