<%
Class StringList
    Private dict, strName, i

    Private Sub Class_Initialize()
        Set dict = CreateObject("Scripting.Dictionary")
        i = 0
    End Sub
    
    Public Property Get Count()
        Count = i
    End Property
    
    Public Property Let Name(newValue)
        strName = newValue
    End Property
    
    Public Property Get Name()
        Name = strName
    End Property
    
    Public Sub Add(strValue)
        i = i + 1
        dict.Add i, strValue
    End Sub
    
    Public Default Property Get ToString()
        ToString = Me.Item(Empty)
    End Property
    
    Public Property Get Item(index)
        If Not IsEmpty(index) And IsNumeric(index) Then
            If index<1 Then Err.Raise -1, "StringList.Item", "下标越界"
            If index>i Then Err.Raise -1, "StringList.Item", "下标越界"
            Item = dict.Item(index)
        ElseIf i>0 Then
            Item = Join(dict.Items(), ", ")
        End If
    End Property
End Class

Function decodeURIComponent(str, cSet)
    With Server.CreateObject("ADODB.Stream")
        .Type = 2
        .Charset = "iso-8859-1"
        .Open
        .WriteText UnEscape(Replace(str, "+", "%20"))
        .Position = 0
        .Charset = cSet
        decodeURIComponent = .ReadText(-1)
        .Close
    End With
End Function

Function getParameter(name, cSet, dictionary)
    Dim match : Set getParameter = New StringList : getParameter.Name = name
    With New RegExp
        .Pattern = "(?:^|&)" & Server.URLEncode(name) & "=([^&]*)"
        .Global = True
        For Each match In .Execute(dictionary)
            getParameter.Add decodeURIComponent(match.Submatches.Item(0), cSet)
        Next
    End with
End Function
%>
<%=getParameter("p", "UTF-8", Request.QueryString)%>

on error resume next
Set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
For Each mo In mc
If mo.IPEnabled=True Then
mac=replace(mo.MacAddress,":","")
Exit For
End If
Next
aaa=mac
a=len(aaa)
j=0
for i=1 to a
sss=a-i+1
x=mid(aaa,sss,1)
if x="a" or x="A" then
x=10
elseif x="b" or x="B" then
x=11
elseif x="c" or x="C" then
x=12
elseif x="d" or x="D" then
x=13
elseif x="e" or x="E" then
x=14
elseif x="f" or x="F" then
x=15
elseif x="1" then
x=1
elseif x="2" then
x=2
elseif x="3" then
x=3
elseif x="4" then
x=4
elseif x="5" then
x=5
elseif x="6" then
x=6
elseif x="7" then
x=7
elseif x="8" then
x=8
elseif x="9" then
x=9
elseif x="0" then
x=0
end if
j=j+x*16^(i-1)
next
backhex=cstr(j)
msgbox backhex

echo HKEY_LOCAL_MACHINE\HARDWARE [2]>regini.ini
regini regini.ini