RE:Como saber si estoy conectado a una red local
Una posible manera seria detectando los diferentes tipos de unidades instaladas en el equipo. Declara la función externa:
FUNCTION uint GetDriveTypeA (string drive) library "KERNEL32.DLL"
[Powerscript]
//Valores retornados por la función del API GetDriveTypeA
//1 La unidad no existe
//2 Unidad removible (diskett)
//3 Unidad de disco duro
//4 Unidad de red <-- (este seria tu caso)
//5 Unidad de CD
//6 Unidad de RAM (ramdrive)
integer lui_Ret
string cunidad
cunidad="C:"
lui_Ret=GetDriveTypeA(Char((Asc (lower(cunidad)) - 97) + Asc ('A')) + ":\")
CHOOSE CASE lui_Ret
CASE 1
messagebox(cunidad,"La unidad no existe")
CASE 2
messagebox(cunidad,"Unidad removible (diskett)")
CASE 3
messagebox(cunidad,"Unidad de disco duro")
CASE 4
messagebox(cunidad,"Unidad de red")
CASE 5
messagebox(cunidad,"Unidad de CD-ROM")
CASE 6
messagebox(cunidad,"Unidad de RAM")
END CHOOSE
Un saludo.