Page 1 of 2 12>
Topic Options
#37388 - 2003-03-06 11:38 AM Cannot map some network drives
Luis Arnauth Offline
Fresh Scripter

Registered: 2003-03-06
Posts: 13
Hello all,

I have a login script that maps network drives:

Bellow is an example:

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

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

For members in group ESEGUR-LIS-RH-VNCMTS the drive I: is mapped but for the other users the error occours.

I thought it was the long name from the share but the share of ESEGUR-LIS-RH-VNCMTS is longer than the other...

We've move the DC yesterday and we rename the shares and some groups (not the ones in the example) in the new DC.

We've put the /f in the batch to flush all the cache of groups and the USE "*" /DELETE to delete previous drives.

Thanks

Luis Arnauth

Top
#37389 - 2003-03-06 11:46 AM Re: Cannot map some network drives
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
now, this part seems to be ok, so I don't believe this is the exact failing code.

can't you post the whole code?
or at least from the start until to the first failing code.

then, change the failing code to:
code:
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

and tell what is the error it shows.
_________________________
!

download KiXnet

Top
#37390 - 2003-03-06 01:02 PM Re: Cannot map some network drives
Luis Arnauth Offline
Fresh Scripter

Registered: 2003-03-06
Posts: 13
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 ]

Top
#37391 - 2003-03-06 01:22 PM Re: Cannot map some network drives
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
mm...
67, "network name can not be found"

have you checked the sharename?
this just looks like there is simple typo messing around.
_________________________
!

download KiXnet

Top
#37392 - 2003-03-06 02:02 PM Re: Cannot map some network drives
Luis Arnauth Offline
Fresh Scripter

Registered: 2003-03-06
Posts: 13
The share name is correct and it's visible when i enter the SERVER-LIS-014 machine.

I've removed the share and add it again and the error is the same (67)

A second problem:

There are network shares (such as ESEGUR-LIS-DAF) that windows2k machines map but i've tested in a Win9x machine and the error code is 234 (More data is available.)

What can it be ?

Luis Arnauth

Top
#37393 - 2003-03-06 02:51 PM Re: Cannot map some network drives
Howard Bullock Offline
KiX Supporter
*****

Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA
Take a look at http://support.microsoft.com/default.aspx?scid=kb%3ben-us%3b160807
_________________________
Home page: http://www.kixhelp.com/hb/

Top
#37394 - 2003-03-06 03:09 PM Re: Cannot map some network drives
Luis Arnauth Offline
Fresh Scripter

Registered: 2003-03-06
Posts: 13
I've read your link to kb and i don't think that's my problem, because my DC is Windows 2000 Server, and before the migration from the old Windows 2000 Server to the present one i've even reduced the shares (old users...)

For the problem in the Windows 2000 Pro machines i've arranjed a solution... put all use's in lowercase, this is:

USE O: "\\SERVER-LIS-014\ESEGUR-LIS-DGTV"

to

USE O: "\\server-lis-014\esegur-lis-dgtv"

and so on...

i've seen this script somewhere in the forum:
>>>>>>>>>>>>>
$count = 0

;Map X Drive
Do
$mapped = "0"
$count = $count + 1
If $count = "10"
$Window = MessageBox("X Drive Server not available or drive is already mapped.", "ERROR.", 0)
$count = 0
$mapped = "1"
Else
Use X: \\snaplab\xdrive
If @error = 0
$mapped = "1"
EndIf
EndIf
Until $mapped = "1"
>>>>>>>>>>>>>>>>>>>

It creates a loop until it finds the drive

I'll try and post the result

Luis Arnauth

Top
#37395 - 2003-03-06 03:16 PM Re: Cannot map some network drives
MCA Offline
KiX Supporter
*****

Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
Dear,

Welcome to the board.

We have add some debugging code to your script. The file %tmp%\kixdebug.txt will
return additional information.
We see that you are trying to map (based on groupmembership) another O-drive.
With our version the board can see how your script is running.

code:
 
we have replaced this code with a more actual one. see our post later

please return the output of %tmp%\kixdebug.txt to the board.

btw: when a normal mapping by net use O: "\\server-LIS-014\esegur-lis-dtgv"
isn't possible, then kixtart can't do it either.

