This is my actual script...

Can you post again the test for me to post back the result ?

Thanks

Luis Arnauth

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\esegur-lis-giaf"
If @error = 0
? "Drive P mapeada."
Else
$rc=MessageBox ("A drive P (GIAF) 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 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-dgtv"
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
$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
;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