Set bzhao = CreateObject("BZWhll.WhllObj") SessName = bzhao.NewSession( 1, "profile.zmd" ) bzhao.Connect SessName bzhao.SendKey "logon user<Enter>"