Dim strKey, strValue
Set WshShell = WScript.CreateObject("WScript.Shell")
'Replace the following with the actual MS Office Communicator key
strKey = "HKCU\MyRegKey\Value"
'Replacement value
strValue = "tom.jones@x4biz.com"
WshShell.RegWrite strKey, strValue
'Information... just comment it out if you don't want to see the popup
WshShell.popup "Settings have been changed",2,"MS Office Communicator"