Vbscript VBS脚本错误-“；预期报表"；-检查错误

我是新来的，如果我错了，请原谅我。我在这里使用这个代码，我得到一个

预期语句-第3行字符1

代码：

有什么想法吗

编辑：当试图将该代码放入下面这样的现有循环中时，我得到无效的charecter行1 char 1

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If
Set wshShell = WScript.CreateObject("WScript.Shell")
Do
  WScript.Sleep 100
  wshShell.Sendkeys "{CAPSLOCK}"
  wshshell.Sendkeys "{NUMLOCK}"
  wshshell.Sendkeys "{SCROLLLOCK}"

---

不确定从何处复制，但会丢失空格和换行符，这就是为什么会出现错误

预期语句-第3行字符1

在执行它的时候。代码应为：

Set wshShell=WScript.CreateObject（“WScript.Shell”）
做
WScript.Sleep 100
wshShell.Sendkeys“{CAPSLOCK}”
wshshell.Sendkeys“{NUMLOCK}”
wshshell.Sendkeys“{SCROLLLOCK}”
环

这是一个相当基本的脚本，它以100毫秒的等待时间循环（在操作系统与脚本斗争时阻止机器完全冻结），并发送密钥序列CAPSLOCK、NUMLOCK和scrollock。在我看来，这就像是一个恶作剧脚本，设计用于在大多数标准QWERTY键盘上按顺序反复闪烁LED键指示灯

---

值得注意的是，VBScript通常不是设计为永远运行的，编写这样的无限循环可能会产生不同的结果。

这可能

dowscript.sleep100wshShell.sendkeys

完全是胡说八道。看起来代码中缺少空格和换行符，这可能更有意义。

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If
Set wshShell = WScript.CreateObject("WScript.Shell")
Do
  WScript.Sleep 100
  wshShell.Sendkeys "{CAPSLOCK}"
  wshshell.Sendkeys "{NUMLOCK}"
  wshshell.Sendkeys "{SCROLLLOCK}"