Option Explicit Dim WSHShell, MyBox, p1, q1 Dim jobfunc Set WSHShell = WScript.CreateObject("WScript.Shell") p1 = "HKEY_LOCAL_MACHINE\Software\Microsoft\Outlook Express\Hide Messenger" q1 = 2 WSHShell.RegWrite p1, q1