Boş bir TXT dosyası oluşturun ve aşağıda yer alan kodları txt dosyasına kopyalayın.
TXT dosyasının uzantısını .vbs olarak değiştirin.
Dosyayı normal olarak çalıştırın.
Option Explicit
Dim objshell,path,DigitalID, Result
Set objshell = CreateObject("WScript.Shell")
'Set registry key path
Path =...