如何在脚本运行后将变量保存到脚本代码

Question

我目前正在为一些我用vbs创建的脚本制作一个愚蠢的UI（用户界面）。对于脚本的开始，您可以选择“设置”选项。它要求你的名字和东西。无论如何，我想要做的是有一个脚本，所以它保存输入和下次运行程序时使用的名称，如果他们不选择安装选项。这是它发生的部分。

Entry = Inputbox("Welcome To The Solus Project!" & vbNewLine & "" & vbNewLine & "Enter" & vbNewLine & "Setup" & vbNewLine & "Quit", "Solus Entry") 
If Entry = "Setup" Then 
InputName = Inputbox("Please Enter Your Name", "Name") 
ElseIf Entry = "Quit" Then 
Wscript.Quit 
ELseIf Entry = "Enter" Then 

所以一旦它保存名称变量“输入”我希望以后能够使用它，如果脚本被重新运行，因此人们不必不断地使用“设置”选项刷新他们的名字。在此先感谢，

-BTH

Answer 1

保存输入的名称后在本地文件，并从中读取 - 如果可能的话 - 在脚本的开头。简单快速&肮脏的例子可能看起来像这样：

Set objFso = CreateObject("Scripting.FileSystemObject") 
nameFilePath = "saved_name.txt" 
InputName = "" 

If (objFso.FileExists(nameFilePath)) Then 
    Set objFile = objFso.OpenTextFile(nameFilePath) 
    InputName = objFile.ReadLine 
    objFile.Close 
End If 

Entry = Inputbox("Welcome To The Solus Project!" & vbNewLine & "" & vbNewLine & "Enter" & vbNewLine & "Setup" & vbNewLine & "Quit", "Solus Entry") 
If Entry = "Setup" Then 
    InputName = Inputbox("Please Enter Your Name", "Name") 
    Set objFile = objFso.CreateTextFile(nameFilePath, True) 
    objFile.Write InputName 
    objFile.Close 
ElseIf Entry = "Quit" Then 
    Wscript.Quit 
ElseIf Entry = "Enter" Then 
    ' Some other stuff 
End If 

WScript.Echo InputName