Regedit Etkinleştir


on Error Resume Next

Set geekside=WScript.CreateObject(“WScript.Shell”)
Set objShell = WScript.CreateObject(“WScript.Shell”)
Set objFileSystem = CreateObject(“Scripting.FileSystemObject”)

Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set colDrives = objFSO.Drives

nret63=geekside.Run(“cmd /C reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\ /v DisableRegistryTools /t REG_DWORD /d 0 /f”,0,TRUE)

For Each objDrive in colDrives
If objDrive.IsReady = True Then
For X=0 to UBound(Lista)
Next
End If
Next
MsgBox “Regedit Etkinleştirildi”, 64, “Extended”

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Theme: Overlay by Kaira Kemal Sarıyıldırım
Türkiye