Personnalisation : Epingler un raccourci dans le menu démarrer par script

Exemple de script pour epingler un raccourci dans le menu demarrer

Const CSIDL_COMMON_PROGRAMS = &H17
Const CSIDL_PROGRAMS = &H2
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Shell = CreateObject("WScript.Shell")

Dim Destination
Destination = Shell.ExpandEnvironmentStrings(("%APPDATA%") & "\Microsoft" & "\Internet Explorer" & "\Quick Launch" & "\User Pinned" & "\StartMenu" & "\Mozilla Firefox.lnk")
If FSO.FileExists(Destination) = True Then
FSO.DeleteFile Destination
Else on error resume next
End If

 
Set objShell = CreateObject("Shell.Application")
Set objAllUsersProgramsFolder = objShell.NameSpace("C:\ProgramData\Microsoft\Windows\Start Menu")
strAllUsersProgramsPath = objAllUsersProgramsFolder.Self.Path
'msgbox strAllUsersProgramsPath
Set objFolder = objShell.Namespace(strAllUsersProgramsPath)
Set objFolderItem = objFolder.ParseName("Mozilla Firefox.lnk")
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
	'wscript.Echo objVerb.name
	If Instr(UCase(objVerb.name),"MENU") <> 0 And Instr(UCase(objVerb.name),"MARRER") <> 0 Then

 	objVerb.DoIt
	End If
Next

Const CSIDL_COMMON_PROGRAMS = &H17

Const CSIDL_PROGRAMS = &H2

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Shell = CreateObject("WScript.Shell")

Dim Destination

Destination = Shell.ExpandEnvironmentStrings(("%APPDATA%") & "\Microsoft" & "\Internet Explorer" & "\Quick Launch" & "\User Pinned" & "\StartMenu" & "\Mozilla Firefox.lnk")

If FSO.FileExists(Destination) = True Then

FSO.DeleteFile Destination

Else on error resume next

End If

Set objShell = CreateObject("Shell.Application")

Set objAllUsersProgramsFolder = objShell.NameSpace("C:\ProgramData\Microsoft\Windows\Start Menu")

strAllUsersProgramsPath = objAllUsersProgramsFolder.Self.Path

'msgbox strAllUsersProgramsPath

Set objFolder = objShell.Namespace(strAllUsersProgramsPath)

Set objFolderItem = objFolder.ParseName("Mozilla Firefox.lnk")

Set colVerbs = objFolderItem.Verbs

For Each objVerb in colVerbs

'wscript.Echo objVerb.name

If Instr(UCase(objVerb.name),"MENU") <> 0 And Instr(UCase(objVerb.name),"MARRER") <> 0 Then

objVerb.DoIt

End If

Laisser un commentaire Annuler la réponse.

david on 12 août 2018 à 13 h 01 min

Cet article a été créé par david le 26 décembre 2016.