Yazılım Adası

Windows Lisans Anahtarınızı Gösteren ve Masaüstüne Yazdıran .vbs Script

.vbs Script

Public Function sGetWinProductKey()
    Dim objShell, bDigitalProductID, bProductKey()
    Dim bKeyChars(24)
    Dim ilByte, nCur, sCDKey, ilKeyByte

    ReDim Preserve bProductKey(24)

    Set objShell = CreateObject("WScript.Shell")

    ' Windows 10 ve 11 için kayıt defteri yolu
    bDigitalProductID = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")

    Set objShell = Nothing

    ' Ürün anahtarını çıkarmak için gerekli baytları al
    For ilByte = 52 To 66
        bProductKey(ilByte - 52) = bDigitalProductID(ilByte)
    Next

    ' Anahtar karakterleri
    bKeyChars(0) = Asc("B")
    bKeyChars(1) = Asc("C")
    bKeyChars(2) = Asc("D")
    bKeyChars(3) = Asc("F")
    bKeyChars(4) = Asc("G")
    bKeyChars(5) = Asc("H")
    bKeyChars(6) = Asc("J")
    bKeyChars(7) = Asc("K")
    bKeyChars(8) = Asc("M")
    bKeyChars(9) = Asc("P")
    bKeyChars(10) = Asc("Q")
    bKeyChars(11) = Asc("R")
    bKeyChars(12) = Asc("T")
    bKeyChars(13) = Asc("V")
    bKeyChars(14) = Asc("W")
    bKeyChars(15) = Asc("X")
    bKeyChars(16) = Asc("Y")
    bKeyChars(17) = Asc("2")
    bKeyChars(18) = Asc("3")
    bKeyChars(19) = Asc("4")
    bKeyChars(20) = Asc("6")
    bKeyChars(21) = Asc("7")
    bKeyChars(22) = Asc("8")
    bKeyChars(23) = Asc("9")

    ' Anahtar oluşturma
    For ilByte = 24 To 0 Step -1
        nCur = 0
        For ilKeyByte = 14 To 0 Step -1
            nCur = nCur * 256 Xor bProductKey(ilKeyByte)
            bProductKey(ilKeyByte) = Int(nCur / 24)
            nCur = nCur Mod 24
        Next
        sCDKey = Chr(bKeyChars(nCur)) & sCDKey
        If ilByte Mod 5 = 0 And ilByte <> 0 Then sCDKey = "-" & sCDKey
    Next

    sGetWinProductKey = sCDKey
End Function

Public Function Question()
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Dim Ans
    Dim desktopPath

    ' Kullanıcının masaüstü yolunu al
    desktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")

    Ans = MsgBox("Yes = Write Windows Product Key to the Desktop and No = Prompt with Product Key", 4)

    If Ans = vbYes Then
        Set oOutFile = objFSO.CreateTextFile(desktopPath & "\Windows_Product_Key.txt")
        oOutFile.WriteLine sGetWinProductKey
        oOutFile.Close
    Else
        WScript.Echo sGetWinProductKey
    End If
End Function

Call Question

Bu güncellenmiş betikte, desktopPath değişkeni kullanıcının masaüstü yolunu alır ve dosya bu yola yazılır. Artık dosya, kullanıcının masaüstünde Windows_Product_Key.txt adıyla oluşturulacaktır.

Scriptin oluşturuluşu ;
Adımlar;

Paylaştığımız .vbs scripti bir metin editörüne yapıştırın.
Resim

Sonra herhangi bir isim vererek örneğin windowsanahtar.vbs olarak kaydedin.
Daha sonra scripti çalıştırın. Evet derseniz masaüstüne yazdıracaktır. Hayır derseniz ekran da lisans anahtarınızı göreceksiniz.
Resim

Evet derseniz sonuç;
Resim

Hayır derseniz sonuç;
Resim

Kaynak:
https://forum.sordum.net/viewtopic.php?p=546278

İmdi buna bir forum katkısı benden admin'e gelsin...

Eğer herhangi bir .vbs betiği "Yönetici Modunda" başlatmanız gerekiyorsa ancak sağ menünüzde "Yönetici olarak çalıştır" girdiniz yoksa aşağıdaki Windows Kayıt Defteri , .reg kaydı sadece .vbs dosya türünün , "Yönetici olarak" başlatılmasını sağlayan .reg kodudur.

Add_Run_as_administrator_to_VBS_context_menu.reg

Kod: Tümünü seç

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\.vbs]
@="VBSFile"

[HKEY_CLASSES_ROOT\VBSFile\Shell\runas]
"HasLUAShield"=""

[HKEY_CLASSES_ROOT\VBSFile\Shell\runas\command]
@=hex(2):22,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,\
  00,25,00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,57,00,\
  53,00,63,00,72,00,69,00,70,00,74,00,2e,00,65,00,78,00,65,00,22,00,20,00,22,\
  00,25,00,31,00,22,00,20,00,25,00,2a,00,00,00

Eğer çalıştırmak istediğiniz bir .PS1 betiği ise (powershell) o zaman aşağıdakini kullanın...

Add_Run_as_administrator_to_PS1_context_menu.reg

Kod: Tümünü seç

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\SystemFileAssociations\.ps1\Shell\runas]
"HasLUAShield"=""

[HKEY_CLASSES_ROOT\SystemFileAssociations\.ps1\Shell\runas\command]
@="powershell.exe \"-Command\" \"if((Get-ExecutionPolicy ) -ne 'AllSigned') { Set-ExecutionPolicy -Scope Process Bypass }; & '%1'\""

Veya şu aşağıdaki .bat dosyası ile hertürlü dosyayı yönetici olarak başlatabilirsiniz.

Kod: Tümünü seç

@echo off
:: VBS dosyasının tam yolunu belirtin
set VBSFile="C:\path\to\your\GetProductKey.vbs"

:: Yönetici olarak çalıştır
powershell -Command "Start-Process wscript.exe -ArgumentList %VBSFile% -Verb RunAs"

Yukarıdaki örnek GetProductKey.vbs için verilmiştir.

Buradaki

set VBSFile="C:\path\to\your\GetProductKey.vbs"

betiğin tam yolunu belirtmelisiniz.

Eğer betiğiniz .PS1 olursa.;

Kod: Tümünü seç

@echo off
:: PowerShell dosyasının tam yolunu belirtin
set PSFile="C:\path\to\your\GetProductKey.ps1"

:: Yönetici olarak çalıştır
powershell -Command "Start-Process powershell.exe -ArgumentList '-NoProfile -ExecutionPolicy Bypass -File %PSFile%' -Verb RunAs"

.CMD Betiği olursa :

Kod: Tümünü seç

@echo off
:: Komut dosyasının tam yolunu belirtin
set CMDFile="C:\path\to\your\GetProductKey.cmd"

:: Yönetici olarak çalıştır
powershell -Command "Start-Process cmd.exe -ArgumentList '/c %CMDFile%' -Verb RunAs"

Yazılım Adası

Windows Lisans Anahtarınızı Gösteren ve Masaüstüne Yazdıran .vbs Script

Windows Lisans Anahtarınızı Gösteren ve Masaüstüne Yazdıran .vbs Script

Re: Windows Lisans Anahtarınızı Gösteren ve Masaüstüne Yazdıran .vbs Script