API中的GetComputerName怎么调用

API中的GetComputerName如何调用?
在Ｍodule1中,粘贴剪贴板中的GetComputerName声明
  为模块Module1编写子过程Main(),其功能为调用API函数GetComputerName获得计算机名称,显示电脑名称的对话框!


  我现在不知道怎么运行API浏览器,我在外接程序---外接程序管理器,里面没有找到API browers,上网找了一个替代品FoxAPI,可是不知道怎么在VB中使用它,怎么调用函数?怎么显示对话框?

 

[解决办法]

VBScript code

dim strMachinerName as stringstrMachinerName = String(255, Chr$(0))GetComputerName strMachinerName, 255'remove the unnecessary chr$(0)'strMachinerName = Left$(strMachinerName, InStr(1, strMachinerName, Chr$(0)) - 1)msgbox strMachinerName