Forum

Win 7 TR de Başlat ...
 
Bildirimler
Hepsini Temizle

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

2 Yazılar
2 Üyeler
0 Reactions
533 Görüntüleme
(@receperken)
Gönderiler: 2
Active Member
Konu başlatıcı
 
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
 
Gönderildi : 26/03/2015 13:17

(@mustafatasci)
Gönderiler: 1643
Üye
 

Merhaba,

Daha öncede benzer bir konu yada bu konuşuldu diye hatırlıyorum, directory alanlarını türkçe yazmanız gerekir.

 

C:\Users yerine C:\Kullanıcılar gibi. 

****************************************************************
Probleminiz Çözüldüğünde Sonucu Burada Paylaşırsanız.
Sizde Aynı Problemi Yaşayanlar İçin Yardım Etmiş Olursunuz.
Eğer sorununuz çözüldü ise lütfen "çözüldü" olarak işaretlerseniz diğer üyeler için çok büyük kolaylık sağlayacaktır.
*****************************************************************

 
Gönderildi : 09/04/2015 22:32

Paylaş: