使用VBS复制文件

Question

'Set Dimension
DIM fso

'Set Objects
Set fso = CreateObject("Scripting.FileSystemObject")
Set fso1 = CreateObject("Scripting.FileSystemObject")

'wscript.sleep 10000

Set WSHNetwork = CreateObject("WScript.Network")
DomainString = WSHNetwork.UserDomain

'On Error Resume Next


    If not (fso.FileExists("C:\apps\tpp\rungen.bat")) Then
    'Alert User
    'WScript.Echo("File not exists!")

    'Copy source files
    fso.CopyFolder "\\Certero\packages$\tpp\apps", "c:\", OverWriteFiles

    'Copy icons to all users desktop
    fso1.CopyFile "c:\apps\SystmOne.ink", "c:\users\public\desktop\", True

    'WScript.Echo("Files copied")
    WScript.Quit()


    Else
    'Alert User
    'WScript.Echo("File does exist!")
    End If 

WScript.Quit

目前，该脚本不会将快捷方式复制到公共桌面。有人可以帮忙吗？