如何将变量添加到文件位置vbscript / html

Question

这是vbs。我不确定我做错了什么。

Sub Window_onLoad 
    Set objSysInfo = CreateObject( "WinNTSystemInfo" )
    strUserName = objSysInfo.UserName
End Sub
Sub OpenCP
   CreateObject("WScript.Shell").Run("""C:\Users\" & strUserName & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\System Tools\Control Panel.lnk""")
End Sub

以下是我访问子网站的方式。

<input type="button" value="Open Control Panel" name="open_cp" onClick="OpenCP" id="button">

Answer 1

CreateObject("WScript.Shell").Run "control"

就是你所需要做的一切。