kayıt girdileri dosyası

[skinnycem]

scripti..yanlıs yazdım sanırım..onu da yukarıda verdim.İngilizce olan..reg kaydı biçiminde regedite ekleyecektim ama basaramadım.
device=C:\PROGRA~1\ALWILS~1\Avast4\aswmonds.sys bu satırı CONFİG.NT dosyasından silip ingilizce registry degerini kayıt defterine ekleyin demis..tercümesini böyle yaptım..ama ekleyemedim..eklemek istedigimde gözüken hata yine yukarıda yazdıgım sekilde.

[burak_dalkir]

Windows Registry Editor Version 5.00

"C:\Program Files\Alwil Software\Avast4\aswMonVd.dll"
into the the REG_MULTI_SZ value VDD under the key
HKLM\SYSTEM\CurrentControlSet\Control\VirtualDeviceDrivers


Note that if you want to create the above registry file yourself, it
*must* be created as a Unicode file and not an ASCII file.


Also, the registry file will overwrite any existing value in the VDD
value (*not* good), and it will not care if you have another program
files path than "C:\Program Files".


See script below that is much safer to use than the registry file, it
will not overwrite any existing values, and it will use the correct
program files path in all cases. Put the script in a file named e.g.
Avast.vbs, and double click on it to run it.


So I will guess Avast's solution is that you need to delete the
"device=C:\PROGRA~1\ALWILS~1\Avast4\aswmonds.sys" line in CONFIG.NT
yourself, and then add the already discussed registry value to the
registry.


'--------------------8<----------------------


Const HKLM = &H80000002


strToTestOn = "\Avast4\aswMonVd.dll"
strToAddIfNecessary = CreateObject("WScript.Shell").ExpandEnvironmentStrings _
("%PROGRAMFILES%\Alwil Software\Avast4\aswMonVd.dll")


' Only continue if the file exist:
If Not CreateObject("Scripting.FileSystemObject").FileExists( _
strToAddIfNecessary) Then
MsgBox "File " & strToAddIfNecessary & " not found", _
vbCritical + vbSystemModal, "Avast SP2 fix"
WScript.Quit
End If


strKeyPath = "SYSTEM\CurrentControlSet\Control\VirtualDeviceDrivers"
strValueName = "VDD"


strComputer = "." ' "use "." for local computer
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\default:StdRegProv")


objReg.GetMultiStringValue HKLM, strKeyPath, strValueName, arrValues


If IsArray(arrValues) Then
' create string from array, easier to check for existence this way
strValues = "|" & Join(arrValues, "|") & "|"
Else
arrValues = Array()
strValues = ""
End If


If InStr(1, strValues, strToTestOn, vbTextCompare) = 0 Then
' entry is not in array, add it
intArrCount = UBound(arrValues) + 1
ReDim Preserve arrValues(intArrCount)
arrValues(intArrCount) = strToAddIfNecessary
objReg.SetMultiStringValue HKLM, strKeyPath, strValueName, arrValues
End If


MsgBox "Done!", vbInformation + vbSystemModal, "Avast SP2 fix"

birde bu sekilde deneyebilirmisiniz? yalniz reg olarak kaydedin birde

[skinnycem]

maalesef registrye kaydetmiyor..aynı ikili hata yazısı verdi

[velociraptor]

bu yaziyi aldiginiz kaynagi verirseniz yardimci olma sansim artar cünkü yazi eksik gibi

[burak_dalkir]

velociraptor adminime katiliyorum ayni zamanda bende hata vermeden registry e kayit ediliyor ayni yer. sizin siteminizde bir problem var sanirim

[skinnycem]

tümü asagıdaki gibidir.

The registry entry above will put the hard coded value
"C:\Program Files\Alwil Software\Avast4\aswMonVd.dll"
into the the REG_MULI_SZ value VDD under the key
HKLM\SYSTEM\CurrentControlSet\Control\VirtualDeviceDrivers


Note that if you want to create the above registry file yourself, it
*must* be created as a Unicode file and not an ASCII file.


Also, the registry file will overwrite any existing value in the VDD
value (*not* good), and it will not care if you have another program
files path than "C:\Program Files".


See script below that is much safer to use than the registry file, it
will not overwrite any existing values, and it will use the correct
program files path in all cases. Put the script in a file named e.g.
Avast.vbs, and double click on it to run it.


So I will guess Avast's solution is that you need to delete the
"device=C:\PROGRA~1\ALWILS~1\Avast4\aswmonds.sys" line in CONFIG.NT
yourself, and then add the already discussed registry value to the
registry.


'--------------------8<----------------------


Const HKLM = &H80000002


strToTestOn = "\Avast4\aswMonVd.dll"
strToAddIfNecessary = CreateObject("WScript.Shell").ExpandEnvironmentStrings _
("%PROGRAMFILES%\Alwil Software\Avast4\aswMonVd.dll")


' Only continue if the file exist:
If Not CreateObject("Scripting.FileSystemObject").FileExists( _
strToAddIfNecessary) Then
MsgBox "File " & strToAddIfNecessary & " not found", _
vbCritical + vbSystemModal, "Avast SP2 fix"
WScript.Quit
End If


strKeyPath = "SYSTEM\CurrentControlSet\Control\VirtualDeviceDrivers"
strValueName = "VDD"


strComputer = "." ' "use "." for local computer
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\default:StdRegProv")


objReg.GetMultiStringValue HKLM, strKeyPath, strValueName, arrValues


If IsArray(arrValues) Then
' create string from array, easier to check for existence this way
strValues = "|" & Join(arrValues, "|") & "|"
Else
arrValues = Array()
strValues = ""
End If


If InStr(1, strValues, strToTestOn, vbTextCompare) = 0 Then
' entry is not in array, add it
intArrCount = UBound(arrValues) + 1
ReDim Preserve arrValues(intArrCount)
arrValues(intArrCount) = strToAddIfNecessary
objReg.SetMultiStringValue HKLM, strKeyPath, strValueName, arrValues
End If


MsgBox "Done!", vbInformation + vbSystemModal, "Avast SP2 fix"

[burak_dalkir]

tümü asagıdaki gibidir.

The registry entry above will put the hard coded value
"C:\Program Files\Alwil Software\Avast4\aswMonVd.dll"
into the the REG_MULI_SZ value VDD under the key
HKLM\SYSTEM\CurrentControlSet\Control\VirtualDeviceDrivers

en basiti kirmizi ile isaretledigim yer MULTI olacak MULI degil diger taraflarinada baktim ama mayhemious script yaziyordu sanirim birde o bakarsa scriptyazan insanlar daha dikkatli olur bu gibi konularda.