pb直接在注册表取本机全部IP方法

 

在WIN2000下，取得本机的各个网卡的IP地址：

String ls_keynt1 = 'HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows NT/CurrentVersion/NetworkCards'
String ls_keynt2 = 'HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services/'
String ls_keynt3 = '/Parameters/Tcpip'
String ls_name_nt1 = 'ServiceName'
String ls_name_nt2 = 'IPAddress'
String ls_name_nt3 = ''
String ls_value2[]

IF RegistryKeys (ls_keynt1,subkeys ) = 1 THEN
        IF UpperBound(subkeys) > 0 THEN
                For i = 1 to UpperBound(subkeys)
                        ls_keynt1 = ls_keynt1 + '/' + subkeys                                        
                                RegistryGet(ls_keynt1,ls_name_nt1,ls_value)
                                ls_name_nt3 = ls_keynt2 + ls_value + ls_keynt3
                                RegistryGet(ls_name_nt3,ls_name_nt2,RegMultiString!,ls_value2)
                                gs_ipaddress  = gs_ipaddress +  "网卡" + string(i) + ":" + ls_value2[1] + "  "

                next
        END IF
END IF