Option Explicit
Dim objShell, UserName, UserID, Lang, intAnswer
Set objShell = CreateObject("WScript.Shell")
Lang = "HE"
Dim oShell 
Dim nativID 
Set oShell = CreateObject("WScript.Shell") 
nativID = oShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\enativ\LastLogin") 
ObjShell.Run "http://www.enativ.com/kn_cust_entry.aspx?1="& nativID & "&2=" & Lang & "&3=" & UserName