| Set WshShell = CreateObject("WScript.Shell") | |
| MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")) | |
| Function ConvertToKey(Key) | |
| Const KeyOffset = 52 | |
| i = 28 | |
| Chars = "BCDFGHJKMPQRTVWXY2346789" | |
| Do | |
| Cur = 0 | |
| x = 14 |
| //return an array of objects according to key, value, or key and value matching | |
| function getObjects(obj, key, val) { | |
| var objects = []; | |
| for (var i in obj) { | |
| if (!obj.hasOwnProperty(i)) continue; | |
| if (typeof obj[i] == 'object') { | |
| objects = objects.concat(getObjects(obj[i], key, val)); | |
| } else | |
| //if key matches and value matches or if key matches and value is not passed (eliminating the case where key matches but passed value does not) | |
| if (i == key && obj[i] == val || i == key && val == '') { // |
| <!DOCTYPE html> | |
| <html lang="en"> | |
| <head> | |
| <meta charset="utf-8" /> | |
| <title>Gist Fetch</title> | |
| </head> | |
| <body> | |
| <h1>Separate Files</h1> | |
| <h2>Contact_form.html</h2> | |
| <a class="gistPlaceholder" href="https://gist.github.com/476405#file_contact_form.html">contact_form.html</a> |