Vb And Registry Tweaks

[darph]

HI

i will write a Registry tweak with a vbscript but dont know how to use it ??

can me help anybody alittle bit just a smal script

the keys are

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]"User Agent"="Mozilla/4.0 (compatible; MSIE 5.0; Win32)"

"IE5_UA_Backup_Flag"="5.0"

"NoNetAutodial"=hex:00,00,00,00

"MigrateProxy"=dword:00000001

"ProxyEnable"=dword:00000001

"EnableHttp1_1"=dword:00000001

"ProxyServer"="192.9.202.88:3128"

"ProxyOverride"="adress.com;<local>"

"AutoConfigURL"="http://pac.adress.com"

thx for your help

darph

[DMX]

i supose that you want to run a script that will import those registry values

so here you go(you know the deal save as *.vbs in notepad)

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\User Agent","Mozilla/4.0 (compatible; MSIE 5.0; Win32)","REG_SZ"

WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\NoNetAutodial",0,"REG_BINARY"

WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\MigrateProxy","00000001","REG_DWORD"

WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable","00000001","REG_DWORD"

WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\EnableHttp1_1","00000001","REG_DWORD"

WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyOverride","192.9.202.88:3128","REG_SZ"

WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\AutoConfigURL","http://pac.adress.com","REG_SZ"

WScript.Quit

[darph]

Thx for the work

but it wont work it apears a mistake in

line 5

sign 1

mistake Typ notcompatible

code 800A000D

????

i never worked with vbscript so i dont know how to fix this

so long

darph

[DMX]

sorry for that i've corrected the mistake just copy and paste again

[darph]

It works great THX

but i got a new problem i will add a key like this

[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\MS Exchange-Einstellungen][HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\MS Exchange-Einstellungen\0a0d020000000000c000000000000046]

"1102032f"=hex:01,00,00,00,75,00,00,00,0c,00,00,00,00,00,00,00,38,a1,bb,10,05,\

  e5,10,1a,a1,bb,08,00,2b,2a,56,c2,00,00,45,4d,53,4d,44,42,2e,44,4c,4c,00,00,\

  00,00,00,00,00,00,1b,55,fa,20,aa,66,11,cd,9b,c8,00,aa,00,2f,c4,5a,0c,00,00,\

  00,53,41,47,53,52,56,31,00,2f,6f,3d,44,53,43,20,53,6f,66,74,77,61,72,65,20,\

  41,47,2f,6f,75,3d,44,53,43,53,41,47,2f,63,6e,3d,52,65,63,69,70,69,65,6e,74,\

  73,2f,63,6e,3d,63,64,00,00,00,00

i don´t know how to fix other keys i can implement but this wont work can you help me again

so long

darph

[DMX]

exporting large binary values with vbs scripts is rather difficult so the simple solution i have is to silently export this reg file with a script like so

----------------the reg file------------------------

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\MS Exchange-Einstellungen]

[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\MS Exchange-Einstellungen\0a0d020000000000c000000000000046]
"1102032f"=hex:01,00,00,00,75,00,00,00,0c,00,00,00,00,00,00,00,38,a1,bb,10,05,\
  e5,10,1a,a1,bb,08,00,2b,2a,56,c2,00,00,45,4d,53,4d,44,42,2e,44,4c,4c,00,00,\
  00,00,00,00,00,00,1b,55,fa,20,aa,66,11,cd,9b,c8,00,aa,00,2f,c4,5a,0c,00,00,\
  00,53,41,47,53,52,56,31,00,2f,6f,3d,44,53,43,20,53,6f,66,74,77,61,72,65,20,\
  41,47,2f,6f,75,3d,44,53,43,53,41,47,2f,63,6e,3d,52,65,63,69,70,69,65,6e,74,\
  73,2f,63,6e,3d,63,64,00,00,00,00

---------------end of reg file------------------------

-------------------export script (1)---------------------

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run ("regedit /s path\regfile.reg")

WScript.Quit

---------------------end-------------------------------

if you prefer to use environment variables use this script

--------------------export script(2)---------------------

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run (WshShell.ExpandEnvironmentStrings("regedit /s %var_name%\path\regfile.reg"))

WScript.Quit

[darph]

thx for the support

very great work

darph