Day: November 1, 2015

Option Explicit Dim objshell,path,DigitalID, Result Set objshell = CreateObject(“WScript.Shell”)‘Set registry key pathPath = “HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\”‘Registry key valueDigitalID = objshell.RegRead(Path & “DigitalProductId”)Dim ProductName,ProductID,ProductKey,ProductData‘Get ProductName, ProductID, ProductKeyProductName = “Product Name: ” & objshell.RegRead(Path & “ProductName”)ProductID = “Product ID: ” & objshell.RegRead(Path & “ProductID”)ProductKey = “Installed Key: ” & ConvertToKey(DigitalID) ProductData = ProductName & vbNewLine & ProductID &…