Goedemiddag,
Standaard worden er in windows 7 de volgende 3 iconen aangemaakt (IE,Media Player en Windows verkenner)
Nu heb ik meerdere systemen in beheer en ik deze dmv van een vbs scriptje verwijderen, echter loop ik tegen het volgende probleem aan: De onderstaande code werkt prima op een Engelse Windows 7 installatie, verander ik de taal naar Nederlands op dezelfde installatie werkt het echter niet meer. Dit wordt veroorzaakt door de tekst "Unpin from Taskbar"
Hoe kan ik daar de Nederlandse versie van achterhalen?
code:
'Internet Explorer
If objFSO.FileExists("\Internet Explorer.lnk") Then
Set objFolder = objShell.Namespace("\\server1\redirected.profiles\henkie.V2\AppData\Roaming\Microsoft\Windows\Start Menu\Programs")
Set objFolderItem = objFolder.ParseName("Internet Explorer.lnk")
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
If Replace(objVerb.name, "&", "") = "Unpin from Taskbar" Then objVerb.DoIt
Next
End If
Standaard worden er in windows 7 de volgende 3 iconen aangemaakt (IE,Media Player en Windows verkenner)
Nu heb ik meerdere systemen in beheer en ik deze dmv van een vbs scriptje verwijderen, echter loop ik tegen het volgende probleem aan: De onderstaande code werkt prima op een Engelse Windows 7 installatie, verander ik de taal naar Nederlands op dezelfde installatie werkt het echter niet meer. Dit wordt veroorzaakt door de tekst "Unpin from Taskbar"
Hoe kan ik daar de Nederlandse versie van achterhalen?
code:
'Internet Explorer
If objFSO.FileExists("\Internet Explorer.lnk") Then
Set objFolder = objShell.Namespace("\\server1\redirected.profiles\henkie.V2\AppData\Roaming\Microsoft\Windows\Start Menu\Programs")
Set objFolderItem = objFolder.ParseName("Internet Explorer.lnk")
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
If Replace(objVerb.name, "&", "") = "Unpin from Taskbar" Then objVerb.DoIt
Next
End If
Do not pray for easy lives. Pray to be stronger men.