| ||
Set S = CreateObject("RegEdit.Server")
'To get access to registry from ASP
S.LogonUser "Administrator", "", "Domain"
Response.Write "W3SVC registry parameters : <br>"
For Each Value In S.Keys("SYSTEM\CurrentControlSet\Services\W3SVC\Parameters").Values
Response.Write "<b>" & Value.Name & "</b> : " & Value & "<br>"
Next
S.RevertToSelf |