从文本文件向 VBScript 添加变量

Question

早上好，伙计们，

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

但我不确定如何让 VBS 读取替换 %USERID% 的文本文件，然后循环脚本。

目前我有：

If Not IsObject(application) Then
    Set SapGuiAuto  = GetObject("SAPGUI")
    Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
    Set connection = application.Children(0)
End If
If Not IsObject(session) Then
    Set session    = connection.Children(0)
End If
If IsObject(WScript) Then
    WScript.ConnectObject session,     "on"
    WScript.ConnectObject application, "on"
End If
session.findById("wnd[0]/usr/radSYSCEN").select
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]").press
session.findById("wnd[0]").sendVKey 3
session.findById("wnd[0]").sendVKey 3
session.findById("wnd[0]").sendVKey 3
session.findById("wnd[0]").sendVKey 3

如果我输入一个 %userID%，哪个会起作用。

任何帮助都会很棒。

p.s。对 VBS 完全菜鸟。 - 只需使用它，SAP GUI 就可以轻松地与它集成。

Answer 1

您可以尝试以下方法：

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

此致，脚本人

Answer 2

获取用户 ID 您可以使用 WScript：

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

或来自shell：

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

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

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

请注意，所有这些都取决于所使用的 OS。

从文本文件向 VBScript 添加变量

Adding Varible to VBScript from Text File

vbscript