Win 7 TR de Başlat Menüsüne Kısayol sabitleme kodu

Arkadaşlar merhaba,

 

Bilgisayarda her oturum açıldıgında kullanıcıların başlat menusunde program linklerinin sabitlenmesini istiyorum. Bununla ilgili aşağıdaki VBS kodu yazmıştım.Bu kod ENG win 7 de çalışırken TR Win 7 de çalışmamaktadır nedeni ne olabilir acaba. Bu konuyla ilgili ne yapabilirim yardımcı olacak var mı acaba. 

 

 

 

Dim ObjFolder, ObjFolderItem, colVerbs, objverb, objshell

Set objNet = CreateObject("WScript.NetWork") 

set fso = CreateObject("Scripting.filesystemobject")

if fso.fileexists("C:\Users\" & objnet.UserName &"\AppData\Local\Microsoft\Internet Explorer\run.txt") then

WScript.Quit

else

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.Namespace("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Microsoft Office")

Set objFolderItem = objFolder.ParseName("Microsoft Excel 2010.lnk")

Set colVerbs = objFolderItem.Verbs

For Each objVerb in colVerbs

If Replace(objVerb.name, "&", "") = "Pin to Start Menu" Then objVerb.DoIt

Next

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.Namespace("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Microsoft Office")

Set objFolderItem = objFolder.ParseName("Microsoft Word 2010.lnk")

Set colVerbs = objFolderItem.Verbs

For Each objVerb in colVerbs

If Replace(objVerb.name, "&", "") = "Pin to Start Menu" Then objVerb.DoIt

Next

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.Namespace("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Microsoft Office")

Set objFolderItem = objFolder.ParseName("Microsoft Outlook 2010.lnk")

Set colVerbs = objFolderItem.Verbs

For Each objVerb in colVerbs

If Replace(objVerb.name, "&", "") = "Pin to Start Menu" Then objVerb.DoIt

Next

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.Namespace("C:\ProgramData\Microsoft\Windows\Start Menu\Programs")

Set objFolderItem = objFolder.ParseName("Microsoft Office Communicator 2007 R2.lnk")

Set colVerbs = objFolderItem.Verbs

For Each objVerb in colVerbs

If Replace(objVerb.name, "&", "") = "Pin to Start Menu" Then objVerb.DoIt

Next

set fso = createobject("Scripting.filesystemobject")

set txtdosyaolustur = fso.createtextfile("C:\Users\" & objnet.UserName &"\AppData\Local\Microsoft\Internet Explorer\run.txt", true)

txtdosyaolustur.close

WScript.Quit

end if