在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
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