Vbscript Visual Basic语句结束？

所以，当我运行下面的代码时，它在第三行出现错误，表示语句结束。有什么想法吗

Set objShell = WScript.CreateObject("WScript.Shell")
Set lnk = objShell.CreateShortcut("C:\Users\%USERDATA%\Desktop\Shutdown.LNK")
Dim strUserProfile as String
strUserProfile = objShell.ExpandEnvironmentStrings("%USERPROFILE%")

lnk.TargetPath = "C:\Users\" & strUserProfile & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\shutdown.bat"
lnk.Arguments = ""
lnk.Description = "Shutdown"
'lnk.HotKey = "ALT+CTRL+F"
lnk.IconLocation = "C:\Users\" & strUserProfile & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\shutdown.bat, 2"
lnk.WindowStyle = "1"
lnk.WorkingDirectory = "C:\Users\" & strUserProfile &"\AppData\Roaming\Microsoft\Windows\Start Menu\Programs"
lnk.Save
Set lnk = Nothing

---

在VBScript中，没有“String”对象，因此不能将Dim strMyString作为String

---

因此，在您的情况下，您只需执行以下操作：

Dim struster profile

我希望程序在IconLocation之后创建一个指向位置的快捷方式，目标是TargetPath。由于某些原因，它在声明变量时出错。它可能不会。上面写着第三行的第20个字符。下一行可能有错误。VBScript是非类型化语言。将

作为字符串删除

。就是这样。谢谢。请提交一个新问题和更新的代码，包括错误描述和错误行号。