Isto irá esperar pela tecla ENTER:
strMessage = "Press the ENTER key to continue."
Wscript.StdOut.Write strMessage
Do While Not WScript.StdIn.AtEndOfLine
Input = WScript.StdIn.Read(1)
Loop
WScript.Echo "The script is complete."
Você pode verificar qual valor Input
está obtendo para ver se o pressionamento de tecla desejado tem um valor que você pode testar para