זקוק לעזרה קטנה בהעתקת קובץ בשפת VBS

כתבתי סקריפט שאמור להעתיק קובץ מסויים לכול מחשבי הרשת

הבעיה שלי היא שאני רוצה לתת למשתמש לבחור את הקובץ מהמחשב

ורק אז לבצע את ההעתקה אבל כאשר אני מגיע למצב שאני צריך להעביר קובץ שהוא בעצם קיצור דרך לקובץ אחר הוא מעביר

לי את הקובץ המקורי ולא את הקיצור דרך של הקובץ

הנה הסקריפט שאם תשתמשו בוא ותבחרו בקובץ קיצור דרך הוא יראה את ה PATH של המקור ולא של קיצור הדרך

אך אני מקבל את המיקום של קיצור הדרך כדי שאני יוכל להעתיק אותו ליעד אחר?

Dim x

Set ObjFSO = CreateObject("UserAccounts.CommonDialog")

InitFSO = ObjFSO.ShowOpen

If InitFSO = False Then

Wscript.Echo "You did not select a file!"

Wscript.Quit

Else

Wscript.Echo "You selected the file: " & ObjFSO.FileName

End If