写了下面一段vbs，用日期命名记事本。
我在桌面建vbs能运行可以建记事本，可是在wincc脚本中却建不了，不知道什么问题，请专家帮忙分析。

Dim WshShell, AutoSaveTime, TXTFileName
Dim myDate
mydate = date '今天的日期

AutoSaveTime=3000 '自动保存时间3s

Set WshShell=Ws cript.CreateObject("Ws cript.Shell")

TXTFileName=" book_" & myDate '记事本名为“book_日期”

WshShell.Run "notepad" '打开记事本

Ws cript.Sleep 200 '延时0.2s

WshShell.AppActivate "无标题 - 记事本" 'AppActivate为寻找可执行程序的标题框

WshShell.SendKeys "^s" ' 输入键”CTRL+s“保存

Ws cript.Sleep 300

WshShell.SendKeys TXTFileName '输入记事本名

Ws cript.Sleep 300

WshShell.SendKeys "%s" '在记事本中按Ctrl＋S组合键→弹出保存文件的窗口→输入文件名→按Alt＋S组合键进行保存

Ws cript.Sleep AutoSaveTime 'AutoSaveTime”变量用来设置自动存盘间隔，单位为毫秒，这里设置为3s

WshShell.SendKeys "%{F4}"

While WshShell.AppActivate (TXTFileName)=True

WshShell.SendKeys "^s"

Ws cript.Sleep AutoSaveTime

Wend

Ws cript.Quit