set bzhao = CreateObject("BZWhll.WhllObj") bzhao.Connect If ( bzhao.Connected() ) Then bzhao.SendKey "logon user<Enter>" End If