为何运行VBS脚本提示没有权限

问题补充说明：以下是我写的程序代码：请帮我看看是不是那儿写错了。为什么在运行的时候提示的是第7行第一字符错误，错误提示是没有权限。Set WshShell=WScript.CreateObject("***.Shell")Dim fso,d,dcSet fso=CreateObject("Scripting.FileSystemObject")Set dc=fso.DrivesFor Each d in dcIf d.DriveType=2 Then return=***.Run("defrag"& d &"-f",1,TRUE)End IfNextSet WshShell=Nothing

SetWshShell=WScript.CreateObject("***.Shell")

Dimfso,d,dc

Setfso=CreateObject("Scripting.FileSystemObject")

Setdc=fso.Drive务重厂s

ForEachdindc

Ifd.DriveType=2Then

***.Run"cmd/cdefrag"&d&"-f"

EndIf

Next

SetWs毫预员了论专星非每硫hShell=No片款移资宪该内福婷证座thing

看看这样可不可以