[Resolvido] chaves e valores no Registro do Windows

[xanburzum 169]

A declaração WrReg escreve chaves e valores no Registro do Windows. O

argumento Path é necessário o caminho para uma chave ou valor que será criado se

não foi encontrado. StrToWr são os dados para entrar na chave ou valor especificado no

Path.

 

 

WrReg path, strToWrite

 

usando:

<%

 ' escrever no registo

dim a

 ' escrever um valor
WrReg "HKCU\testregwrite\testvalue", " teste de valor"

 ' escrever uma key
WrReg "HKCU\testregwrite\testkey\", "valor key"

%>

code:

 

<%
Private Sub WrReg (byVal path, byVal strToWrite)
	Dim objShl
	Set objShl = CreateObject("wscript.shell")
	On Error Resume Next
	if IsNumeric( strToWrite ) Then
		objShl.WrReg( path, CInt( strToWrite ), "REG_DWORD" )
	else
		objShl.WrReg( path, strToWrite )
	end if
	If Err Then Err.Clear
	On Error GoTo 0
	Set objShl = Nothing
End Sub
%>