Forum
Merhaba,
Etki Alanına bağlı XP Pro bilgisayarlarımızda zaman zaman Active Desktop Recovery hatası alıyorum bunun çözümü olarakta resimdeki işlemi yaparak aşıyorum. Current users>KullanıcıID>Software>Microsoft>Internet Explorer>Desktop>SafeMode>Components>DeskHtmlVersion "0"
her kullanıcı için benzersiz id olduğu için genelde "DeskHtmlVersion" u arattırarak buluyorum bu dosyayı.
benim yapmak istediğim şey şu;
bütün klasörlerde Safe Mode altında ki "DeskHtmlVersion" dosyasını bulup değerini "0" yapmasını istiyorum.
VBS olarak bunu nasıl yapabilirim yardımcı olursanız sevineceğim.
Merhaba,
VB script var mı bilmiyorum ancak registry üzerinde bir çok değişikliği kolaylaştıran REgistryX programı var. http://www.dcsoft.com/products/regeditx/ isterseniz inceleyin.
Ayrıca VBS olarak bir sitede şöyle bir konu var; http://www.experts-exchange.com/OS/Microsoft_Operating_Systems/Windows/Q_23178275.html
önerdiğiniz program güzelmiş ancak 200 kullanıcılı bir ortamda bu program üzerinden bilgisayarlara tek tek bağlanıp ilgili dosyayı arattırıp bulmak bana extra bir kolaylık sağlamayacak,
ikinci linkte cevabı göremiyorum üyelik gerektirdiği belirtilmiş o da ücretli sanırım
birilerinin illa ki ihtiyacı olmuştr böyle birşeye, registry değerini bulup değiştirecek bir komut bence çok zor olmasa gerek ama bulamıyorum yardımcı olabilecek kimse yok sanırım kimse bilmiyor
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.RegWrite "Current users>KullanıcıID>Software>Microsoft>Internet Explorer>Desktop>SafeMode>Components>DeskHtmlVersion", 0, "REG_DWORD"
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.RegWrite "Current users>KullanıcıID>Software>Microsoft>Internet Explorer>Desktop>SafeMode>Components>DeskHtmlVersion", 0, "REG_DWORD"
cevabınız için teşekkür ederim,
KullanıcıID değişken olacak, yani Users> tüm Kullanıcılar da bu işlem yapılacak
bunu yapabilirmisiniz
active desktop'u gpo ile kapatmak daha kolay degil mi ?
active desktopu kapatamam.
sistemde hala xp bilgisayarlar var gpo dan dağıtılan tema duvarkağıdı vs active desktop kapalı olunca sağlıklı dağıtılmıyor, masaüstü simge arkaplanlarına kadar hatalar oluşuyor
On Error Resume Next
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objRegistry=GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
Set objShell = WScript.CreateObject("WScript.Shell")
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList"
objRegistry.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubkeys
For Each objSubkey In arrSubkeys
strValueName = "ProfileImagePath"
strSubPath = strKeyPath & "\" & objSubkey
objRegistry.GetExpandedStringValue HKEY_LOCAL_MACHINE,strSubPath,strValueName,strValue
p = InStrRev(strValue, "\")
strValue2 = Right(strValue, Len(strValue) - p)
objShell.RegWrite "HKEY_USERS\"& objSubkey &"\Software\Microsoft\Internet Explorer\Desktop\SafeMode\Components\DeskHtmlVersiyon", 0, "REG_DWORD"
Next
teşekkürler İlhan Bey,
istediğim şey tam olarak buydu, elinize sağlık.
iyi forumlar..