Comments on: Copy Taskbar Icons Windows 7 Sysprep v2

By: Brian Jackson

Brian Jackson — Wed, 07 Dec 2011 06:48:50 +0000

Great! Glad it worked for you.

By: intell

intell — Wed, 07 Dec 2011 06:08:19 +0000

Thanks for the script, it works like a charm

For those with Windows 7 Portuguese Brazilian, the terms to be changed are “Tirar da Barra de Tarefas” and “Fixar na Barra de Tarefas” (case sensitive).

By: How to create a customized Windows 7 Instalation « Blog

How to create a customized Windows 7 Instalation « Blog — Thu, 06 Oct 2011 00:06:09 +0000

[...] # Você pode colocar até 3 programas padrões adicionais na barra de tarefas. Mas o Internet Explorer, Windows Explorer e Windows Media Player ainda aparecerão por padrão para todos os novos usuários. Existem scripts na Internet que permitem personalizar totalmente a barra de tarefas após a instalação. Um dos mais interessantes pode ser encontrado aqui. [...]

By: Brian Jackson

Brian Jackson — Tue, 14 Jun 2011 16:03:50 +0000

No problem I have done that many times.

By: Jay

Jay — Sun, 12 Jun 2011 02:23:34 +0000

OK never mind had a space between PowerPoint. Took out the space and all is working now! Silly mistake! Thanks again!

By: Jay

Jay — Sun, 12 Jun 2011 02:12:07 +0000

Brian

Thanks for everything great stuff helped me out big time. I wanted to add Power Point 2010 so that it would be pinned to the task bar. I copied the Outlook 2010 section and replaced with Power Point 2010 references accordingly but, no luck. Anyone have a clue what I’m doing wrong. Please see below. Thanks!

‘Microsoft Power Point 2010
If objFSO.FileExists(strAllUsersProgramsPath & “\Microsoft Office\Microsoft Power Point 2010.lnk”) Then
Set objFolder = objShell.Namespace(strAllUsersProgramsPath & “\Microsoft Office”)
Set objFolderItem = objFolder.ParseName(“Microsoft Power Point 2010.lnk”)
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
If Replace(objVerb.name, “&”, “”) = “Pin to Taskbar” Then objVerb.DoIt
Next
End If

By: Thierry

Thierry — Tue, 15 Feb 2011 10:36:01 +0000

Thanks for this ! very helpful

@ Frank : Can you please give me the french translation for pin and unpin from taskbar ?

Regards,

By: David K

David K — Thu, 10 Feb 2011 16:35:02 +0000

Using Ian’s example above I have tried pinning outlook to the taskbar with no success. However, in my case I was pinning outlook 2003. Here is what I have edit in the script. I cannot figure why it will not pin outlook. Is there an error in my changes?

I would appreciate any help. ( Windows 7 Professional 32 bit)

‘Microsoft Outlook 2003
If objFSO.FileExists(strAllUsersProgramsPath & “\Microsoft Office\Microsoft Outlook 2003.lnk”) Then
Set objFolder = objShell.Namespace(strAllUsersProgramsPath & “\Microsoft Office”)
Set objFolderItem = objFolder.ParseName(“Microsoft Outlook 2003.lnk”)
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
If Replace(objVerb.name, “&”, “”) = “Pin to Taskbar” Then objVerb.DoIt
Next
End If

By: USB to Serial

USB to Serial — Fri, 28 Jan 2011 04:07:32 +0000

.~: I am very thankful to this topic because it really gives up to date information ::”

By: Windows 7 Sysprep: Criação de uma imagem de instalação personalizada | Informatica

Mon, 27 Dec 2010 13:54:45 +0000