vbscript to unpin from task bar not working

Briandr · 13 Oct 2014

Hi,

I can't get this vbscript to work. Any ideas?

Const CSIDL_COMMON_PROGRAMS = &H17
Const CSIDL_PROGRAMS = &H2
Const CSIDL_STARTMENU = &HB
Set objShell = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objCurrentUserStartFolder = objShell.NameSpace (CSIDL_STARTMENU)
strCurrentUserStartFolderPath = objCurrentUserStartFolder.Self.Path
Set objAllUsersProgramsFolder = objShell.NameSpace(CSIDL_COMMON_PROGRAMS)
strAllUsersProgramsPath = objAllUsersProgramsFolder.Self.Path

If objFSO.FileExists(strAllUsersProgramsPath & "\Programs\Windows Media Player.lnk") Then
Set objFolder = objShell.Namespace(strAllUsersProgramsPath)
Set objFolderItem = objFolder.ParseName("Windows Media Player.lnk")
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
If Replace(objVerb.name, "&", "") = "Unpin from Taskbar" Then objVerb.DoIt
Next
End If

If objFSO.FileExists(strAllUsersProgramsPath & "\Programs\Google Chrome\Google Chrome.lnk") Then
Set objFolder = objShell.Namespace(strAllUsersProgramsPath)
Set objFolderItem = objFolder.ParseName("Google Chrome.lnk")
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
If Replace(objVerb.name, "&", "") = "Unpin from Taskbar" Then objVerb.DoIt

Next
End If

Thanks.

MilesAhead · 13 Oct 2014

"Can't get it to work" is kind of vague. Firstly when you create objects from ActiveX you should check the return to see if an object was indeed created. Using error checking will give more clues what went wrong than me guessing. :)

If you get some error messages then post. But I think you'd have better luck on a vbs programming forum. Many more vbs aficionados would read it for one thing. :)

Briandr · 13 Oct 2014

There were no error messages when it ran. Sorry for being vague.

MilesAhead · 13 Oct 2014

Briandr said:

There were no error messages when it ran. Sorry for being vague.

Always check return values unless you are just posting example code meant to be fleshed out by others and need to save space. That's what return values are for. So you have a clue what happened.