Wie kann ich auf eine Variable außerhalb eines VBScript von einem anderen Skript zugreifen?

Question

habe ich eine VBScript, die ein Lesezeichen in einem Word-Dokument zugreift:

`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("~")

Ich möchte diesen Teil des Codes: (C:\Users\1241\Downloads\HotelDel__advance.docm) eine Variable, die ich außerhalb dieses zugreifen Skript, so dass es würde so aussehen:

`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("~")` 

wo sich das Hotel die Variable ist.

Ich mag diese Variable folgende gleich:

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

Ich brauche diese Variable außerhalb dieses Skripts einstellen zu können, und in der Lage diese Variable für den Zugriff von innerhalb dieses Skripts.

Mit anderen Worten, ich möchte eine Fledermaus oder js oder einen vba oder ein vbs Script erstellen, die diese

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

Variable setzt, so kann ich es von meinen anderen Skripten zugreifen.

Wie stelle ich diese Variable anderen Skripten zur Verfügung, und wie greife ich auf diese Variable innerhalb der Skripte zu?

Ich habe dieses Problem seit etwa 3 Monaten alleine bearbeitet, und ich konnte es nicht herausfinden. Irgendwelche Ideen? Danke

Answer 1

Sie können Hotelvariable in der Windows-Registrierung definieren. Zum Beispiel HKEY_LOCAL_MACHINE \ Software \ Scott \ Hotels

Sie benötigen einen Prozesswert auf Hotel Variable zu setzen:

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) 

Sie Ihren Code aus der Registry lesen Sie Hotel Variable anpassen müssen:

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("~")`