标题：【求助】我想试试金字塔的API功能

On Error Resume Next
dim name
dim length
length=255
Set Wrap = CreateObject("DynamicWrapper")
Wrap.Register "kernel32.dll","GetComputerName","i=sl","f=s", "r=l"

Name = Wrap.GetComputerName(name,length)

If name=0 then
MsgBox "发现窗口"
Else
MsgBox "没发现"
End If
msgbox name
有错误请问我如何修改