some code

Option Explicit
Public Const vbQuote = """"
Dim ws
Set ws = Wscript.CreateObject("Wscript.Shell")
'获取当前路径
Dim CurrentDirectory
CurrentDirectory = ws.CurrentDirectory

Dim FSO,FileName,FilePath
Set FSO = CreateObject("Scripting.FileSystemObject")

'获取当前路径
FilePath = FSO.GetFile(Wscript.scriptfullname).path
'获取当前文件名
FileName = FSO.GetFile(Wscript.scriptfullname).name
'获取当前文件名

Wscript.ScriptName