Dim FSO, File1, ParentFolderPath, FileName
FileName = "GetParentFolder.vbs" ' Enter Script Filename here
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File1 = FSO.GetFile(FileName)
ParentFolderPath = File1.ParentFolder
MsgBox ParentFolderPath
WScript.Quit