从文本文件向VBScript添加变量

各位早上好

我正在尝试创建一个VBscript来自动化SAPGUI中的函数

但我不确定如何让VBS读取文本文件，重新发布%USERID%，然后循环脚本

目前我有：

如果不是IsObject（应用程序），则
设置SapGuiAuto=GetObject（“SAPGUI”）
设置应用程序=SapGuiAuto.GetScriptingEngine
如果结束
如果不是IsObject（连接），则
设置连接=应用程序.Children（0）
如果结束
如果不是IsObject（会话），则
设置会话=连接。子级（0）
如果结束
如果是IsObject（WScript），则
WScript.ConnectObject会话，“打开”
WScript.ConnectObject应用程序，“打开”
如果结束
session.findById（“wnd[0]/usr/radSYSCEN”）。选择
session.findById（“wnd[0]/usr/chkORG”）。selected=true
session.findById（“wnd[0]/usr/txtUSRID”）.text=“%USERID%”
session.findById（“wnd[0]/usr/chkORG”）.setFocus
session.findById（“wnd[0]/tbar[1]/btn[8]”。按
session.findById（“wnd[0]”）。sendVKey 3
session.findById（“wnd[0]”）。sendVKey 3
session.findById（“wnd[0]”）。sendVKey 3
session.findById（“wnd[0]”）。sendVKey 3

您可以尝试以下操作：

'From the shell:
set wshell = createobject("Wscript.Shell")
Set WshEnv = Wshell.Environment("PROCESS")
session.findById("wnd[0]/usr/txtUSRID").text = wshEnv("USERID")

问候,，

---

ScriptMan

要获取用户ID，可以使用WSScript：

Dim objNetwork
Set objNetwork = CreateObject("WScript.Network")
MsgBox objNetwork.UserName

或从外壳：

Set wshShell = WScript.CreateObject( "WScript.Shell" )
strUserName = wshShell.ExpandEnvironmentStrings( "%USERNAME%" )

或者来自环境变量（它应该可以工作，但当我测试时它是错误的！）：

---

请注意，所有这些都取决于所使用的操作系统。

使用

脚本。FileSystemObject

。但是，从命令行参数获得它会更好吗？

Set WshShell = CreateObject("WScript.Shell")
Set WshEnv = WshShell.Environment
MsgBox "USERNAME=" & WshEnv.Item("USERNAME")