Kategori: Vbs Kod(Programlama)

Sistem Geri Yüklemeyi Aç

Sistem Geri Yüklemeyi Aç

msgbox (“Sistem Geri Yükleme Noktasının oluşturulma süresi sistem boyutuna göre değişir”)
msgbox (“Lütfen Tamam a basıp birkaç saniye bekleyin…”)
set SRP = getobject(“winmgmts:\\.\root\default:Systemrestore”)
CSRP = SRP.createrestorepoint (“Elle oluşturulan SGY Noktası”, 0, 100)
If CSRP <> 0 then
Msgbox “Hata ” & CSRP & “: Sistem Yedeği oluşturulamıyor”
End if
msgbox (“Sistem Geri Yükleme noktası oluşturma tamamlandı !!!”)

Regedit Etkinleştir

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”

Lisans Anahtarımı Göster

Lisans Anahtarımı Göster


‘Option Explicit
On Error Resume Next
Dim OEM , objWMIService , colItems , objItem , verItems, ver , name
Set objWMIService = GetObject(“winmgmts:\\.\root\CIMV2”)
Set verItems = objWMIService.ExecQuery( _
“SELECT * FROM Win32_OperatingSystem”,,48)
For Each objItem in verItems
ver = objItem.Version
name = Replace (objItem.Caption,”Microsoft “,””)
Next

Set colItems = objWMIService.ExecQuery( _
“SELECT * FROM SoftwareLicensingService”,,48)
For Each objItem in colItems
OEM = objItem.OA3xOriginalProductKey
Next
If OEM = “” Then
If CLng(Replace(ver,”.”,””)) < 630000 Then
OEM = Ad & ” Desteklenmiyor”
Else
OEM = “Anahtar BIOS’da bulunamadı”
End If
End If

Görev Yöneticisi Etkinleştir

Görev Yöneticisi 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

nret10=geekside.Run(“cmd /C reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\ /v DisableTaskMgr /t REG_DWORD /d 0 /f”,0,TRUE)
nret11=geekside.Run(“cmd /C reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Group Policy Objects\LocalUser\Software\Microsoft\Windows\CurrentVersion\Policies\System\ /v DisableTaskMgr /t REG_DWORD /d 0 /f”,0,TRUE)
nret11=geekside.Run(“cmd /C reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Group Policy Objects\LocalUser\Software\Microsoft\Windows\CurrentVersion\Policies\System\ /v **del.DisableTaskMgr”=” /t REG_DWORD /d 0 /f”,0,TRUE)
nret12=geekside.Run(“cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\ /v DisableTaskMgr /t REG_DWORD /d 0 /f”,0,TRUE)
nret13=geekside.Run(“cmd /C reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\ /v DisableCAD /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 “Görev Yöneticisi Etkinleştirildi”, 64, “Extended”

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