我正在尝试为 Windows 创建我自己的自定义对话框，使用快捷方式/wscript/和 VBS 从头开始​​制作它们，使它们尽可能逼真。对于我的一些错误/对话框，我想在对话框中使用 %computername% 变量以使其看起来更真实 - 例如“驱动器 C:已在 %computername% 上格式化 我以前在批处理文件中使用过这样的变量，它总是有效。我意识到 VBS 是一种具有不同语法的不同语言，但我尝试过的示例都没有奏效。

这是我最初尝试做的:

Set WshShell = WScript.CreateObject( "WScript.Shell" )
x=msgbox("Windows has reformatted Drive C: on %computername% successfully.", 0+64, "Hard Disk Reformat Successful")

显然这没有用，我得到以下信息:

我阅读了一些关于使用 VBS 环境变量的内容。但我发现的解决方案均无效。

以下是我使用的一些无效资源 - 我列出了我使用的资源、我使用的代码以及结果图片:

<强>1。 Stack Overflow

     Set WshShell = WScript.CreateObject( "WScript.Shell" )
     dim oFso, oShell, oShellEnv, computerName, target, source
     const overwrite = true
     set oFso      = CreateObject("Scripting.FileSystemObject")
     set oShell    = WScript.CreateObject("WScript.Shell")
     set oShellEnv = oShell.Environment("Process")
     computerName  = oShellEnv("ComputerName")
     x=msgbox("Windows has reformatted Drive C: on computerName successfully.", 0+64, "Hard Disk Reformat Successful")

<强>2。 Stack Overflow (different page)和 ss64

    dim strValue
    Set WshShell = WScript.CreateObject( "WScript.Shell" )
    Set objShell = CreateObject("WScript.Shell")
    objShell.Environment("computername") = "This is some data to share"
    strValue = objShell.Environment("VOLATILE")("MyVariable")
    x=msgbox("Windows has reformatted Drive C: on strValue successfully.", 0+64, "Hard Disk Reformat Successful")

<强>3。 Google Groups

    Set WshShell = WScript.CreateObject( "WScript.Shell" )
    Set wshShell = Wscript.CreateObject( "Wscript.Shell" )
    WScript.Echo "HOSTNAME: " & wshShell.ExpandEnvironmentStrings
    ( "%COMPUTERNAME%" )
    WScript.Echo "DOMAIN  : " & wshShell.ExpandEnvironmentStrings
    ( "%USERDOMAIN%" )
    WScript.Echo ""
    strServer=wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )
    x=msgbox("Windows has reformatted Drive C: on strServer successfully.", 0+64, "Hard Disk Reformat Successful")

我是不是做错了什么？任何人都可以对此有所了解吗？这似乎是一个相当微不足道的问题，我觉得你应该能够将环境变量集成到一个对话框中(我以前在 Windows 中本地看到过它。)我已经使用批处理文件很长时间了，但相对较新到 VBS 脚本，所以如果我在某处或某处犯了一个非常愚蠢的错误，我深表歉意，

我正在寻找任何可行的解决方案。只要我看到 %computername% 是实际的本地主机名，而不是 computerName 或变量名，那就太好了。

提前感谢您的所有帮助!

编辑: 回复@Lankymart

使用这段代码:

set WshShell = WScript.CreateObject( "WScript.Shell" )
Set wshShell = Wscript.CreateObject( "Wscript.Shell" )
WScript.Echo "HOSTNAME: " & wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )
WScript.Echo "DOMAIN  : " & wshShell.ExpandEnvironmentStrings( "%USERDOMAIN%" )
WScript.Echo ""
strServer=wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )
x=msgbox("Windows has reformatted Drive C: on strServer successfully.", 0+64, "Hard Disk Reformat Successful")

给我这个:

这更好，但不是我想要的。如果我单击“确定”，那么我会收到域，然后是一个空框，然后是带有 strServer 的原始消息，其中计算机名应该是

最佳答案

您正在尝试模拟一个批处理文件。 VBS 有它自己的方式。 VBS方式更可靠。

来自 https://www.microsoft.com/en-au/download/details.aspx?id=2764 的帮助

     Set WshNetwork = WScript.CreateObject("WScript.Network")
     WScript.Echo "Domain = " & WshNetwork.UserDomain
     WScript.Echo "Computer Name = " & WshNetwork.ComputerName
     WScript.Echo "User Name = " & WshNetwork.UserName

您遇到的问题是需要使用 & 连接字符串和变量。 VB/VBS 字符串中唯一的特殊含义是两个引号 ("") 表示一个引号。其他一切都是文字，不像基于 C 的语言(并且以不同的方式批处理文件)。

msgbox "Windows has reformatted Drive C: on " & strServer & " Successfully."

关于windows - 如何在VBS 中使用MsgBox 中的计算机名环境变量？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/36573866/