[ 06. March 2003, 18:24: Message edited by: MCA ]
_________________________
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
#37396 - 2003-03-06 04:43 PM Re: Cannot map some network drives
Sealeopard Offline
KiX Master
*****

Registered: 2001-04-25
Posts: 11165
Loc: Boston, MA, USA
Please read Limits in NetBIOS, computer/printer names, share names/comments in the FAQ Forum.
_________________________
There are two types of vessels, submarines and targets.

Top
#37397 - 2003-03-06 05:13 PM Re: Cannot map some network drives
Luis Arnauth Offline
Fresh Scripter

Registered: 2003-03-06
Posts: 13
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

Top
#37398 - 2003-03-06 05:34 PM Re: Cannot map some network drives
Howard Bullock Offline
KiX Supporter
*****

Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA
Luis Arnauth, please use code tags when posting your code.

Please read: http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=1;t=005181
_________________________
Home page: http://www.kixhelp.com/hb/

Top
#37399 - 2003-03-06 06:22 PM Re: Cannot map some network drives
MCA Offline
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
#37400 - 2003-03-06 07:12 PM Re: Cannot map some network drives
Luis Arnauth Offline
Fresh Scripter

Registered: 2003-03-06
Posts: 13
First off all sorry for the lack of the CODE /CODE tags.

first is the result from a windows 2k / xp pro machine

code:
-thursday 2003/03/06 17:42:18- kixtart 4.20/4.00e script starting (aaaa.kix)
-
-curdir: d:\kix
-scriptdir: d:\kix
-startdir: d:\tools\kix\kix2001_420\kix2001.420
-
-userid: larnauth/larnauth
-user priv: user
-version: inwin=1/dos=5.1/productsuite=256/producttype=Windows XP Professional/csd=Service Pack 1
-
-debug file: G:\WINDOWS\TEMP\kixdebug.txt
-debug name: 20030306_174218.768_2546
-
----- start-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 1-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.
0
- 2-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 3-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 4-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 5-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 13-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 14-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

Definindo as drives de rede...
- 15-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 16-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 17-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 18-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 19-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 20-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

Drives anteriores apagadas.
- 21-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 24-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 25-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 26-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 36-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 37-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 38-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 47-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 48-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 56-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 57-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 65-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 66-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 67-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 68-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 69-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

Drive U mapeada.
- 70-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 73-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 74-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 75-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 76-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 77-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 78-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

Drive S mapeada.
- 79-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 82-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 83-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 84-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 85-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 86-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 87-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

Drive P mapeada.
- 88-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 91-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 92-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 93-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 94-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 109-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 110-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 111-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 119-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 120-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 121-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 136-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 137-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 138-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 139-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 140-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 141-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

Drive O mapeada.
- 142-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 145-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 146-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 147-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 148-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 149-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 168-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 169-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 170-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 171-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 172-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

Drive O mapeada.
- 173-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 176-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 177-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 178-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 179-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 194-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 195-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 196-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 204-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 205-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 206-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 207-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 226-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 227-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 228-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 229-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 246-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 247-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 257-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 258-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 259-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 260-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 261-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 262-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 263-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 289-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 290-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 300-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 301-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 311-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 312-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 313-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 314-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 315-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 338-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 339-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 340-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 341-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 360-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 361-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 376-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 377-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

Drives Globais mapeadas
- 378-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 379-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 382-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 383-17:42:18-20030306_174218.768_2546 - 0 The operation completed successfully.

- 384-17:42:19-20030306_174218.768_2546 - 0 The operation completed successfully.

- 385-17:42:19-20030306_174218.768_2546 - 0 The operation completed successfully.

- 386-17:42:19-20030306_174218.768_2546 - 0 The operation completed successfully.
1
- 387-17:42:20-20030306_174218.768_2546 - 1 Incorrect function.

Now the same script from a windows 9x machine...

