The error that gave me us 67:

The whole script is bellow:
code:
SetConsole ("hide")

Cookie1

If @inwin <> 1
	SetTime "\\SERVER-LIS-014"
	If  @error = 0
		? "Actualização completa."
	Else
		MessageBox ("A Data não foi Actualizada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
	EndIf
EndIf

? "Definindo as drives de rede..."

:Drives

Use "*" /DELETE
If @error = 0
	? "Drives anteriores apagadas."
Else
	MessageBox ("As drives previamente mapeadas não foram eliminadas. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
EndIf

;user especifico projecto stgv
If @userid="wedo"
	Use U: "\\server-opo-001\wedo"
	Use T: "\\server-opo-001\testers"
	If @error = 0
		? "Drives U e T não mapeadas."
	Else
		MessageBox ("As drives não foram mapeadas. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
	EndIf
	Goto end
EndIf

;user especifico projecto stgv
If @userid="testers"
	Use U: "\\server-opo-001\testers"
	If @error = 0
		? "Drive U mapeada."
	Else
		MessageBox ("A drive U:\ não foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
	EndIf
	Goto end
EndIf

If InGroup ("wedooblog")
	Use W: "\\server-opo-001\wedo"
	If @error = 0
		? "Drive W mapeada."
	Else
		MessageBox ("A drive W não foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
	EndIf
EndIf

If InGroup ("STGVTestersGRP")
	Use T: "\\server-opo-001\testers"
	If @error = 0
		? "Drive T mapeada."
	Else
		MessageBox ("A drive T não foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
	EndIf
EndIf

;mapeamento drive pessoal todos os users
Use U: "\\SERVER-LIS-014\@userid"
	If @error = 0
		? "Drive U mapeada."
	Else
		MessageBox ("A drive U não foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
	EndIf

;mapeamento drive comum a todos os users ESEGUR
If InGroup ("Domain Users")
	Use S: "\\SERVER-LIS-014\ESEGUR-LIS"
	If @error = 0
		? "Drive S mapeada."
	Else
		MessageBox ("A drive S não foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
	EndIf
EndIf

If InGroup ("ESEGUR-LIS-GIAF")
	Use P: "\\SERVER-LIS-014\GIAF"
	If @error = 0
		? "Drive P mapeada."
	Else
		MessageBox ("A drive P não foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
	EndIf
EndIf

;impressora - HP Business Inkjet 2200/2250 - ADMIN
If InGroup ("ESEGUR-LIS-ADMIN")
	Use O: "\\SERVER-LIS-014\esegur-lis-admin"
	If @error = 0
		? "Drive O mapeada."
	Else
		MessageBox ("A drive O não foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
	EndIf
	;apagar impressora antiga
	DelPrinterConnection ("\\serverlx\HP Business Inkjet 2200/2250 - ADMIN")
	;adiciona impressora e predefine a default do grupo
	If KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,SERVER-LIS-014,ESEGUR-LIS-ADMIN-HP Business Inkjet 2200") = 0  	
		AddPrinterConnection ("\\SERVER-LIS-014\ESEGUR-LIS-ADMIN-HPDJ2250")
		SetDefaultPrinter("\\SERVER-LIS-014\ESEGUR-LIS-ADMIN-HP Business Inkjet 2200")
	EndIf
EndIf

;impressora - N/A
If InGroup ("ESEGUR-LIS-GCS")
	Use O: "\\SERVER-LIS-014\ESEGUR-LIS-GCS"
	If @error = 0
		? "Drive O mapeada."
	Else
		MessageBox ("A drive O não foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
	EndIf
EndIf

;impressora - HP LaserJet 1200 Series PCL 6 - ESES-LIS-GS
If InGroup ("ESEGUR-LIS-GS")
	Use O: "\\SERVER-LIS-014\ESEGUR-LIS-GS"
	If @error = 0
		? "Drive O mapeada."
	Else
		MessageBox ("A drive O não foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
	EndIf
	;apagar impressora antiga
	DelPrinterConnection ("\\serverlx\HP LaserJet 1200 Series PCL 6 - ESES-LIS-GS")
	;adiciona impressora e predefine a default do grupo
	If KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,SERVER-LIS-014,ESES-LIS-GS-HP LaserJet 1200N") = 0  	
		AddPrinterConnection ("\\SERVER-LIS-014\ESES-LIS-GS-HPLJ1200N")
		;SetDefaultPrinter("\\SERVER-LIS-014\ESES-LIS-GS-HP LaserJet 1200N")
	EndIf
EndIf

;impressora - N/A
If InGroup ("ESEGUR-LIS-GSI")
	Use W: "\\SERVER-LIS-014\esegur-lis-gsi"
	If @error = 0
		? "Drive O mapeada."
	Else
		MessageBox ("A drive O não foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
	EndIf
EndIf

;impressora - HP LaserJet 1200 Series PCL 6 - GT
;impressora - HP Deskjet 960C Series - GT
If InGroup ("ESEGUR-LIS-DT")
	Use O: "\\SERVER-LIS-014\ESEGUR-LIS-DT"
	If @error = 0
		? "Drive O mapeada."
	Else
		MessageBox ("A drive O não foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
	EndIf
	;apagar impressora antiga
	DelPrinterConnection ("\\serverlx\HP LaserJet 1200 Series PCL 6 - GT")
	DelPrinterConnection ("\\serverlx\HP Deskjet 960C Series - GT")
	;adiciona impressora e predefine a default do grupo
	If KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,SERVER-LIS-014,ESEGUR-LIS-DT-HP LaserJet 1200") = 0  	
		AddPrinterConnection ("\\SERVER-LIS-014\ESEGUR-LIS-DT-HPLJ1200")
		SetDefaultPrinter("\\SERVER-LIS-014\ESEGUR-LIS-DT-HP LaserJet 1200")
	EndIf
	If KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,SERVER-LIS-014,ESEGUR-LIS-DT-HP Deskjet 960C") = 0  	
		AddPrinterConnection ("\\SERVER-LIS-014\ESEGUR-LIS-DT-HPDJ960C")
	EndIf
EndIf

If InGroup ("ESEGUR-LIS-DGTV")
	Use O: "\\SERVER-LIS-014\ESEGUR-LIS-DTGV"
	If @error = 0
		? "Drive O mapeada."
	Else
		MessageBox ("A drive O não foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
	EndIf
EndIf

If InGroup ("ESEGUR-LIS-DGTV")
	Use O: "\\SERVER-LIS-014\ESEGUR-LIS-DTGV"
	If @error = 0
		? "Drive O mapeada."
	Else
		$rc=MessageBox ("A drive O não foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script. ERROR: @error", 0)
	EndIf
EndIf

;impressora - HP LaserJet 4100 PCL 6 - SV - CONS
If InGroup ("ESEGUR-LIS-DGTV-CNSRVDR")
	Use I: "\\SERVER-LIS-014\ESEGUR-LIS-DGTV-CNSRVDR"
	If @error = 0
		? "Drive I mapeada."
	Else
		MessageBox ("A drive I não foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
	EndIf
	;apagar impressora antiga
	DelPrinterConnection ("\\serverlx\HP LaserJet 4100 PCL 6 - SV - CONS")
	;adiciona impressora e predefine a default do grupo
	If KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,SERVER-LIS-014,ESEGUR-LIS-DGTV-CNSRVDR-HP LaserJet 4100N") = 0  	
		AddPrinterConnection ("\\SERVER-LIS-014\ESEGUR-LIS-DGTV-CNSRVDR-HPLJ4100N")
		SetDefaultPrinter("\\SERVER-LIS-014\ESEGUR-LIS-DGTV-CNSRVDR-HP LaserJet 4100N")
	EndIf
EndIf

;impressora - N/A
If InGroup ("ESEGUR-LIS-DGTV-DRC")
	Use K: "\\SERVER-LIS-014\ESEGUR-LIS-DGTV-DRC"
	If @error = 0
		? "Drive K mapeada."
	Else
		MessageBox ("A drive K não foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
	EndIf
EndIf

;impressora - HP deskjet 950C Series - SO
;impressora - HP LaserJet 1200 Series PCL 6 - SO
If InGroup ("ESEGUR-LIS-DO")
	Use O: "\\SERVER-LIS-014\ESEGUR-LIS-DO"
	If @error = 0
		? "Drive O mapeada."
	Else
		MessageBox ("A drive O não foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
	EndIf
	;apagar impressora antiga
	DelPrinterConnection ("\\serverlx\HP deskjet 950C Series - SO")
	DelPrinterConnection ("\\serverlx\HP LaserJet 1200 Series PCL 6 - SO")
	;adiciona impressora e predefine a default do grupo
	If KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,SERVER-LIS-014,ESEGUR-LIS-DO-HP LaserJet 1200") = 0  	
		AddPrinterConnection ("\\SERVER-LIS-014\ESEGUR-LIS-DO-HPLJ1200")
	EndIf
	If KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,SERVER-LIS-014,ESEGUR-LIS-DO-HP deskjet 950C") = 0  	
		AddPrinterConnection ("\\SERVER-LIS-014\ESEGUR-LIS-DO-HPDJ950C")
		SetDefaultPrinter("\\SERVER-LIS-014\ESEGUR-LIS-DO-HP deskjet 950C")
	EndIf
EndIf

;impressora - HP LaserJet 1200N Series PCL 6 - RH
;impressora - HP LaserJet 4100 PCL 6 - RH
If InGroup ("ESEGUR-LIS-RH")
	Use O: "\\SERVER-LIS-014\ESEGUR-LIS-RH"
	If @error = 0
		? "Drive O mapeada."
	Else
		MessageBox ("A drive O não foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
	EndIf
	DelPrinterConnection ("\\serverlx\HP LaserJet 1200N Series PCL 6 - RH")
	DelPrinterConnection ("\\serverlx\HP LaserJet 4100 PCL 6 - RH")
	;adiciona impressora
	If KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,SERVER-LIS-014,ESEGUR-LIS-RH-HP LaserJet 4200DTN") = 0  	
		AddPrinterConnection ("\\SERVER-LIS-014\ESEGUR-LIS-RH-HPLJ4200DTN")
	EndIf
	If KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,SERVER-LIS-014,ESEGUR-LIS-RH-HP LaserJet 1200N") = 0  	
		AddPrinterConnection ("\\SERVER-LIS-014\ESEGUR-LIS-RH-HPLJ1200N")
	EndIf
EndIf

If InGroup ("ESEGUR-LIS-RH-VNCMTS")
	Use I: "\\SERVER-LIS-014\ESEGUR-LIS-RH-VNCMTS"
 	If @error = 0
 		? "Drive I mapeada."
	Else
		MessageBox ("A drive I não foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
	EndIf
	;predefine a default do grupo
	SetDefaultPrinter("\\SERVER-LIS-014\ESEGUR-LIS-RH-HP LaserJet 4200DTN")
EndIf

;impressora - HP Deskjet 6127 - DC
;impressora - HP DeskJet 890C - DC
;impressora - HP LaserJet 5000 Series PCL - DC
;impressora - MINOLTA-QMS magicolor 2200

If InGroup ("ESEGUR-LIS-DC")
	Use O: "\\SERVER-LIS-014\ESEGUR-LIS-DC"
	If @error = 0
		? "Drive O mapeada."
	Else
		MessageBox ("A drive O não foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
	EndIf
	;apagar impressora antiga
	DelPrinterConnection ("\\serverlx\HP Deskjet 6127 - DC")
	DelPrinterConnection ("\\serverlx\HP DeskJet 890C - DC")
	DelPrinterConnection ("\\serverlx\HP LaserJet 5000 Series PCL - DC")
	DelPrinterConnection ("\\serverlx\MINOLTA-QMS magicolor 2200")
	;adiciona impressora
	If KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,SERVER-LIS-014,ESEGUR-LIS-DC-TGTV-HP LaserJet 5000N") = 0  	
		AddPrinterConnection ("\\SERVER-LIS-014\ESEGUR-LIS-DC-TGTV-HPLJ5000N")
	EndIf
	If KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,SERVER-LIS-014,ESEGUR-LIS-DC-VHE-MINOLTA-QMS magicolor 2200") = 0  	
		AddPrinterConnection ("\\SERVER-LIS-014\ESEGUR-LIS-DC-VHE-QMSMGCLR2200")
	EndIf
	If KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,SERVER-LIS-014,ESEGUR-LIS-DC-VHE-HP Deskjet 6127") = 0  	
		AddPrinterConnection ("\\SERVER-LIS-014\ESEGUR-LIS-DC-VHE-HPDJ6127")
	EndIf
	If KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,SERVER-LIS-014,ESEGUR-LIS-DC-TGTV-HP DeskJet 890C") = 0  	
		AddPrinterConnection ("\\SERVER-LIS-014\ESEGUR-LIS-DC-TGTV-HPDJ890C")
	EndIf
EndIf

If InGroup ("ESEGUR-LIS-DC-TGTV")
	Use I: "\\SERVER-LIS-014\ESEGUR-LIS-DC-TGTV"
	If @error = 0
		? "Drive I mapeada."
	Else
		MessageBox ("A drive I não foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
	EndIf
	;predefine a default do grupo
	SetDefaultPrinter("\\SERVER-LIS-014\ESEGUR-LIS-DC-TGTV-HPLJ5000N")
EndIf

If InGroup ("ESEGUR-LIS-DC-VHE")
	Use I: "\\SERVER-LIS-014\ESEGUR-LIS-DC-VHE"
	If @error = 0
		? "Drive I mapeada."
	Else
		MessageBox ("A drive I não foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
	EndIf
	;predefine a default do grupo
	SetDefaultPrinter("\\SERVER-LIS-014\ESEGUR-LIS-DC-VHE-HPDJ6127")
EndIf

;impressora - HP DeskJet 890C - SAF
;impressora - HP LaserJet 4 - SAF
;impressora - HP LaserJet 4V - SAF
If InGroup ("ESEGUR-LIS-DAF")
	Use O: "\\SERVER-LIS-014\ESEGUR-LIS-DAF"
 	If @error = 0
		? "Drive O mapeada."
	Else
		MessageBox ("A drive O não foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
	EndIf
	;apagar impressora antiga
	DelPrinterConnection ("\\serverlx\HP DeskJet 890C - SAF")
	DelPrinterConnection ("\\serverlx\HP LaserJet 4 - SAF")
	DelPrinterConnection ("\\serverlx\HP LaserJet 4V - SAF")
	;adiciona impressora e predefine a usual do grupo
	If KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,SERVER-LIS-014,ESEGUR-LIS-DAF-HP LaserJet 4V #1") = 0  	
		AddPrinterConnection ("\\SERVER-LIS-014\ESEGUR-LIS-DAF-HPLJ4V1")
		SetDefaultPrinter("\\SERVER-LIS-014\ESEGUR-LIS-DAF-HP LaserJet 4V #1")
	EndIf
	If KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,SERVER-LIS-014,ESEGUR-LIS-DAF-HP LaserJet 4V #2") = 0  	
		AddPrinterConnection ("\\SERVER-LIS-014\ESEGUR-LIS-DAF-HPLJ4V2")
	EndIf
	If KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,SERVER-LIS-014,ESEGUR-LIS-DAF-HP DeskJet 890C") = 0  	
		AddPrinterConnection ("\\SERVER-LIS-014\ESEGUR-LIS-DAF-HPDJ890C")
	EndIf
EndIf

;impressora - HP Deskjet 6127 - DTV
;impressora - HP LaserJet 4200 PCL 6 - DTV
If InGroup ("ESEGUR-LIS-DTV")
	Use O: "\\SERVER-LIS-014\ESEGUR-LIS-DTV"
	If @error = 0
		? "Drive O mapeada."
	Else
		MessageBox ("A drive O não foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
	EndIf
	;apagar impressora antiga
	DelPrinterConnection ("\\serverlx\HP Deskjet 6127 - DTV")
	DelPrinterConnection ("\\serverlx\HP LaserJet 4200 PCL 6 - DTV")
	;adiciona impressora e predefine a usual do grupo
	If KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,SERVER-LIS-014,ESEGUR-LIS-DTV-HP LaserJet 4200DTN") = 0  	
		AddPrinterConnection ("\\SERVER-LIS-014\ESEGUR-LIS-DTV-HPLJ4200DTN")
		SetDefaultPrinter("\\SERVER-LIS-014\ESEGUR-LIS-DTV-HP LaserJet 4200DTN")
	EndIf
	If KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,SERVER-LIS-014,ESEGUR-LIS-DTV-HP Deskjet 6127") = 0  	
		AddPrinterConnection ("\\SERVER-LIS-014\ESEGUR-LIS-DTV-HPDJ6127")
	EndIf
EndIf

If InGroup ("ESEGUR-LIS-ADMIN-SEC")
	Use N: "\\SERVER-LIS-014\ESEGUR-LIS-ADMIN-SEC"
	If @error = 0
		? "Drive N mapeada."
	Else
		MessageBox ("A drive N não foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
	EndIf
	;apagar impressora antiga
	DelPrinterConnection ("\\serverlx\HP Business Inkjet 2200/2250 - ADMIN")
	;adiciona impressora e predefine a default do grupo
	If KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,SERVER-LIS-014,ESEGUR-LIS-ADMIN-HP Business Inkjet 2200") = 0  	
		AddPrinterConnection ("\\SERVER-LIS-014\ESEGUR-LIS-ADMIN-HPDJ2250")
		SetDefaultPrinter("\\SERVER-LIS-014\ESEGUR-LIS-ADMIN-HP Business Inkjet 2200")
	EndIf
EndIf

? "Drives Globais mapeadas"

Goto end

:end

$ipadres = Trim(SubStr(@ipaddress0,1,3)) + "." + Trim(SubStr(@ipaddress0,5,3)) + "." + Trim(SubStr(@ipaddress0,9,3)) + "." + Trim(SubStr(@ipaddress0,13,3)) 
$LSERVE = Trim(SubStr(@LSERVER,3,50))

MessageBox("Bem vindo à rede ESEGUR

Contacto Do Helpdesk: 110500 / 21 949 11 69

Utilizador: @FULLNAME (@userid)
Autenticado por: $LSERVE
Workstation: @wksta
Sistema Operativo: @PRODUCTTYPE
Endereço IP: $ipadres
","ESEGUR, Empresa de Segurança SA",64,25)

Exit
{edit} Bullock - added code tags

[ 06. March 2003, 14:40: Message edited by: Howard Bullock ]