修改主机的名称,用VB编程实现,通过调用API函数实现.