WSH: Acceso Directo en el Menu Inicio
Posted on November 7th, 2007 in Código, Script |
El siguiente Script te permite crear un Acceso Directo en tus entradas del menu de inicio.
startmenu.vbs
Visual Basic:
-
Set objNetwork = CreateObject("Wscript.Network")
-
strUser = objNetwork.UserName
-
strPath = "C:\Documents and Settings\" & strUser
-
-
Set objShell = CreateObject("Wscript.Shell")
-
strPrograms = objShell.SpecialFolders("Programs")
-
-
Set objShellLink = objShell.CreateShortcut(strPrograms & "\" & strUser & ".lnk")
-
objShellLink.TargetPath = "c:/windows/system32/calc.exe"
-
objShellLink.Description = "Calculadora de " & strUser
-
objShellLink.WorkingDirectory = strPath
-
objShellLink.Save
Popularidad: 25%
