wscript.shell - Microsoft vbscript 运行时错误对象不支持此属性：WScript.CreatObject

Question

基本上，当我运行 .vbs 文件时，它给了我第一行的错误：对象不支持此属性或方法：“WScript.CreatObject”

mySecret = inputbox("enter text to be encoded")
mySecret = StrReverse(mySecret)
x.Run "%windir%\notepad"
wscript.sleep 1000
x.sendkeys encoded(mySecret)

function encode(s)
For i = 1 To Len(s)
newtxt = Mid(s,i,1)
newtxt = Chr(Asc(newtxt)+5)
coded = coded & newtxt
Next
encode = coded
End Function
[enter image description here][1]


  [1]: https://i.stack.imgur.com/tSY79.jpg