Script en VBS (loginscript)

[bufalo will]

Hola,

He encontrado esto en internet y funciona correctamente, alguien sabe como hacer lo mismo pero para el "start menu" en vez del "desktop"?
Gracias

Dim WSHShell, DesktopPath
Set WSHShell = WScript.CreateObject("WScript.Shell")
DesktopPath = WSHShell.SpecialFolders("Desktop")
' ON ERROR RESUME NEXT prevents error messages from appearing.
' Useful if the file or folder might have already been removed.
on error resume next
Icon = DesktopPath & "\sample.txt"
Folder = DesktopPath & "\sample folder"
Set fs = CreateObject("Scripting.FileSystemObject")
Set A = fs.GetFile(Icon)
A.Delete
set B = fs.GetFolder(folder)
B.Delete
WScript.Quit