別のスクリプトからVBScript以外の変数にアクセスするにはどうすればよいですか？

Question

私はWord文書内のブックマークにアクセスするVBScript作成： (C:\Users\1241\Downloads\HotelDel__advance.docm) 私はこの外にアクセス可変とする：私は、コードのこの部分が欲しい

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

をスクリプトのようになります。

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

ここで、変数は変数です。

私は、この変数は、以下に等しくなるようにしたい：

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

私はこのスクリプトの外でこの変数を設定して、このスクリプト内からこの変数にアクセスできるようにすることができるようにする必要があります。言い換えれば

、私は、バットやJSやVBAまたはこの

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

変数を設定し、VBSスクリプトを作成したいので、私は私の他のスクリプトからアクセスすることができます。

この変数を他のスクリプトで使用できるようにするにはどうすればよいのですか。スクリプト内からこの変数にアクセスするにはどうすればよいですか？

私は約3ヶ月間この問題を自分で解決しており、私はそれを理解することができませんでした。何か案は？ありがとう

Answer 1

Windows変数に変数を定義することができます。たとえば、HKEY_LOCAL_MACHINE \ SOFTWARE \スコット\ホテル

あなたはホテルの変数に値を設定する処理が必要になります。

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) 

あなたはレジストリからホテルの変数を読み取るために、あなたのコードを適応させる必要があります。

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