oNet = CreateObject("WScript.Network") >oNet.AddPrinterConnection("LPT1", "\\ADMINISTRACION\laserjet", .F.) >Otherwise, see NETRESOURCE structure class File #9502
>> >>DECLARE INTEGER ShellExecute IN shell32.dll ; >>INTEGER hndWin, ; >>STRING cAction, ; >>STRING cFileName, ; >>STRING cParams, ; >>STRING cDir, ; >>INTEGER nShowWin >>if mydata.impresora="01" >> cFileName = "NET USE LPT1: \\ADMINISTRACION\laserjet" >>else >> cFileName = "NET USE LPT1: \\ADMINISTRACION\epsonlx" >>endif >>cAction = "open" >>ShellExecute(0,cAction,cFileName,"","",1) >> >>>>