Cannot map some network drives - KiXtart.org

You are not logged in. [Log In] KiXtart.org website » Forums » KiXtart » Basic Scripting » Cannot map some network drives
Page 1 of 2
Topic Options
#37399 - 2003-03-06 06:22 PM
Re: Cannot map some network drives
MCA
KiX Supporter
Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
Dear,

We have regenerate our debugging version. You can do it also with our tool.
Our call was kixstrip input.kix output.kix /debug /block_check /show_structure
code:
            ;CLS
             IF (instr("-3.0x-3.1x-3.2x-3.3x-","-"+substr(@kix,1,3)+"x-") <> 0)
               IF MessageBox("sorry, your kixtart "+@kix+" release is too old."+CHR(13)+CHR(10)+CHR(13)+CHR(10)+" please upgrade.","KiXtart "+@kix+" info",4112,300)
               ENDIF
               EXIT
             ENDIF
             COLOR C+/N
            ;AT (1,1) " "

             $_debug_file="kixdebug.txt" ; - %tmp% directory -
             IF (len($_debug_file) <> 0)
               IF (substr("%tmp%",len("%tmp%"),1) = "\")
                 $_debug_file="%tmp%"+$_debug_file
               ELSE
                 $_debug_file="%tmp%\"+$_debug_file
               ENDIF
             ENDIF
            ;$_debug_file="c:\kixdebug.txt"
             IF RedirectOutput($_debug_file)
             ENDIF

             ? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/4.00e script starting"
             IF (Val(substr(@kix,1,1)) >= 4)
               IF (len(@scriptname) <> 0)
                 " ("+LCASE(@scriptname)+")"
               ENDIF
             ENDIF
             ? "-"
             IF ("$_debug_already_starting" <> "yes")
               ? "-curdir:       "+LCASE(@curdir)
               ? "-scriptdir:    "+LCASE(@scriptdir)
               IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
                 ? "-scriptname:   "+LCASE(@scriptname)
               ENDIF
               ? "-startdir:     "+LCASE(@startdir)
               ? "-"
               ? "-userid:       "+LCASE(@userid)+"/"+LCASE(@wuserid)
               ? "-user priv:    "+LCASE(@priv)
               IF (instr("-4.xx-","-"+substr(@kix,1,2)+"xx-") <> 0)
                 ? "-version:      inwin="+@inwin+"/dos="+@dos+"/productsuite="+@productsuite+"/producttype="+@producttype+"/csd="+LTRIM(RTRIM(@csd))
               ELSE
                 ? "-version:      inwin="+@inwin+"/dos="+@dos
               ENDIF
               ? "-"
               IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
                 ? "-"+@cpu+" (memory "+MemorySize()+" MB)"
                 ? "-"
               ENDIF
             ENDIF

             $_debug_temp_name="" ; -format: yyyymmdd_hhmmss.sss_999 scriptname-
             IF (instr("-3.6x-","-"+substr(@kix,1,3)+"x-") <> 0) OR (Val(substr(@kix,1,1)) >= 4)
               IF (instr("-4.xx-","-"+substr(@kix,1,2)+"xx-") <> 0)
                 $_debug_temp_name=@msecs
                 SELECT
                 CASE (len($_debug_temp_name) = 1)
                   $_debug_temp_name="00"+$_debug_temp_name
                 CASE (len($_debug_temp_name) = 2)
                   $_debug_temp_name="0"+$_debug_temp_name
                 ENDSELECT
                 $_debug_temp_name="."+$_debug_temp_name
                 IF Srnd(@msecs)
                 ENDIF
                 SLEEP 0.050
               ELSE
                 IF Srnd((-1)*32767/(substr(@time,7,2)+1))
                 ENDIF
                 SLEEP 1
               ENDIF
               $_debug_temp_name=substr(@date,1,4)+substr(@date,6,2)+substr(@date,9,2)+"_"+substr(@time,1,2)+substr(@time,4,2)+substr(@time,7,2)+$_debug_temp_name+"_"+Rnd()
               IF (len($_debug_temp_name) < 25)
                 $_debug_temp_name=substr($_debug_temp_name+"          ",1,25)
               ENDIF
               IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
                 IF (len(@scriptname) < 12)
                   $_debug_temp_name=$_debug_temp_name+" "+substr(@scriptname+"            ",1,12)
                 ELSE
                   $_debug_temp_name=$_debug_temp_name+" "+@scriptname
                 ENDIF
               ENDIF
             ENDIF

             IF ("$_debug_already_starting" <> "yes")
               ? "-debug file:   "+$_debug_file
               ? "-debug name:   "+LCASE($_debug_temp_name)
             ELSE
               IF (len($_debug_temp_name) <> 0)
                 ? "-debug: "+LTRIM(RTRIM(LCASE($_debug_temp_name)))+" -> "+$_debug_file
               ELSE
                 ? "-debug-file: "+$_debug_file
               ENDIF
             ENDIF

             IF (instr("-3.6x-","-"+substr(@kix,1,3)+"x-") = 0) AND (Val(substr(@kix,1,1)) < 4)
               GOTO _debug_starting_point
             ENDIF
             DIM $_debug_name ; -create local variable-
            :_debug_starting_point
             $_debug_name=LCASE($_debug_temp_name)
             $_debug_already_starting="yes"
             ? "-"
?"----- start-"+@time+"-"+$_debug_name+"- @error @serror"?

?"-         1-"+@time+"-"+$_debug_name+"- @error @serror"?  SetConsole ("hide")
?"-         2-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-         3-"+@time+"-"+$_debug_name+"- @error @serror"?  COOKIE1
?"-         4-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-         5-"+@time+"-"+$_debug_name+"- @error @serror"?  IF @inwin <> 1
?"-         6-"+@time+"-"+$_debug_name+"- @error @serror"?        SETTIME "\\server-lis-014"
?"-         7-"+@time+"-"+$_debug_name+"- @error @serror"?        IF @error = 0
?"-         8-"+@time+"-"+$_debug_name+"- @error @serror"?              ? "Actualiza&#8225;ao completa."
?"-         9-"+@time+"-"+$_debug_name+"- @error @serror"?        ELSE
?"-        10-"+@time+"-"+$_debug_name+"- @error @serror"?              MessageBox ("A Data nao foi Actualizada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
?"-        11-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-        12-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        13-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        14-"+@time+"-"+$_debug_name+"- @error @serror"?  ? "Definindo as drives de rede..."
?"-        15-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        16-"+@time+"-"+$_debug_name+"- @error @serror"? :drives
?"-        17-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        18-"+@time+"-"+$_debug_name+"- @error @serror"?  USE "*" /delete
?"-        19-"+@time+"-"+$_debug_name+"- @error @serror"?  IF @error = 0
?"-        20-"+@time+"-"+$_debug_name+"- @error @serror"?        ? "Drives anteriores apagadas."
?"-        21-"+@time+"-"+$_debug_name+"- @error @serror"?  ELSE
?"-        22-"+@time+"-"+$_debug_name+"- @error @serror"?        MessageBox ("As drives previamente mapeadas nao foram eliminadas. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
?"-        23-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        24-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        25-"+@time+"-"+$_debug_name+"- @error @serror"?  ;user especifico projecto stgv
?"-        26-"+@time+"-"+$_debug_name+"- @error @serror"?  IF @userid="wedo"
?"-        27-"+@time+"-"+$_debug_name+"- @error @serror"?        USE u: "\\server-opo-001\wedo"
?"-        28-"+@time+"-"+$_debug_name+"- @error @serror"?        USE t: "\\server-opo-001\testers"
?"-        29-"+@time+"-"+$_debug_name+"- @error @serror"?        IF @error = 0
?"-        30-"+@time+"-"+$_debug_name+"- @error @serror"?              ? "Drives U e T nao mapeadas."
?"-        31-"+@time+"-"+$_debug_name+"- @error @serror"?        ELSE
?"-        32-"+@time+"-"+$_debug_name+"- @error @serror"?              MessageBox ("As drives nao foram mapeadas. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
?"-        33-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-        34-"+@time+"-"+$_debug_name+"- @error @serror"?        GOTO end
?"-        35-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        36-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        37-"+@time+"-"+$_debug_name+"- @error @serror"?  ;user especifico projecto stgv
?"-        38-"+@time+"-"+$_debug_name+"- @error @serror"?  IF @userid="testers"
?"-        39-"+@time+"-"+$_debug_name+"- @error @serror"?        USE u: "\\server-opo-001\testers"
?"-        40-"+@time+"-"+$_debug_name+"- @error @serror"?        IF @error = 0
?"-        41-"+@time+"-"+$_debug_name+"- @error @serror"?              ? "Drive U mapeada."
?"-        42-"+@time+"-"+$_debug_name+"- @error @serror"?        ELSE
?"-        43-"+@time+"-"+$_debug_name+"- @error @serror"?              MessageBox ("A drive U:\ nao foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
?"-        44-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-        45-"+@time+"-"+$_debug_name+"- @error @serror"?        GOTO end
?"-        46-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        47-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        48-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("wedooblog")
?"-        49-"+@time+"-"+$_debug_name+"- @error @serror"?        USE w: "\\server-opo-001\wedo"
?"-        50-"+@time+"-"+$_debug_name+"- @error @serror"?        IF @error = 0
?"-        51-"+@time+"-"+$_debug_name+"- @error @serror"?              ? "Drive W mapeada."
?"-        52-"+@time+"-"+$_debug_name+"- @error @serror"?        ELSE
?"-        53-"+@time+"-"+$_debug_name+"- @error @serror"?              MessageBox ("A drive W nao foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
?"-        54-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-        55-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        56-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        57-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("STGVTestersGRP")
?"-        58-"+@time+"-"+$_debug_name+"- @error @serror"?        USE t: "\\server-opo-001\testers"
?"-        59-"+@time+"-"+$_debug_name+"- @error @serror"?        IF @error = 0
?"-        60-"+@time+"-"+$_debug_name+"- @error @serror"?              ? "Drive T mapeada."
?"-        61-"+@time+"-"+$_debug_name+"- @error @serror"?        ELSE
?"-        62-"+@time+"-"+$_debug_name+"- @error @serror"?              MessageBox ("A drive T nao foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
?"-        63-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-        64-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        65-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        66-"+@time+"-"+$_debug_name+"- @error @serror"?  ;mapeamento drive pessoal todos os users
?"-        67-"+@time+"-"+$_debug_name+"- @error @serror"?  USE u: "\\server-lis-014\@userid"
?"-        68-"+@time+"-"+$_debug_name+"- @error @serror"?  IF @error = 0
?"-        69-"+@time+"-"+$_debug_name+"- @error @serror"?        ? "Drive U mapeada."
?"-        70-"+@time+"-"+$_debug_name+"- @error @serror"?  ELSE
?"-        71-"+@time+"-"+$_debug_name+"- @error @serror"?        MessageBox ("A drive U nao foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
?"-        72-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        73-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        74-"+@time+"-"+$_debug_name+"- @error @serror"?  ;mapeamento drive comum a todos os users ESEGUR
?"-        75-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("Domain Users")
?"-        76-"+@time+"-"+$_debug_name+"- @error @serror"?        USE s: "\\server-lis-014\esegur-lis"
?"-        77-"+@time+"-"+$_debug_name+"- @error @serror"?        IF @error = 0
?"-        78-"+@time+"-"+$_debug_name+"- @error @serror"?              ? "Drive S mapeada."
?"-        79-"+@time+"-"+$_debug_name+"- @error @serror"?        ELSE
?"-        80-"+@time+"-"+$_debug_name+"- @error @serror"?              MessageBox ("A drive S nao foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
?"-        81-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-        82-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        83-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        84-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("esegur-lis-giaf")
?"-        85-"+@time+"-"+$_debug_name+"- @error @serror"?        USE p: "\\server-lis-014\esegur-lis-giaf"
?"-        86-"+@time+"-"+$_debug_name+"- @error @serror"?        IF @error = 0
?"-        87-"+@time+"-"+$_debug_name+"- @error @serror"?              ? "Drive P mapeada."
?"-        88-"+@time+"-"+$_debug_name+"- @error @serror"?        ELSE
?"-        89-"+@time+"-"+$_debug_name+"- @error @serror"?              $rc=MessageBox ("A drive P (GIAF) nao foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script. ERROR: @error", 0)
?"-        90-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-        91-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-        92-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-        93-"+@time+"-"+$_debug_name+"- @error @serror"?  ;impressora - HP Business Inkjet 2200/2250 - ADMIN
?"-        94-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("ESEGUR-LIS-ADMIN")
?"-        95-"+@time+"-"+$_debug_name+"- @error @serror"?        USE o: "\\server-lis-014\esegur-lis-admin"
?"-        96-"+@time+"-"+$_debug_name+"- @error @serror"?        IF @error = 0
?"-        97-"+@time+"-"+$_debug_name+"- @error @serror"?              ? "Drive O mapeada."
?"-        98-"+@time+"-"+$_debug_name+"- @error @serror"?        ELSE
?"-        99-"+@time+"-"+$_debug_name+"- @error @serror"?              MessageBox ("A drive O nao foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
?"-       100-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       101-"+@time+"-"+$_debug_name+"- @error @serror"?        ;apagar impressora antiga
?"-       102-"+@time+"-"+$_debug_name+"- @error @serror"?        DelPrinterConnection ("\\serverlx\HP Business Inkjet 2200/2250 - ADMIN")
?"-       103-"+@time+"-"+$_debug_name+"- @error @serror"?        ;adiciona impressora e predefine a default do grupo
?"-       104-"+@time+"-"+$_debug_name+"- @error @serror"?        IF KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,server-lis-014,ESEGUR-LIS-ADMIN-HP Business Inkjet 2200") = 0
?"-       105-"+@time+"-"+$_debug_name+"- @error @serror"?              AddPrinterConnection ("\\server-lis-014\ESEGUR-LIS-ADMIN-HPDJ2250")
?"-       106-"+@time+"-"+$_debug_name+"- @error @serror"?              SetDefaultPrinter("\\server-lis-014\ESEGUR-LIS-ADMIN-HP Business Inkjet 2200")
?"-       107-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       108-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       109-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       110-"+@time+"-"+$_debug_name+"- @error @serror"?  ;impressora - N/A
?"-       111-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("ESEGUR-LIS-GCS")
?"-       112-"+@time+"-"+$_debug_name+"- @error @serror"?        USE o: "\\server-lis-014\esegur-lis-gcs"
?"-       113-"+@time+"-"+$_debug_name+"- @error @serror"?        IF @error = 0
?"-       114-"+@time+"-"+$_debug_name+"- @error @serror"?              ? "Drive O mapeada."
?"-       115-"+@time+"-"+$_debug_name+"- @error @serror"?        ELSE
?"-       116-"+@time+"-"+$_debug_name+"- @error @serror"?              MessageBox ("A drive O nao foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
?"-       117-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       118-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       119-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       120-"+@time+"-"+$_debug_name+"- @error @serror"?  ;impressora - HP LaserJet 1200 Series PCL 6 - ESES-LIS-GS
?"-       121-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("ESEGUR-LIS-GS")
?"-       122-"+@time+"-"+$_debug_name+"- @error @serror"?        USE o: "\\server-lis-014\esegur-lis-gs"
?"-       123-"+@time+"-"+$_debug_name+"- @error @serror"?        IF @error = 0
?"-       124-"+@time+"-"+$_debug_name+"- @error @serror"?              ? "Drive O mapeada."
?"-       125-"+@time+"-"+$_debug_name+"- @error @serror"?        ELSE
?"-       126-"+@time+"-"+$_debug_name+"- @error @serror"?              MessageBox ("A drive O nao foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
?"-       127-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       128-"+@time+"-"+$_debug_name+"- @error @serror"?        ;apagar impressora antiga
?"-       129-"+@time+"-"+$_debug_name+"- @error @serror"?        DelPrinterConnection ("\\serverlx\HP LaserJet 1200 Series PCL 6 - ESES-LIS-GS")
?"-       130-"+@time+"-"+$_debug_name+"- @error @serror"?        ;adiciona impressora e predefine a default do grupo
?"-       131-"+@time+"-"+$_debug_name+"- @error @serror"?        IF KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,server-lis-014,ESES-LIS-GS-HP LaserJet 1200N") = 0
?"-       132-"+@time+"-"+$_debug_name+"- @error @serror"?              AddPrinterConnection ("\\server-lis-014\ESES-LIS-GS-HPLJ1200N")
?"-       133-"+@time+"-"+$_debug_name+"- @error @serror"?              ;SetDefaultPrinter("\\server-lis-014\ESES-LIS-GS-HP LaserJet 1200N")
?"-       134-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       135-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       136-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       137-"+@time+"-"+$_debug_name+"- @error @serror"?  ;impressora - N/A
?"-       138-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("ESEGUR-LIS-GSI")
?"-       139-"+@time+"-"+$_debug_name+"- @error @serror"?        USE w: "\\server-lis-014\esegur-lis-gsi"
?"-       140-"+@time+"-"+$_debug_name+"- @error @serror"?        IF @error = 0
?"-       141-"+@time+"-"+$_debug_name+"- @error @serror"?              ? "Drive O mapeada."
?"-       142-"+@time+"-"+$_debug_name+"- @error @serror"?        ELSE
?"-       143-"+@time+"-"+$_debug_name+"- @error @serror"?              MessageBox ("A drive O nao foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
?"-       144-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       145-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       146-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       147-"+@time+"-"+$_debug_name+"- @error @serror"?  ;impressora - HP LaserJet 1200 Series PCL 6 - GT
?"-       148-"+@time+"-"+$_debug_name+"- @error @serror"?  ;impressora - HP Deskjet 960C Series - GT
?"-       149-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("ESEGUR-LIS-DT")
?"-       150-"+@time+"-"+$_debug_name+"- @error @serror"?        USE o: "\\server-lis-014\esegur-lis-dt"
?"-       151-"+@time+"-"+$_debug_name+"- @error @serror"?        IF @error = 0
?"-       152-"+@time+"-"+$_debug_name+"- @error @serror"?              ? "Drive O mapeada."
?"-       153-"+@time+"-"+$_debug_name+"- @error @serror"?        ELSE
?"-       154-"+@time+"-"+$_debug_name+"- @error @serror"?              MessageBox ("A drive O nao foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
?"-       155-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       156-"+@time+"-"+$_debug_name+"- @error @serror"?        ;apagar impressora antiga
?"-       157-"+@time+"-"+$_debug_name+"- @error @serror"?        DelPrinterConnection ("\\serverlx\HP LaserJet 1200 Series PCL 6 - GT")
?"-       158-"+@time+"-"+$_debug_name+"- @error @serror"?        DelPrinterConnection ("\\serverlx\HP Deskjet 960C Series - GT")
?"-       159-"+@time+"-"+$_debug_name+"- @error @serror"?        ;adiciona impressora e predefine a default do grupo
?"-       160-"+@time+"-"+$_debug_name+"- @error @serror"?        IF KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,server-lis-014,ESEGUR-LIS-DT-HP LaserJet 1200") = 0
?"-       161-"+@time+"-"+$_debug_name+"- @error @serror"?              AddPrinterConnection ("\\server-lis-014\ESEGUR-LIS-DT-HPLJ1200")
?"-       162-"+@time+"-"+$_debug_name+"- @error @serror"?              SetDefaultPrinter("\\server-lis-014\ESEGUR-LIS-DT-HP LaserJet 1200")
?"-       163-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       164-"+@time+"-"+$_debug_name+"- @error @serror"?        IF KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,server-lis-014,ESEGUR-LIS-DT-HP Deskjet 960C") = 0
?"-       165-"+@time+"-"+$_debug_name+"- @error @serror"?              AddPrinterConnection ("\\server-lis-014\ESEGUR-LIS-DT-HPDJ960C")
?"-       166-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       167-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       168-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       169-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("ESEGUR-LIS-DGTV")
?"-       170-"+@time+"-"+$_debug_name+"- @error @serror"?        USE o: "\\server-lis-014\esegur-lis-dgtv"
?"-       171-"+@time+"-"+$_debug_name+"- @error @serror"?        IF @error = 0
?"-       172-"+@time+"-"+$_debug_name+"- @error @serror"?              ? "Drive O mapeada."
?"-       173-"+@time+"-"+$_debug_name+"- @error @serror"?        ELSE
?"-       174-"+@time+"-"+$_debug_name+"- @error @serror"?              $rc=MessageBox ("A drive O nao foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script. ERROR: @error", 0)
?"-       175-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       176-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       177-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       178-"+@time+"-"+$_debug_name+"- @error @serror"?  ;impressora - HP LaserJet 4100 PCL 6 - SV - CONS
?"-       179-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("ESEGUR-LIS-DGTV-CNSRVDR")
?"-       180-"+@time+"-"+$_debug_name+"- @error @serror"?        USE i: "\\server-lis-014\esegur-lis-dgtv-cnsrvdr"
?"-       181-"+@time+"-"+$_debug_name+"- @error @serror"?        IF @error = 0
?"-       182-"+@time+"-"+$_debug_name+"- @error @serror"?              ? "Drive I mapeada."
?"-       183-"+@time+"-"+$_debug_name+"- @error @serror"?        ELSE
?"-       184-"+@time+"-"+$_debug_name+"- @error @serror"?              MessageBox ("A drive I nao foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
?"-       185-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       186-"+@time+"-"+$_debug_name+"- @error @serror"?        ;apagar impressora antiga
?"-       187-"+@time+"-"+$_debug_name+"- @error @serror"?        DelPrinterConnection ("\\serverlx\HP LaserJet 4100 PCL 6 - SV - CONS")
?"-       188-"+@time+"-"+$_debug_name+"- @error @serror"?        ;adiciona impressora e predefine a default do grupo
?"-       189-"+@time+"-"+$_debug_name+"- @error @serror"?        IF KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,server-lis-014,ESEGUR-LIS-DGTV-CNSRVDR-HP LaserJet 4100N") = 0
?"-       190-"+@time+"-"+$_debug_name+"- @error @serror"?              AddPrinterConnection ("\\server-lis-014\ESEGUR-LIS-DGTV-CNSRVDR-HPLJ4100N")
?"-       191-"+@time+"-"+$_debug_name+"- @error @serror"?              SetDefaultPrinter("\\server-lis-014\ESEGUR-LIS-DGTV-CNSRVDR-HP LaserJet 4100N")
?"-       192-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       193-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       194-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       195-"+@time+"-"+$_debug_name+"- @error @serror"?  ;impressora - N/A
?"-       196-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("ESEGUR-LIS-DGTV-DRC")
?"-       197-"+@time+"-"+$_debug_name+"- @error @serror"?        USE k: "\\server-lis-014\esegur-lis-dgtv-drc"
?"-       198-"+@time+"-"+$_debug_name+"- @error @serror"?        IF @error = 0
?"-       199-"+@time+"-"+$_debug_name+"- @error @serror"?              ? "Drive K mapeada."
?"-       200-"+@time+"-"+$_debug_name+"- @error @serror"?        ELSE
?"-       201-"+@time+"-"+$_debug_name+"- @error @serror"?              MessageBox ("A drive K nao foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
?"-       202-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       203-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       204-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       205-"+@time+"-"+$_debug_name+"- @error @serror"?  ;impressora - HP deskjet 950C Series - SO
?"-       206-"+@time+"-"+$_debug_name+"- @error @serror"?  ;impressora - HP LaserJet 1200 Series PCL 6 - SO
?"-       207-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("ESEGUR-LIS-DO")
?"-       208-"+@time+"-"+$_debug_name+"- @error @serror"?        USE o: "\\server-lis-014\esegur-lis-do"
?"-       209-"+@time+"-"+$_debug_name+"- @error @serror"?        IF @error = 0
?"-       210-"+@time+"-"+$_debug_name+"- @error @serror"?              ? "Drive O mapeada."
?"-       211-"+@time+"-"+$_debug_name+"- @error @serror"?        ELSE
?"-       212-"+@time+"-"+$_debug_name+"- @error @serror"?              MessageBox ("A drive O nao foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
?"-       213-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       214-"+@time+"-"+$_debug_name+"- @error @serror"?        ;apagar impressora antiga
?"-       215-"+@time+"-"+$_debug_name+"- @error @serror"?        DelPrinterConnection ("\\serverlx\HP deskjet 950C Series - SO")
?"-       216-"+@time+"-"+$_debug_name+"- @error @serror"?        DelPrinterConnection ("\\serverlx\HP LaserJet 1200 Series PCL 6 - SO")
?"-       217-"+@time+"-"+$_debug_name+"- @error @serror"?        ;adiciona impressora e predefine a default do grupo
?"-       218-"+@time+"-"+$_debug_name+"- @error @serror"?        IF KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,server-lis-014,ESEGUR-LIS-DO-HP LaserJet 1200") = 0
?"-       219-"+@time+"-"+$_debug_name+"- @error @serror"?              AddPrinterConnection ("\\server-lis-014\ESEGUR-LIS-DO-HPLJ1200")
?"-       220-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       221-"+@time+"-"+$_debug_name+"- @error @serror"?        IF KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,server-lis-014,ESEGUR-LIS-DO-HP deskjet 950C") = 0
?"-       222-"+@time+"-"+$_debug_name+"- @error @serror"?              AddPrinterConnection ("\\server-lis-014\ESEGUR-LIS-DO-HPDJ950C")
?"-       223-"+@time+"-"+$_debug_name+"- @error @serror"?              SetDefaultPrinter("\\server-lis-014\ESEGUR-LIS-DO-HP deskjet 950C")
?"-       224-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       225-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       226-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       227-"+@time+"-"+$_debug_name+"- @error @serror"?  ;impressora - HP LaserJet 1200N Series PCL 6 - RH
?"-       228-"+@time+"-"+$_debug_name+"- @error @serror"?  ;impressora - HP LaserJet 4100 PCL 6 - RH
?"-       229-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("ESEGUR-LIS-RH")
?"-       230-"+@time+"-"+$_debug_name+"- @error @serror"?        USE o: "\\server-lis-014\esegur-lis-rh"
?"-       231-"+@time+"-"+$_debug_name+"- @error @serror"?        IF @error = 0
?"-       232-"+@time+"-"+$_debug_name+"- @error @serror"?              ? "Drive O mapeada."
?"-       233-"+@time+"-"+$_debug_name+"- @error @serror"?        ELSE
?"-       234-"+@time+"-"+$_debug_name+"- @error @serror"?              MessageBox ("A drive O nao foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
?"-       235-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       236-"+@time+"-"+$_debug_name+"- @error @serror"?        DelPrinterConnection ("\\serverlx\HP LaserJet 1200N Series PCL 6 - RH")
?"-       237-"+@time+"-"+$_debug_name+"- @error @serror"?        DelPrinterConnection ("\\serverlx\HP LaserJet 4100 PCL 6 - RH")
?"-       238-"+@time+"-"+$_debug_name+"- @error @serror"?        ;adiciona impressora
?"-       239-"+@time+"-"+$_debug_name+"- @error @serror"?        IF KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,server-lis-014,ESEGUR-LIS-RH-HP LaserJet 4200DTN") = 0
?"-       240-"+@time+"-"+$_debug_name+"- @error @serror"?              AddPrinterConnection ("\\server-lis-014\ESEGUR-LIS-RH-HPLJ4200DTN")
?"-       241-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       242-"+@time+"-"+$_debug_name+"- @error @serror"?        IF KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,server-lis-014,ESEGUR-LIS-RH-HP LaserJet 1200N") = 0
?"-       243-"+@time+"-"+$_debug_name+"- @error @serror"?              AddPrinterConnection ("\\server-lis-014\ESEGUR-LIS-RH-HPLJ1200N")
?"-       244-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       245-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       246-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       247-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("ESEGUR-LIS-RH-VNCMTS")
?"-       248-"+@time+"-"+$_debug_name+"- @error @serror"?        USE i: "\\server-lis-014\esegur-lis-rh-vncmts"
?"-       249-"+@time+"-"+$_debug_name+"- @error @serror"?        IF @error = 0
?"-       250-"+@time+"-"+$_debug_name+"- @error @serror"?              ? "Drive I mapeada."
?"-       251-"+@time+"-"+$_debug_name+"- @error @serror"?        ELSE
?"-       252-"+@time+"-"+$_debug_name+"- @error @serror"?              MessageBox ("A drive I nao foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
?"-       253-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       254-"+@time+"-"+$_debug_name+"- @error @serror"?        ;predefine a default do grupo
?"-       255-"+@time+"-"+$_debug_name+"- @error @serror"?        SetDefaultPrinter("\\server-lis-014\ESEGUR-LIS-RH-HP LaserJet 4200DTN")
?"-       256-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       257-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       258-"+@time+"-"+$_debug_name+"- @error @serror"?  ;impressora - HP Deskjet 6127 - DC
?"-       259-"+@time+"-"+$_debug_name+"- @error @serror"?  ;impressora - HP DeskJet 890C - DC
?"-       260-"+@time+"-"+$_debug_name+"- @error @serror"?  ;impressora - HP LaserJet 5000 Series PCL - DC
?"-       261-"+@time+"-"+$_debug_name+"- @error @serror"?  ;impressora - MINOLTA-QMS magicolor 2200
?"-       262-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       263-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("ESEGUR-LIS-DC")
?"-       264-"+@time+"-"+$_debug_name+"- @error @serror"?        USE o: "\\server-lis-014\esegur-lis-dc"
?"-       265-"+@time+"-"+$_debug_name+"- @error @serror"?        IF @error = 0
?"-       266-"+@time+"-"+$_debug_name+"- @error @serror"?              ? "Drive O mapeada."
?"-       267-"+@time+"-"+$_debug_name+"- @error @serror"?        ELSE
?"-       268-"+@time+"-"+$_debug_name+"- @error @serror"?              MessageBox ("A drive O nao foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
?"-       269-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       270-"+@time+"-"+$_debug_name+"- @error @serror"?        ;apagar impressora antiga
?"-       271-"+@time+"-"+$_debug_name+"- @error @serror"?        DelPrinterConnection ("\\serverlx\HP Deskjet 6127 - DC")
?"-       272-"+@time+"-"+$_debug_name+"- @error @serror"?        DelPrinterConnection ("\\serverlx\HP DeskJet 890C - DC")
?"-       273-"+@time+"-"+$_debug_name+"- @error @serror"?        DelPrinterConnection ("\\serverlx\HP LaserJet 5000 Series PCL - DC")
?"-       274-"+@time+"-"+$_debug_name+"- @error @serror"?        DelPrinterConnection ("\\serverlx\MINOLTA-QMS magicolor 2200")
?"-       275-"+@time+"-"+$_debug_name+"- @error @serror"?        ;adiciona impressora
?"-       276-"+@time+"-"+$_debug_name+"- @error @serror"?        IF KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,server-lis-014,ESEGUR-LIS-DC-TGTV-HP LaserJet 5000N") = 0
?"-       277-"+@time+"-"+$_debug_name+"- @error @serror"?              AddPrinterConnection ("\\server-lis-014\ESEGUR-LIS-DC-TGTV-HPLJ5000N")
?"-       278-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       279-"+@time+"-"+$_debug_name+"- @error @serror"?        IF KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,server-lis-014,ESEGUR-LIS-DC-VHE-MINOLTA-QMS magicolor 2200") = 0
?"-       280-"+@time+"-"+$_debug_name+"- @error @serror"?              AddPrinterConnection ("\\server-lis-014\ESEGUR-LIS-DC-VHE-QMSMGCLR2200")
?"-       281-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       282-"+@time+"-"+$_debug_name+"- @error @serror"?        IF KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,server-lis-014,ESEGUR-LIS-DC-VHE-HP Deskjet 6127") = 0
?"-       283-"+@time+"-"+$_debug_name+"- @error @serror"?              AddPrinterConnection ("\\server-lis-014\ESEGUR-LIS-DC-VHE-HPDJ6127")
?"-       284-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       285-"+@time+"-"+$_debug_name+"- @error @serror"?        IF KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,server-lis-014,ESEGUR-LIS-DC-TGTV-HP DeskJet 890C") = 0
?"-       286-"+@time+"-"+$_debug_name+"- @error @serror"?              AddPrinterConnection ("\\server-lis-014\ESEGUR-LIS-DC-TGTV-HPDJ890C")
?"-       287-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       288-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       289-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       290-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("ESEGUR-LIS-DC-TGTV")
?"-       291-"+@time+"-"+$_debug_name+"- @error @serror"?        USE i: "\\server-lis-014\esegur-lis-dc-tgtv"
?"-       292-"+@time+"-"+$_debug_name+"- @error @serror"?        IF @error = 0
?"-       293-"+@time+"-"+$_debug_name+"- @error @serror"?              ? "Drive I mapeada."
?"-       294-"+@time+"-"+$_debug_name+"- @error @serror"?        ELSE
?"-       295-"+@time+"-"+$_debug_name+"- @error @serror"?              MessageBox ("A drive I nao foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
?"-       296-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       297-"+@time+"-"+$_debug_name+"- @error @serror"?        ;predefine a default do grupo
?"-       298-"+@time+"-"+$_debug_name+"- @error @serror"?        SetDefaultPrinter("\\server-lis-014\ESEGUR-LIS-DC-TGTV-HPLJ5000N")
?"-       299-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       300-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       301-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("ESEGUR-LIS-DC-VHE")
?"-       302-"+@time+"-"+$_debug_name+"- @error @serror"?        USE i: "\\server-lis-014\esegur-lis-dc-vhe"
?"-       303-"+@time+"-"+$_debug_name+"- @error @serror"?        IF @error = 0
?"-       304-"+@time+"-"+$_debug_name+"- @error @serror"?              ? "Drive I mapeada."
?"-       305-"+@time+"-"+$_debug_name+"- @error @serror"?        ELSE
?"-       306-"+@time+"-"+$_debug_name+"- @error @serror"?              MessageBox ("A drive I nao foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
?"-       307-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       308-"+@time+"-"+$_debug_name+"- @error @serror"?        ;predefine a default do grupo
?"-       309-"+@time+"-"+$_debug_name+"- @error @serror"?        SetDefaultPrinter("\\server-lis-014\ESEGUR-LIS-DC-VHE-HPDJ6127")
?"-       310-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       311-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       312-"+@time+"-"+$_debug_name+"- @error @serror"?  ;impressora - HP DeskJet 890C - SAF
?"-       313-"+@time+"-"+$_debug_name+"- @error @serror"?  ;impressora - HP LaserJet 4 - SAF
?"-       314-"+@time+"-"+$_debug_name+"- @error @serror"?  ;impressora - HP LaserJet 4V - SAF
?"-       315-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("ESEGUR-LIS-DAF")
?"-       316-"+@time+"-"+$_debug_name+"- @error @serror"?        USE o: "\\server-lis-014\esegur-lis-daf"
?"-       317-"+@time+"-"+$_debug_name+"- @error @serror"?        IF @error = 0
?"-       318-"+@time+"-"+$_debug_name+"- @error @serror"?              ? "Drive O mapeada."
?"-       319-"+@time+"-"+$_debug_name+"- @error @serror"?        ELSE
?"-       320-"+@time+"-"+$_debug_name+"- @error @serror"?              $rc=MessageBox ("A drive O nao foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script. ERROR: @error", 0)
?"-       321-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       322-"+@time+"-"+$_debug_name+"- @error @serror"?        ;apagar impressora antiga
?"-       323-"+@time+"-"+$_debug_name+"- @error @serror"?        DelPrinterConnection ("\\serverlx\HP DeskJet 890C - SAF")
?"-       324-"+@time+"-"+$_debug_name+"- @error @serror"?        DelPrinterConnection ("\\serverlx\HP LaserJet 4 - SAF")
?"-       325-"+@time+"-"+$_debug_name+"- @error @serror"?        DelPrinterConnection ("\\serverlx\HP LaserJet 4V - SAF")
?"-       326-"+@time+"-"+$_debug_name+"- @error @serror"?        ;adiciona impressora e predefine a usual do grupo
?"-       327-"+@time+"-"+$_debug_name+"- @error @serror"?        IF KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,server-lis-014,ESEGUR-LIS-DAF-HP LaserJet 4V #1") = 0
?"-       328-"+@time+"-"+$_debug_name+"- @error @serror"?              AddPrinterConnection ("\\server-lis-014\ESEGUR-LIS-DAF-HPLJ4V1")
?"-       329-"+@time+"-"+$_debug_name+"- @error @serror"?              SetDefaultPrinter("\\server-lis-014\ESEGUR-LIS-DAF-HP LaserJet 4V #1")
?"-       330-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       331-"+@time+"-"+$_debug_name+"- @error @serror"?        IF KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,server-lis-014,ESEGUR-LIS-DAF-HP LaserJet 4V #2") = 0
?"-       332-"+@time+"-"+$_debug_name+"- @error @serror"?              AddPrinterConnection ("\\server-lis-014\ESEGUR-LIS-DAF-HPLJ4V2")
?"-       333-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       334-"+@time+"-"+$_debug_name+"- @error @serror"?        IF KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,server-lis-014,ESEGUR-LIS-DAF-HP DeskJet 890C") = 0
?"-       335-"+@time+"-"+$_debug_name+"- @error @serror"?              AddPrinterConnection ("\\server-lis-014\ESEGUR-LIS-DAF-HPDJ890C")
?"-       336-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       337-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       338-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       339-"+@time+"-"+$_debug_name+"- @error @serror"?  ;impressora - HP Deskjet 6127 - DTV
?"-       340-"+@time+"-"+$_debug_name+"- @error @serror"?  ;impressora - HP LaserJet 4200 PCL 6 - DTV
?"-       341-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("ESEGUR-LIS-DTV")
?"-       342-"+@time+"-"+$_debug_name+"- @error @serror"?        USE o: "\\server-lis-014\esegur-lis-dtv"
?"-       343-"+@time+"-"+$_debug_name+"- @error @serror"?        IF @error = 0
?"-       344-"+@time+"-"+$_debug_name+"- @error @serror"?              ? "Drive O mapeada."
?"-       345-"+@time+"-"+$_debug_name+"- @error @serror"?        ELSE
?"-       346-"+@time+"-"+$_debug_name+"- @error @serror"?              MessageBox ("A drive O nao foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
?"-       347-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       348-"+@time+"-"+$_debug_name+"- @error @serror"?        ;apagar impressora antiga
?"-       349-"+@time+"-"+$_debug_name+"- @error @serror"?        DelPrinterConnection ("\\serverlx\HP Deskjet 6127 - DTV")
?"-       350-"+@time+"-"+$_debug_name+"- @error @serror"?        DelPrinterConnection ("\\serverlx\HP LaserJet 4200 PCL 6 - DTV")
?"-       351-"+@time+"-"+$_debug_name+"- @error @serror"?        ;adiciona impressora e predefine a usual do grupo
?"-       352-"+@time+"-"+$_debug_name+"- @error @serror"?        IF KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,server-lis-014,ESEGUR-LIS-DTV-HP LaserJet 4200DTN") = 0
?"-       353-"+@time+"-"+$_debug_name+"- @error @serror"?              AddPrinterConnection ("\\server-lis-014\ESEGUR-LIS-DTV-HPLJ4200DTN")
?"-       354-"+@time+"-"+$_debug_name+"- @error @serror"?              SetDefaultPrinter("\\server-lis-014\ESEGUR-LIS-DTV-HP LaserJet 4200DTN")
?"-       355-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       356-"+@time+"-"+$_debug_name+"- @error @serror"?        IF KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,server-lis-014,ESEGUR-LIS-DTV-HP Deskjet 6127") = 0
?"-       357-"+@time+"-"+$_debug_name+"- @error @serror"?              AddPrinterConnection ("\\server-lis-014\ESEGUR-LIS-DTV-HPDJ6127")
?"-       358-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       359-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       360-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       361-"+@time+"-"+$_debug_name+"- @error @serror"?  IF InGroup ("ESEGUR-LIS-ADMIN-SEC")
?"-       362-"+@time+"-"+$_debug_name+"- @error @serror"?        USE n: "\\server-lis-014\esegur-lis-admin-sec"
?"-       363-"+@time+"-"+$_debug_name+"- @error @serror"?        IF @error = 0
?"-       364-"+@time+"-"+$_debug_name+"- @error @serror"?              ? "Drive N mapeada."
?"-       365-"+@time+"-"+$_debug_name+"- @error @serror"?        ELSE
?"-       366-"+@time+"-"+$_debug_name+"- @error @serror"?              MessageBox ("A drive N nao foi mapeada. Por favor informe o Helpdesk - 110500 ou 21 949 11 69.","Esegur Login Script", 0)
?"-       367-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       368-"+@time+"-"+$_debug_name+"- @error @serror"?        ;apagar impressora antiga
?"-       369-"+@time+"-"+$_debug_name+"- @error @serror"?        DelPrinterConnection ("\\serverlx\HP Business Inkjet 2200/2250 - ADMIN")
?"-       370-"+@time+"-"+$_debug_name+"- @error @serror"?        ;adiciona impressora e predefine a default do grupo
?"-       371-"+@time+"-"+$_debug_name+"- @error @serror"?        IF KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,server-lis-014,ESEGUR-LIS-ADMIN-HP Business Inkjet 2200") = 0
?"-       372-"+@time+"-"+$_debug_name+"- @error @serror"?              AddPrinterConnection ("\\server-lis-014\ESEGUR-LIS-ADMIN-HPDJ2250")
?"-       373-"+@time+"-"+$_debug_name+"- @error @serror"?              SetDefaultPrinter("\\server-lis-014\ESEGUR-LIS-ADMIN-HP Business Inkjet 2200")
?"-       374-"+@time+"-"+$_debug_name+"- @error @serror"?        ENDIF
?"-       375-"+@time+"-"+$_debug_name+"- @error @serror"?  ENDIF
?"-       376-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       377-"+@time+"-"+$_debug_name+"- @error @serror"?  ? "Drives Globais mapeadas"
?"-       378-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       379-"+@time+"-"+$_debug_name+"- @error @serror"?  GOTO end
?"-       380-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       381-"+@time+"-"+$_debug_name+"- @error @serror"? :end
?"-       382-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       383-"+@time+"-"+$_debug_name+"- @error @serror"?  $ipadres = Trim(Substr(@ipaddress0,1,3)) + "." + Trim(Substr(@ipaddress0,5,3)) + "." + Trim(Substr(@ipaddress0,9,3)) + "." + Trim(Substr(@ipaddress0,13,3))
?"-       384-"+@time+"-"+$_debug_name+"- @error @serror"?  $lserve = Trim(Substr(@lserver,3,50))
?"-       385-"+@time+"-"+$_debug_name+"- @error @serror"? 
?"-       386-"+@time+"-"+$_debug_name+"- @error @serror"?  MessageBox ("Bem vindo &#8230; rede ESEGUR"+@crlf+@crlf+
           "Contacto Do Helpdesk: 110500 / 21 949 11 69"+@crlf+@crlf+
           "Utilizador: @fullname (@userid)"+@crlf+
           "Autenticado por: $lserver"+@crlf+
           "Workstation: @wksta"+@crlf+
           "Sistema Operativo: @producttype"+@crlf+
           "Endere?o IP: $ipadres","ESEGUR, Empresa de Seguran?a SA",64,25)
?"-       387-"+@time+"-"+$_debug_name+"- @error @serror"?  EXIT

?"------- end-"+@time+"-"+$_debug_name+"- @error @serror"
             ? "-"
             ? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/4.00e script ending"
             IF (Val(substr(@kix,1,1)) >= 4)
               IF (len(@scriptname) <> 0)
                 " ("+LCASE(@scriptname)+")"
               ENDIF
             ENDIF
             ? "-"
             IF RedirectOutput("CON")
             ENDIF
             COLOR C+/N
             ?
             ? "Informative KIX "+@kix+":"+" debug info see "+CHR(34)+$_debug_file+CHR(34)
             IF (Val(substr(@kix,1,1)) >= 4)
               IF (len(@scriptname) <> 0)
                 " ("+LCASE(@scriptname)+")"
               ENDIF
             ENDIF
             IF RedirectOutput($_debug_file)
             ENDIF
;($begin)
;
;                       thu 06-mar-2003 18:20:01       (kix 4.20 vs 4.00e)
;
;Informative KIXSTRIP:   no errors found (input=387 output=387 skip=0).
;
;Summary     KIXSTRIP:      block structures
;                           - do:until                 [0:0]
;                           - for|each:in|to:step|next [0|0:0|0:0|0]
;                           - function:endfunction     [0:0]
;                           - if:else:endif            [69:26:69]
;                           - select:case:endselect    [0:0:0]
;                           - while:loop               [0:0]
;Informative KIXSTRIP:   69 block_structures found.
;Informative KIXSTRIP:   no UDF's found.
;Informative KIXSTRIP:    2 labels found.
;Summary     KIXSTRIP:      BREAK CALL DEBUG DISPLAY ENDFUNCTION EXECUTE EXIT FUNCTION GET GETS GOSUB GOTO OLExxx PLAY QUIT RETURN RUN SHELL SLEEP THEN USE
;Informative KIXSTRIP:    1 EXIT
;Informative KIXSTRIP:    3 GOTO
;Informative KIXSTRIP:   26 USE
;
;($end)
Before running our tool we have combine the MessageBox
_________________________
email scripting@wanadoo.nl homepage scripting@wanadoo.nl | Links | Summary of Site Site KiXforms FAQ kixtart.org library collection mirror MCA | FAQ & UDF help file UDF kixtart.org library collection mirror MCA | mirror USA | mirror europe UDF scriptlogic library collection UDFs | mirror MCA
Top
Page 1 of 2
Previous Topic View All Topics
Index Next Topic
Entire topic
Subject	Posted by	Posted
Cannot map some network drives	Luis Arnauth	2003-03-06 11:38 AM
Re: Cannot map some network drives	Lonkero	2003-03-06 11:46 AM
Re: Cannot map some network drives	Luis Arnauth	2003-03-06 01:02 PM
Re: Cannot map some network drives	Lonkero	2003-03-06 01:22 PM
Re: Cannot map some network drives	Luis Arnauth	2003-03-06 02:02 PM
Re: Cannot map some network drives	Howard Bullock	2003-03-06 02:51 PM
Re: Cannot map some network drives	Luis Arnauth	2003-03-06 03:09 PM
Re: Cannot map some network drives	MCA	2003-03-06 03:16 PM
Re: Cannot map some network drives	Sealeopard	2003-03-06 04:43 PM
Re: Cannot map some network drives	Luis Arnauth	2003-03-06 05:13 PM
Re: Cannot map some network drives	Howard Bullock	2003-03-06 05:34 PM
Re: Cannot map some network drives	MCA	2003-03-06 06:22 PM
Re: Cannot map some network drives	Luis Arnauth	2003-03-06 07:12 PM
Re: Cannot map some network drives	MCA	2003-03-06 08:34 PM
Re: Cannot map some network drives	Sealeopard	2003-03-06 11:24 PM
Re: Cannot map some network drives	Luis Arnauth	2003-03-07 11:03 AM
Re: Cannot map some network drives	Luis Arnauth	2003-03-07 11:04 AM
Re: Cannot map some network drives	MightyR1	2003-03-07 11:08 AM
Re: Cannot map some network drives	Sealeopard	2003-03-07 03:05 PM
Re: Cannot map some network drives	Schuliebug	2003-03-07 03:24 PM
Re: Cannot map some network drives	Sealeopard	2003-03-07 03:37 PM
Re: Cannot map some network drives	Schuliebug	2003-03-07 03:49 PM
Re: Cannot map some network drives	Sealeopard	2003-03-07 04:19 PM
Re: Cannot map some network drives	Jochen	2003-03-07 04:23 PM
Re: Cannot map some network drives	Jochen	2003-03-07 04:46 PM
Moderator: Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart
Hop to:
Shout Box
Search the board with:
superb Board Search
or try with google:

	Web kixtart.org