Dim wsSet ws = CreateObject("Wscript.Shell")a = "你好"ws.Run "C:\Windows\system32\cmd.exe /c set /p a=" + a + "'你可以将“你好”替换为任意值