Try with next code:
strComputer = "."
Set oShell = WScript.CreateObject ("WSCript.shell")
usuario = "
[email protected]"
clave = "somepasswd"
' ejecuta modificacion Zona en Registro
WScript.echo "modificando reg"
netsh1="regedit /s \\prestored.cl\NETLOGON\TZupdate_inv.reg"
txtDNS1 = "runas /noprofile /user:"& usuario &" """& netsh1 &""""
oShell.run txtDNS1, 2
WScript.sleep 1000
oShell.AppActivate "C:\Windows\system32\runas.exe"
oShell.SendKeys clave & "{ENTER}"
WScript.sleep 5000
' ejecuta carga de zona en pc
WScript.echo "refrescando cambios"
netsh1="cscript \\prestored.cl\NETLOGON\refreshTZinfo.vbs"
txtDNS1 = "runas /noprofile /user:"& usuario &" """& netsh1 &""""
oShell.run txtDNS1, 2
WScript.sleep 1000
oShell.AppActivate "C:\Windows\system32\runas.exe"
oShell.SendKeys clave & "{ENTER}"
WScript.sleep 5000
WScript.Quit