code:
-thursday 2003/03/06 18:12:00- kixtart 4.20/4.00e script starting (testing.kix)
-
-curdir: c:\kix
-scriptdir: c:\kix
-startdir: c:\kix
-
-userid: larnauth/larnauth
-user priv: user
-version: inwin=2/dos=4.0/productsuite=0/producttype=Windows 95/csd=B
-
-debug file: C:\WINDOWS\TEMP\kixdebug.txt
-debug name: 20030306_181201.000_38
-
----- start-18:12:01-20030306_181201.000_38 - 0 The operation completed successfully.

- 1-18:12:01-20030306_181201.000_38 - 0 The operation completed successfully.
0
- 2-18:12:01-20030306_181201.000_38 - 0 The operation completed successfully.

- 3-18:12:01-20030306_181201.000_38 - 0 The operation completed successfully.

- 4-18:12:01-20030306_181201.000_38 - 0 The operation completed successfully.

- 5-18:12:01-20030306_181201.000_38 - 0 The operation completed successfully.

- 6-18:12:01-20030306_181201.000_38 - 0 The operation completed successfully.

- 7-18:12:00-20030306_181201.000_38 - 0 The operation completed successfully.

- 8-18:12:00-20030306_181201.000_38 - 0 The operation completed successfully.

Actualiza&#8225;ao completa.
- 9-18:12:00-20030306_181201.000_38 - 0 The operation completed successfully.

- 12-18:12:00-20030306_181201.000_38 - 0 The operation completed successfully.

- 13-18:12:00-20030306_181201.000_38 - 0 The operation completed successfully.

- 14-18:12:00-20030306_181201.000_38 - 0 The operation completed successfully.

Definindo as drives de rede...
- 15-18:12:00-20030306_181201.000_38 - 0 The operation completed successfully.

- 16-18:12:00-20030306_181201.000_38 - 0 The operation completed successfully.

- 17-18:12:00-20030306_181201.000_38 - 0 The operation completed successfully.

- 18-18:12:00-20030306_181201.000_38 - 0 The operation completed successfully.

- 19-18:12:00-20030306_181201.000_38 - 0 The operation completed successfully.

- 20-18:12:00-20030306_181201.000_38 - 0 The operation completed successfully.

Drives anteriores apagadas.
- 21-18:12:00-20030306_181201.000_38 - 0 The operation completed successfully.

- 24-18:12:00-20030306_181201.000_38 - 0 The operation completed successfully.

- 25-18:12:00-20030306_181201.000_38 - 0 The operation completed successfully.

- 26-18:12:00-20030306_181201.000_38 - 0 The operation completed successfully.

- 36-18:12:00-20030306_181201.000_38 - 0 The operation completed successfully.

- 37-18:12:00-20030306_181201.000_38 - 0 The operation completed successfully.

- 38-18:12:00-20030306_181201.000_38 - 0 The operation completed successfully.

- 47-18:12:00-20030306_181201.000_38 - 0 The operation completed successfully.

- 48-18:12:00-20030306_181201.000_38 - 0 The operation completed successfully.

- 56-18:12:00-20030306_181201.000_38 - 0 The operation completed successfully.

- 57-18:12:00-20030306_181201.000_38 - 0 The operation completed successfully.

- 65-18:12:00-20030306_181201.000_38 - 0 The operation completed successfully.

- 66-18:12:00-20030306_181201.000_38 - 0 The operation completed successfully.

- 67-18:12:00-20030306_181201.000_38 - 0 The operation completed successfully.

- 68-18:12:01-20030306_181201.000_38 - 0 The operation completed successfully.

- 69-18:12:01-20030306_181201.000_38 - 0 The operation completed successfully.

Drive U mapeada.
- 70-18:12:01-20030306_181201.000_38 - 0 The operation completed successfully.

- 73-18:12:01-20030306_181201.000_38 - 0 The operation completed successfully.

- 74-18:12:01-20030306_181201.000_38 - 0 The operation completed successfully.

- 75-18:12:01-20030306_181201.000_38 - 0 The operation completed successfully.

- 76-18:12:01-20030306_181201.000_38 - 0 The operation completed successfully.

- 77-18:12:01-20030306_181201.000_38 - 0 The operation completed successfully.

- 78-18:12:01-20030306_181201.000_38 - 0 The operation completed successfully.

