Forum

Regedit Oto Bul-Değ...
 
Bildirimler
Hepsini Temizle

Regedit Oto Bul-Değiştir

9 Yazılar
4 Üyeler
0 Reactions
2,302 Görüntüleme
(@savasboluk)
Gönderiler: 34
Trusted Member
Konu başlatıcı
 

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"

ActiveDesktopRecovery

 

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.

 
Gönderildi : 14/10/2015 11:58

(@okanozbey)
Gönderiler: 1308
Okan ÖZBEY
 

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

www.okanozbey.com

 
Gönderildi : 14/10/2015 12:09

(@savasboluk)
Gönderiler: 34
Trusted Member
Konu başlatıcı
 

ö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

 
Gönderildi : 15/10/2015 13:00

(@ilhancakmak)
Gönderiler: 71
Trusted Member
 

Set objShell = WScript.CreateObject("WScript.Shell")
objShell.RegWrite "Current users>KullanıcıID>Software>Microsoft>Internet Explorer>Desktop>SafeMode>Components>DeskHtmlVersion", 0, "REG_DWORD"

 
Gönderildi : 15/10/2015 13:55

(@savasboluk)
Gönderiler: 34
Trusted Member
Konu başlatıcı
 

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

 
Gönderildi : 15/10/2015 14:10

(@vasviuysal)
Gönderiler: 7890
Üye
 

active desktop'u gpo ile kapatmak daha kolay degil mi ?

 

 
Gönderildi : 15/10/2015 14:26

(@savasboluk)
Gönderiler: 34
Trusted Member
Konu başlatıcı
 

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

 
Gönderildi : 15/10/2015 14:40

(@ilhancakmak)
Gönderiler: 71
Trusted Member
 

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

 
Gönderildi : 15/10/2015 15:16

(@savasboluk)
Gönderiler: 34
Trusted Member
Konu başlatıcı
 

teşekkürler İlhan Bey,
istediğim şey tam olarak buydu, elinize sağlık.

iyi forumlar..

 
Gönderildi : 16/10/2015 16:46

Paylaş: