RegWrite regpath, strToWrite
Example Usage:
ASP Source Code:<% ' write to the registry: dim a ' write a value RegWrite "HKCU\testregwrite\testvalue", "my test value" ' write a key RegWrite "HKCU\testregwrite\testkey\", "key value" %>
<% Private Sub RegWrite(byVal regpath, byVal strToWrite) Dim objShl Set objShl = CreateObject("wscript.shell") On Error Resume Next if IsNumeric( strToWrite ) Then objShl.RegWrite( regpath, CInt( strToWrite ), "REG_DWORD" ) else objShl.RegWrite( regpath, strToWrite ) end if If Err Then Err.Clear On Error GoTo 0 Set objShl = Nothing End Sub %>