Forum
Bildirimler
Hepsini Temizle
Windows Client
2
Yazılar
2
Üyeler
0
Reactions
533
Görüntüleme
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
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