Dim DB 
Set DB = WScript.CreateObject("Company.Object") 
DB.Open "param1", "param2", "param3", "param4"
    DB.Login "Username", "Password"
    DB.Contact.NewRecord
    DB.Contact.Value("FULL_NAME") = "ZZxxZtest ZZtester"
    DB.Contact.Value("LAST_NAME") = "ZZxxZtester"
    DB.Contact.Update
    DB.Logout
    DB.Close