Drive S mapeada.
- 79-18:12:01-20030306_181201.000_38 - 0 The operation completed successfully.

- 82-18:12:01-20030306_181201.000_38 - 0 The operation completed successfully.

- 83-18:12:01-20030306_181201.000_38 - 0 The operation completed successfully.

- 84-18:12:01-20030306_181201.000_38 - 0 The operation completed successfully.

- 85-18:12:01-20030306_181201.000_38 - 0 The operation completed successfully.

- 86-18:12:01-20030306_181201.000_38 - 234 More data is available.

- 89-18:12:01-20030306_181201.000_38 - 234 More data is available.

- 90-18:12:02-20030306_181201.000_38 - 1 Incorrect function.

- 91-18:12:02-20030306_181201.000_38 - 1 Incorrect function.

- 92-18:12:02-20030306_181201.000_38 - 1 Incorrect function.

- 93-18:12:02-20030306_181201.000_38 - 1 Incorrect function.

- 94-18:12:02-20030306_181201.000_38 - 1 Incorrect function.

- 109-18:12:02-20030306_181201.000_38 - 1 Incorrect function.

- 110-18:12:02-20030306_181201.000_38 - 1 Incorrect function.

- 111-18:12:02-20030306_181201.000_38 - 1 Incorrect function.

- 119-18:12:02-20030306_181201.000_38 - 1 Incorrect function.

- 120-18:12:02-20030306_181201.000_38 - 1 Incorrect function.

- 121-18:12:02-20030306_181201.000_38 - 1 Incorrect function.

- 136-18:12:02-20030306_181201.000_38 - 1 Incorrect function.

- 137-18:12:02-20030306_181201.000_38 - 1 Incorrect function.

- 138-18:12:02-20030306_181201.000_38 - 1 Incorrect function.

- 139-18:12:02-20030306_181201.000_38 - 1 Incorrect function.

- 140-18:12:02-20030306_181201.000_38 - 234 More data is available.

- 143-18:12:02-20030306_181201.000_38 - 234 More data is available.
1
- 144-18:12:03-20030306_181201.000_38 - 1 Incorrect function.

- 145-18:12:03-20030306_181201.000_38 - 1 Incorrect function.

- 146-18:12:03-20030306_181201.000_38 - 1 Incorrect function.

- 147-18:12:03-20030306_181201.000_38 - 1 Incorrect function.

- 148-18:12:03-20030306_181201.000_38 - 1 Incorrect function.

- 149-18:12:03-20030306_181201.000_38 - 1 Incorrect function.

- 168-18:12:03-20030306_181201.000_38 - 1 Incorrect function.

- 169-18:12:03-20030306_181201.000_38 - 1 Incorrect function.

- 170-18:12:03-20030306_181201.000_38 - 1 Incorrect function.

- 171-18:12:03-20030306_181201.000_38 - 234 More data is available.

- 174-18:12:03-20030306_181201.000_38 - 234 More data is available.

- 175-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 176-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 177-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 178-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 179-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 194-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 195-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 196-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 204-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 205-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 206-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 207-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 226-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 227-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 228-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 229-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 246-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 247-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 257-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 258-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 259-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 260-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 261-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 262-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 263-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 289-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 290-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 300-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 301-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 311-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 312-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 313-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 314-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 315-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 338-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 339-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 340-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 341-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 360-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 361-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 376-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 377-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

Drives Globais mapeadas
- 378-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 379-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 382-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 383-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 384-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 385-18:12:04-20030306_181201.000_38 - 1 Incorrect function.

- 386-18:12:04-20030306_181201.000_38 - 1 Incorrect function.
1
- 387-18:12:05-20030306_181201.000_38 - 1 Incorrect function.

Thanks again

Luis Arnauth

Top
#37401 - 2003-03-06 08:34 PM Re: Cannot map some network drives
MCA Offline
KiX Supporter
*****

Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
Dear,

A close look at the results we find your problem with W95B environment.

The W95B run shows
- 86-18:12:01-20030306_181201.000_38 - 234 More data is available.
which is the result of your statement
USE p: "\\server-lis-014\esegur-lis-giaf" (line 85).

