写VBS脚本
Set WshShell = createobject("wscript.shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set objFSO = CreateObject("Scripting.FileSystemObject")
IF objFSO.FileExists(strDesktop & "/OA.url") THEN
objFSO.DeleteFile strDesktop & "/OA.url"
End If
Set WshShell = NOTHING
Set objFSO = NOTHING