For XP it is mapping all drives according your group membership. The length
of share names is important.
Your specification of esegur-lis-giaf is too long. Run it again with shorter
share names.

Secondly we see that you are mapping the O-drive in the XP Pro twice. As
alternative we suggest to use SELECT/CASE/ENDSELECT structure to prevent
such way of mapping.
greetings.
_________________________
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
#37402 - 2003-03-06 11:24 PM Re: Cannot map some network drives
Sealeopard Offline
KiX Master
*****

Registered: 2001-04-25
Posts: 11165
Loc: Boston, MA, USA
I aleady stated that earlier by referencing the relevant FAQ Forum post under Limits in NetBIOS, computer/printer names, share names/comments
_________________________
There are two types of vessels, submarines and targets.

Top
#37403 - 2003-03-07 11:03 AM Re: Cannot map some network drives
Luis Arnauth Offline
Fresh Scripter

Registered: 2003-03-06
Posts: 13
My problem with the windows2k machines is resolved, the lowercase apparently is the solution.

For the win9x machines i'll have to create smaller share names and separate the script.

By the way, how can i call a new kix script from a script ?

something like

If @inwin <> 1
"call another kix script"

Thanks

Luis

Top
#37404 - 2003-03-07 11:04 AM Re: Cannot map some network drives
Luis Arnauth Offline
Fresh Scripter

Registered: 2003-03-06
Posts: 13
My problem with the windows2k machines is resolved, the lowercase apparently is the solution.

For the win9x machines i'll have to create smaller share names and separate the script.

By the way, how can i call a new kix script from a script ?

something like
code:
If @inwin <> 1 
"call another kix script"

Thanks

Luis

Top
#37405 - 2003-03-07 11:08 AM Re: Cannot map some network drives
MightyR1 Offline
MM club member
*****

Registered: 1999-09-09
Posts: 1264
Loc: The Netherlands
Correct:

code:
if @inwin <> 1
call "<path2yourscript>\yourscript.kix"
endif



[ 07. March 2003, 11:09: Message edited by: MightyR1 ]
_________________________
Greetz,
Patrick Rutten

- We'll either find a way or make one...
- Knowledge is power; knowing how to find it is more powerful...
- Problems don't exist; they are challenges...

Top
#37406 - 2003-03-07 03:05 PM Re: Cannot map some network drives
Sealeopard Offline
KiX Master
*****

Registered: 2001-04-25
Posts: 11165
Loc: Boston, MA, USA
Actually, I'd rather use
code:
IF @INWIN=2
; run this for Windows 9x only
ENDIF
IF @INWIN=1
; run this for Windows NT/2000/XP only
ENDIF
IF @INWIN<>1
; run this for (not) Windows NT/2000/XP only
ENDIF

Conditions Number 1 and 3 are lgically different conditions as in one case you want to explicitly run it only for Windows 9x whereas in condition #3 you want to run it for any computer that is not a Windows NT/2000/XP computer, which is an implicit statement to run it under Windows 9x (or anything else that is not Windows NT/2000/XP).

This will make a difference in case @INWIN at some point in the future might receive a third potential return value like @INWIN=0 or @INWIN=3 (Linux-based computer maybe?).
_________________________
There are two types of vessels, submarines and targets.

Top
#37407 - 2003-03-07 03:24 PM Re: Cannot map some network drives
Schuliebug Offline
Hey THIS is FUN
*****

Registered: 2002-01-18
Posts: 379
Loc: Netherlands
Instead of using
code:
use "driveletter" "share"
If @Error
Else
EndIf

you could use
code:
Shell '%ComSpec% /c net use "driveletter" "share"'
If @Error
Else
EndIf

That way it works for our Windows'95 environment. For Windows 2000 there's no problem in tha API (i thought an bug in the '95 netapi was the problem).
_________________________
Kind regards,

Top
Page 1 of 2 12>


Moderator:  Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart 
Hop to:
Shout Box

Who's Online
0 registered and 601 anonymous users online.
Newest Members
M_Moore, BeeEm, min_seow, Audio, Hoschi
17883 Registered Users

Generated in 0.082 seconds in which 0.032 seconds were spent on a total of 13 queries. Zlib compression enabled.

Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org