sábado, 13 de março de 1999

JADE - Join Access Development Enhancedʋ

I was trainee at Siemens And was vying for a spot Of official.
I installed micro every day.
I automated the entire process from the request until hardware installation
Well we were in 1997-1998 I did not have google
I put the windows with graphical interface on a floppy disk. (thinks only 1,44MB) and the rest extract on RAMDrive

I migrated more than 7000 computers in the project called Fenix.
I was 16-17 years old ... 
We were in 4 trainne were sent away  and I was hired, to do the old function as an official and more new things in 6 months later, I had already become a database analyst (Siemens give a new opportunity (Tks Sandro Cesar de Paula, I don´t forget, Cesar, Fabiane, Régis, Escarião, Amâncio, Fernando, Alexandre(s), Simon, Rosinha, Gilson, Yuri and other I will put the others names in the future)


(c) Siemens SBS-NSL, developed by Fábio Leandro Lapuinka 13 de março de 1999
(+55 41 341 5555)


rem
rem Join access to enhanc

a
e developers J.A.D.E
rem ________________________________
rem
rem Junção de técnicas para evoluir developers
rem
rem Desenvolvido por: Fabio Leandro Lapuinka
rem Email: fabiol@siemens.com.br ou fabioleandro@yahoo.com
rem Criado em: 13/03/1999
rem Atualizado em: 29/04/2000
rem Fone: xx 55 41 341-5555

Fabio Leandro Lapuinka on Siemens.


I´m started with Trainee->HelpDesk(Install Machines)->Database Administrator (DBA) SQL Server/Sybase/Oracle

Every day, I have 20 notebooks or CPU to install, it´s very boring, and I decided to automated the role process.
Why? Because I feel that is the right thing...


Boot with CD-ROM or Floppy disk will start the JADE, as the screen bellow.







Is a graphical interface to install new operations Systens, after that each operational system instaled are controled by VIGIA
VIGIA is a Watch Dog, made to take control from user machine and install each software request by a HELPDESK Ticket.



Jade are Loading....


Choose your Operation System .... 


Choose your Hardware



Choose your Machine Type....



Tell more about your Computer Name



Jade are asking for for Backup process....


An General IO Error,
just for Sample..




Jade VS Ghost Multicast!



Jade WINS!!! Jade is more fast more estable, Siemens expend 4 days during a Windows 95 = > Windows XP Migration to install in 9.000 computers in the first Stage of the Project Called Fênix (Projeto FENIX – SIEMENS & MICROSOFT) .
The have only 1 day to clean the mesh made by GHOST and save de Pascoa, yes is Pascoa holiday choose to install 9k Machines.

Ghost,have a lot of problems with Multicast Protocol, this protocol had a problems with old hardware
and fire a broadcast signal.

Jade use a better approach!


We use a Switch to connect 4 computers and trigger JADE to install
each computer, JADE install the Operational System, Connect to Network and Download Each Customize Software for Each Machine....:-) Is more smart than a Clone Image Right?


Jade was used by more 15.000 of computers on Siemens (Curitiba,Anhanguera-SP,Lapa-SP,Manaus,Rio de Janeiro, Recife, Minas Gerais during 1999-2004)

Born in 1998, as part of Siemens project called JADE and Sheeva.

This tecnology use the multicast protocol to trans stream of data and install a serveral machines in the same time. Today we use this technology to make Video and Stream Cast Radio Servers.

All the code are available here:

https://github.com/lapuinka/jade/




The purpose of the main project is make a robot to automate the Windows XP install.
The professional people from IT make a floppy disk, that this disk used the TCP IP protocol to connect an server. After that, an Windows 95 GUI interface was loaded on RamDrive.

It´s a very beautifull project make on that year. I did a something new.

When the Wizard was loaded, the user could be select the correct version of Windows:

Windows XP, NT, 2000,95.

The Setup create a connection and extract the Data from network to local disk.

It´s a very common image, without CORE HARDWARE, after that a serveral scripts take the control of the process, detect the correct Drive and install with previous instructions.

I  Started the project in 1998 I have 17 years Old, this project make a lot of changes in my live and is the more importante.

And remember, there are not stack overflow or google in that time.

The real resson about Those names are because I like to play MK3 in fliperama machines, during my free time.

Thanks Jade, your are the one

'$Include 'Declares.inc'
'$include 'lib\funcoes.inc'
Dim  mensagem$

' A função desse script é interragir com mensagem de erro e telas com que o usuário teria que se preocupar
' no processo de acerto.



[boot loader]
timeout=5
default=multi(0)disk(0)rdisk(0)partition(3)\WINNT
[operating systems]
multi(0)disk(0)rdisk(0)partition(3)\WINNT="Windows NT Workstation Version 4.00" 
multi(0)disk(0)rdisk(0)partition(3)\WINNT="Windows NT Workstation Version 4.00 (3)" /basevideo /crashdebug /debug /sos 
C:\="Microsoft Windows" 


rem Atualizado em 31/01/2000
rem Este script recupera o menu de boot do Windows NT 4.0


'$include 'declares'        ' Variaveis predefinidas do MSTEST
'$include 'lib\funcoes.inc'
'$include 'telas\local.inc'
'$include 'telas\sistema.inc'
'$include 'telas\modelos.inc'
'$include 'telas\softs.inc'
'$include 'telas\concluir.inc'
'$include 'telas\nt.inc'

 declare sub sub_localidade()
 declare sub sub_sistemas()
 declare sub sub_modelos()
 declare sub sub_softs()
 declare sub sub_concluir()
 declare sub sub_instalar()
 declare sub sub_aplicativos_Adicional_localidade()
 declare sub sub_copiar_windows95_SP()
 declare sub sub_copiar_windows95_Ctba()
 declare sub sub_copiar_windowsnt4_Ctba()
 declare sub sub_check_install()
 declare sub sub_form_windows_nt()
 declare sub sub_aplicativos_espaco_requerido()
 global gns$, passount$,espacopedido$
 global diskspacerequired%

How to know?  I studied very hard the both books bellow, and believe, there are the core for the next generations of Windows....I´m very happy to know theses guys...





'Definiηυes bαsicas dos objetos

dlg_sistemas.opt_sistemas_windows_95=1
dlg_sistemas.chk_sistemas_backup=1
dlg_sistemas.chk_sistemas_formatar=0
dlg_modelos.opt_modelos_desktop=1
dlg_concluir.txt_concluir_gns="CUR2E"
dlg_concluir.chk_concluir_reiniciar=1
dlg_concluir.chk_concluir_recuperacao=1

'Definiηυes do formulαrio do Windows NT
dlg_nt.chk_nt_cd=0
dlg_nt.opt_nt_unidade_c=1
dlg_nt.opt_nt_unidade_d=0
dlg_nt.chk_nt_boot_ini=1
dlg_nt.chk_nt_service_pack=0


dlg_localidade.opt_localidade_Anhanguera_Local=1

'Definiηυes dos softwares padrυes de padrγo corporativo

dlg_softs.chk_Acrobat_Reader_4=-1
dlg_softs.chk_GroupWise_5_5_2=-1
dlg_softs.chk_Office_Sr2=-1
dlg_softs.chk_Winzip7=-1
dlg_softs.chk_Java_Plug=-1


     sub_localidade




'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
sub sub_localidade()

   options=dlgbox(localidade,null,dlg_localidade,"telas\local.res",true)

    if options=104 then
           sub_sistemas             'Avanηar para o prσximo formulαrio
       elseif options=105 then
               stop                       'Finaliza
       elseif options=-4000 then
              stop                       'Finaliza
    endif




end sub
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 sub sub_sistemas

passount$="false"
   options=dlgbox(sistemas,null,dlg_sistemas,"telas\sistema.res",true)

    if options=104 then
            'seu aqui

               if  dlg_localidade.opt_localidade_Anhanguera_Local=-1 or dlg_localidade.opt_localidade_Anhanguera_IC=-1 then
                       sub_softs
                       else
                       sub_check_install
               endif

                        'Avanηar para o prσximo formulαrio
        elseif options=103 then
           sub_localidade          'Volta
       elseif options=105 then
               stop                       'Finaliza
       elseif options=-4000 then
              stop                       'Finaliza
    endif

 end sub

'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 sub sub_modelos

   options=dlgbox(modelos,null,dlg_modelos,"telas\modelos.res",true) '


    if options=102 then
           sub_concluir                 'Avanηa
       elseif options=101 then
           if passount$="true" then
                sub_form_windows_nt
                else
                 sub_sistemas            'Volta
          endif
       elseif options=103 then
               stop                       'Finaliza
       elseif options=-4000 then
              stop                       'Finaliza
    endif


 end sub
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
sub sub_softs()

           if dlg_localidade.opt_localidade_Anhanguera_Local=-1 then

                     dlg_softs.chk_SAP_Tel=0
                     dlg_softs.chk_SAP_DVL=0
                     dlg_softs.chk_Sap_Siemens_Local=-1
                     dlg_softs.chk_Internet_Explorer_5=-1
                     dlg_softs.chk_Terminal_IBM=0
                     dlg_softs.chk_Terminal_IBM_Q3270=1
                     dlg_softs.chk_Programa_3i=1



           elseif  dlg_localidade.opt_localidade_Anhanguera_IC=-1 then
                     dlg_softs.chk_SAP_Tel=-1
                     dlg_softs.chk_SAP_DVL=0
                     dlg_softs.chk_Sap_Siemens_Local=0
                     dlg_softs.chk_Internet_Explorer_5=1
                     dlg_softs.chk_Terminal_IBM=-0
                     dlg_softs.chk_Terminal_IBM_Q3270=1
                     dlg_softs.chk_Programa_3i=-1


           endif




   options=dlgbox(softs,null,dlg_softs,"telas\softs.res",true) '



    if options=102 then
           sub_check_instalL             'Avanηa
       elseif options=101 then
           sub_sistemas            'Volta
       elseif options=103 then
               stop                       'Finaliza
       elseif options=-4000 then
              stop                       'Finaliza
    endif


end sub

'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

sub sub_check_install()


                        if  dlg_localidade.opt_localidade_Curitiba_IC=-1 then

                                             if dlg_sistemas.opt_sistemas_windows_95=-1  then
                                                             diskspacerequired=0
                                                             ' sub_aplicativos_espaco_requerido
                                                            statusbox "Checando espaηo em disco..." ,100,1,480,35,false,false,"MS Sans Serif"
                                                            diskspacerequired=diskspacerequired+500
                                                            espacopedido=ltrim$(str$(diskspacerequired))


                                                            run "Z:\DOS\espaco.bat c: "+espacopedido+"  " +environ$("virtualdrive")+":\free.flg",,0


                                                            statusbox close
                                                               if  exists(environ$("virtualdrive")+":\free.flg") then

                                                                     kill environ$("virtualdrive")+":\free.flg"

                                                                      else

                                                                      continua=msgbox ("Espaηo em disco insuficiente, sγo necessαrios "+espacopedido+" MB.", MB_ABORTRETRYIGNORE+MB_ICONSTOP+MB_NOBEEP , "Aviso")

                                                                     if continua=IDABORT then
                                                                           stop
                                                                           elseif continua=IDRETRY then
                                                                            sub_sistemas
                                                                            elseif continua=IDIGNORE then
                                                                                 sub_modelos

                                                                     endif






                                                            endif




                                             endif

                                       'Windows NT


                                             if dlg_sistemas.opt_sistemas_windows_nt=-1  then

                                                            statusbox "Checando espaηo em disco..." ,100,1,480,35,false,false,"MS Sans Serif"
                                                             diskspacerequired=0
                                                             sub_aplicativos_espaco_requerido
                                                            diskspacerequired=diskspacerequired+600
                                                            espacopedido=ltrim$(str$(diskspacerequired))

                                                                run "Z:\DOS\espaco.bat c: "+espacopedido+"  " +environ$("virtualdrive")+":\free.flg",,0

                                                            statusbox close
                                                               if  exists(environ$("virtualdrive")+":\free.flg") then

                                                                     kill environ$("virtualdrive")+":\free.flg"

                                                                      sub_form_windows_nt

                                                                      else

                                                                      continua=msgbox ("Espaηo em disco insuficiente, sγo necessαrios "+espacopedido+" MB.", MB_ABORTRETRYIGNORE+MB_ICONSTOP+MB_NOBEEP , "Aviso")

                                                                     if continua=IDABORT then
                                                                           stop
                                                                           elseif continua=IDRETRY then
                                                                            sub_sistemas
                                                                            elseif continua=IDIGNORE then
                                                                                 sub_form_windows_nt

                                                                     endif

                                                            endif


                                                                    sub_form_windows_nt


                                             endif



                                      elseif dlg_localidade.opt_localidade_Anhanguera_Local=-1 or dlg_localidade.opt_localidade_Anhanguera_IC=-1 then

                                  'Teste para outras localicalidades


                                             if dlg_sistemas.opt_sistemas_windows_95=-1  then
                                                            statusbox "Checando espaηo em disco..." ,100,1,480,35,false,false,"MS Sans Serif"
                                                             diskspacerequired=0
                                                             sub_aplicativos_espaco_requerido
                                                            diskspacerequired=diskspacerequired+500
                                                            espacopedido=ltrim$(str$(diskspacerequired))

                                                                run "Z:\DOS\espaco.bat c: "+espacopedido+"  " +environ$("virtualdrive")+":\free.flg",,0

                                                            statusbox close
                                                               if  exists(environ$("virtualdrive")+":\free.flg") then

                                                                     kill environ$("virtualdrive")+":\free.flg"

                                                                      else
                                                                      continua=msgbox ("Espaηo em disco insuficiente, sγo necessαrios "+espacopedido+" MB.", MB_ABORTRETRYIGNORE+MB_ICONSTOP+MB_NOBEEP , "Aviso")

                                                                     if continua=IDABORT then
                                                                           stop
                                                                           elseif continua=IDRETRY then
                                                                            sub_sistemas
                                                                            elseif continua=IDIGNORE then
                                                                                 sub_modelos

                                                                     endif


                                                            endif

                                                               else


                                                                                           msgbox "O pacote nγo existe para localidade", MB_ICONSTOP+MB_NOBEEP , "Aviso"
                                                                                          sub_sistemas


                                             endif











                        endif



sub_modelos


end sub


         JADE 
            

         VS 


                      VISUAL BASIC FOR DOS





JADE WINS! 

Visual for DOS is a bad idea! The are C programmers, and we made a good Win32 Graphical interface 32 Bits. There is no chances! Bad Idea make by German Siemens.









'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------


 sub sub_concluir

                        if  dlg_localidade.opt_localidade_Anhanguera_Local=-1 then
                                         dlg_concluir.txt_concluir_gns="SAO"

                        elseif  dlg_localidade.opt_localidade_Anhanguera_IC=-1 then

                                        dlg_concluir.txt_concluir_gns="SAO"
                        elseif  dlg_localidade.opt_localidade_Curitiba_IC=-1 then

                                        dlg_concluir.txt_concluir_gns="CUR2E"

                     endif




   options=dlgbox(concluir,null,dlg_concluir,"telas\concluir.res",true) '

    if options=102 then

                  if dlg_sistemas.chk_sistemas_backup=1 then

                            do while true

                                   escrevaarquivo "c:\backup.log", date$ + time$ + " Inνcio da rotina de backup..."
                                   run "Z:\Scripts\Bats\Backup.bat",,0
                                          continua=msgbox ("Backup  realizado com sucesso?", MB_YESNOCANCEL +MB_ICONSTOP+MB_NOBEEP , "Aviso")

                                          if continua=IDYES   then
                                                escrevaarquivo "c:\backup.log", date$ + time$ + " Backup realizado com sucesso."
                                                exit do

                                                elseif continua=IDNO then

                                                escrevaarquivo "c:\backup.log", date$ + time$ + " Reiniciando rotina de backup"

                                                 elseif continua=IDCANCEL then

                                                 escrevaarquivo "c:\backup.log", date$ + time$ + " Backup cancelado ."

                                                      exit do

                                          endif

                              loop
                    endif ' fecha do if do dlg_sistemas


                  if dlg_sistemas.chk_sistemas_formatar=1   and dlg_sistemas.opt_sistemas_windows_95=-1   or  dlg_sistemas.chk_sistemas_formatar=1   and dlg_sistemas.opt_sistemas_windows_nt=-1then
                               statusbox "Aguarde um momento, iniciando a formataηγo rαpida no drive C: ",,,,,true,true,"MS Sans Serif"
                              run "Z:\Scripts\Bats\Formatar.bat  C: Rapida",,3
                              escrevaarquivo "c:\formatar.log", date$ + time$ + " O usuαrio solicitou formataηγo do disco."
                              statusbox close
                  endif




           sub_instalar             'Concluir


       elseif options=101 then
           sub_modelos                 'Volta
       elseif options=105 then
               stop                       'Finaliza
       elseif options=-4000 then
              stop                       'Finaliza
    endif


 end sub


'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
sub sub_instalar

'Ler GNS

        gns$=ltrim$(dlg_concluir.txt_concluir_gns)




if dlg_sistemas.opt_sistemas_windows_95=-1  then




                        if  dlg_localidade.opt_localidade_Anhanguera_Local=-1 then

                                escrevaarquivo "c:\win95.log", date$ + time$ + " Instalaηγo padrγo para clientes Siemens  da Anhanguera."

                                sub_copiar_windows95_SP

                                escrevaarquivo "c:\windows\options\flags\anh.flg", date$ + time$ + " Instalaηγo padrγo para clientes a Anhanguera Siemens."


                     endif



                        if  dlg_localidade.opt_localidade_Anhanguera_IC=-1 then

                                escrevaarquivo "c:\win95.log", date$ + time$ + " Instalaηγo padrγo para clientes Siemens  para Clientes da  IC."

                                sub_copiar_windows95_SP

                                escrevaarquivo "c:\windows\options\flags\icsp.flg", date$ + time$ + " Instalaηγo padrγo para clientes da  IC."


                     endif

                        if  dlg_localidade.opt_localidade_Curitiba_IC=-1 then

                                escrevaarquivo "c:\win95.log", date$ + time$ + " Instalaηγo padrγo para clientes Siemens  para Clientes da  IC de Curitiba."

                                sub_copiar_windows95_Ctba

                                escrevaarquivo "c:\windows\options\flags\icctba.flg", date$ + time$ + " Instalaηγo padrγo para clientes da  IC."


                     endif





      elseif dlg_sistemas.opt_sistemas_windows_nt=-1  then

                              'eu aqui

                        if  dlg_localidade.opt_localidade_Curitiba_IC=-1 then


                                sub_copiar_windowsnt4_Ctba


                                      else

                                          msgbox "O pacote para nγo existe para localidade", MB_ICONSTOP+MB_NOBEEP , "Aviso"
                                        stop


                        endif


      elseif dlg_sistemas.opt_sistemas_windows_31=-1  then
                    msgbox "Sistema operacional nγo suportado", MB_ICONSTOP+MB_NOBEEP , "Aviso"
                  stop


endif




'Flags para aplicativos do NAL

        sub_aplicativos_Adicional_localidade








'Reiniciar?

        if dlg_concluir.chk_concluir_reiniciar = 1 then


                              run "reboot.exe",nowait,0
                         else

                               ' avisa o usuαrio que a instalaηγo terminou
                            msgbox "Downloading do prι-instalado concluνdo", MB_ICONSTOP+MB_NOBEEP , "Aviso"
        endif











end sub

'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
sub sub_aplicativos_Adicional_localidade




'////////////////////////////////////////////////////////


 if not  dlg_softs.chk_Access_97=0 then
   statusbox "Copiando solicitaηγo de instalaηγo do Acess 97... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuαrio solicitou a instalaηγo do Acess97 para o Novell ZENworks."
   copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs1.nal"  to "c:\windows\options\nal"
   statusbox close

 endif


 if not  dlg_softs.chk_Access_2=0 then
   statusbox "Copiando solicitaηγo de instalaηγo do Acess 2... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuαrio solicitou a instalaηγo do Acess2 para o Novell ZENworks."
      copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs2.nal"  to "c:\windows\options\nal"
      statusbox close
 endif


 if not  dlg_softs.chk_Cliente_Siebel_v5_5=0 then
   statusbox "Copiando solicitaηγo de instalaηγo do Client Siebel V5.5 - SRF... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuαrio solicitou a instalaηγo do Client Siebel V5.5 - SRF para o Novell ZENworks."

     copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs3.nal"  to "c:\windows\options\nal"
      statusbox close

 endif

 if not  dlg_softs.chk_Client_Siebel_v5_5_Patch_2=0 then
   statusbox "Copiando solicitaηγo de instalaηγo do Client Siebel V5.5... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuαrio solicitou a instalaηγo do Client Siebel V5.5  para o Novell ZENworks."

       copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs4.nal"  to "c:\windows\options\nal"
      statusbox close

 endif


 if not  dlg_softs.chk_LanWorkPlace_5_0=0 then
   statusbox "Copiando solicitaηγo de instalaηγo do LanWorkPlace 5.0... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuαrio solicitou a instalaηγo do LanWorkPlace 5.0 para o Novell ZENworks."

       copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs5.nal"  to "c:\windows\options\nal"
      statusbox close

 endif


 if not  dlg_softs.chk_Oracle_734=0 then
   statusbox "Copiando solicitaηγo de instalaηγo do Client Oracle 734... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuαrio solicitou a instalaηγo do Client Oracle 734 para o Novell ZENworks."

       copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs6.nal"  to "c:\windows\options\nal"
      statusbox close

 endif






 if not  dlg_softs.chk_Project_4=0 then
   statusbox "Copiando solicitaηγo de instalaηγo do Microsoft Project 4.0... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuαrio solicitou a instalaηγo do Microsoft Project 4.0 para o Novell ZENworks."

       copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs7.nal"  to "c:\windows\options\nal"
      statusbox close

 endif

 if not  dlg_softs.chk_Project_98=0 then
   statusbox "Copiando solicitaηγo de instalaηγo do Microsoft Project 98 ... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuαrio solicitou a instalaηγo do Microsoft Project 98 para o Novell ZENworks."

       copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs8.nal"  to "c:\windows\options\nal"
      statusbox close

 endif

 if not  dlg_softs.chk_SAP_DVL=0 then
   statusbox "Copiando solicitaηγo de instalaηγo do SAP DVL ... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuαrio solicitou a instalaηγo do SAP DVL para o Novell ZENworks."

       copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs9.nal"  to "c:\windows\options\nal"
      statusbox close

 endif


 if not  dlg_softs.chk_SAP_Tel=0then
   statusbox "Copiando solicitaηγo de instalaηγo do SAP Tel ... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuαrio solicitou a instalaηγo do SAP Tel  para o Novell ZENworks."

       copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs10.nal"  to "c:\windows\options\nal"
      statusbox close

 endif




 if not  dlg_softs.chk_Sap_Siemens_Local=0 then
   statusbox "Copiando solicitaηγo de instalaηγo do SAP Local ... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuαrio solicitou a instalaηγo do SAP Local para o Novell ZENworks."

       copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs11.nal"  to "c:\windows\options\nal"
      statusbox close

 endif

 if not  dlg_softs.chk_Terminal_IBM_Q3270=0 then
   statusbox "Copiando solicitaηγo de instalaηγo do Terminal IBM Q3270 ... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuαrio solicitou a instalaηγo do Terminal IBM Q3270  para o Novell ZENworks."

       copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs12.nal"  to "c:\windows\options\nal"
      statusbox close



 endif

 if not  dlg_softs.chk_Terminal_IBM=0 then
   statusbox "Copiando solicitaηγo de instalaηγo do Terminal IBM ... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuαrio solicitou a instalaηγo do Terminal IBM para o Novell ZENworks."

       copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs13.nal"  to "c:\windows\options\nal"
      statusbox close



 endif






 if not  dlg_softs.chk_Terminal_Server=0 then
   statusbox "Copiando solicitaηγo de instalaηγo do Terminal Server... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuαrio solicitou a instalaηγo do Terminal Server para o Novell ZENworks."

       copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs14.nal"  to "c:\windows\options\nal"
      statusbox close

 endif

 if not  dlg_softs.chk_TGD=0 then
   statusbox "Copiando solicitaηγo de instalaηγo do TGD... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuαrio solicitou a instalaηγo do TGD para o Novell ZENworks."

       copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs15.nal"  to "c:\windows\options\nal"
      statusbox close


 endif



end sub


'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
sub sub_copiar_windows95_SP()

                  if exists("c:\windows\options\flags\final95.flg") then 'se jα houve uma instalaηγo feita na mαquina, apaga os flags da antiga

                     run "deltree /y c:\windows\options\flags\*.flg",,0

                  endif


                'Instalar do boot do 95 sys a: c:

                   boot95 'instala o boot do windows 95

                       escrevaarquivo "c:\win95.log", date$ + time$ + " - Iniciando a descompactaηγo dos pacotes"
                                              winzipself "z:\pacotes\mestre\win95\sp\c\","flags.exe","c:\"


                                '  se o pacote jα foi baixado


                                if  dlg_concluir.chk_concluir_recuperacao=1 then
                                                    ' se nγo foi marcada a opηγo de recuperaηγo, forηa o pacote




                                               if   not exists("c:\windows\options\flags\pacote1.flg") then

                                                           ' Verifica se jα foi copiado e pula para o prσximo pacote
                                                  statusbox " Modo automαtico - descompactando pacote de instalaηγo -  1° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\win95\sp\c\","file1.exe","c:\"
                                                  escrevaarquivo "c:\win95.log", date$ + time$ + " - 1° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\windows\options\flags\pacote1.flg", date$ + time$ + "  - 1° pacote  descompactado, prosseguindo."

                                                  else ' se existe o flag e como a oηγo de recuperaηγo foi marcada pula a descompactaηγo

                                                               ' nγo faz nada, pula para o prσximo pacote

                                                               statusbox " Modo automαtico [ recuperaηγo segura ] - o pacote 1  jα foi descompactando, passando para o prσximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\win95.log", date$ + time$ + " Modo automαtico [ recuperaηγo segura ] - o pacote 1  jα foi descompactando, passando para o prσximo."
                                                               statusbox close



                                               endif






                                        else ' se nγo for macarda opηγo de recuperaηγo







                                                  statusbox " Modo automαtico - descompactando pacote de instalaηγo -  1° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\win95\sp\c\","file1.exe","c:\"
                                                  escrevaarquivo "c:\win95.log", date$ + time$ + "  - 1° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\windows\options\flags\pacote1.flg", date$ + time$ + "  - 1° pacote  descompactado, prosseguindo."


                                endif  'fecha o recuperacao




'2222

                                if  dlg_concluir.chk_concluir_recuperacao=1 then
                                                    ' se nγo foi marcada a opηγo de recuperaηγo, forηa o pacote




                                               if   not exists("c:\windows\options\flags\pacote2.flg") then

                                                           ' Verifica se jα foi copiado e pula para o prσximo pacote
                                                  statusbox " Modo automαtico - descompactando pacote de instalaηγo -  2° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\win95\sp\c\","file2.exe","c:\"
                                                  escrevaarquivo "c:\win95.log", date$ + time$ + "  - 2° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\windows\options\flags\pacote2.flg", date$ + time$ + "  - 2° pacote  descompactado, prosseguindo."

                                                  else ' se existe o flag e como a oηγo de recuperaηγo foi marcada pula a descompactaηγo

                                                               ' nγo faz nada, pula para o prσximo pacote

                                                               statusbox " Modo automαtico [ recuperaηγo segura ] - o pacote 2  jα foi descompactando, passando para o prσximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\win95.log", date$ + time$ + " Modo automαtico [ recuperaηγo segura ] - o pacote 2  jα foi descompactando, passando para o prσximo."
                                                               statusbox close


                                               endif






                                        else ' se nγo for macarda opηγo de recuperaηγo







                                                  statusbox " Modo automαtico - descompactando pacote de instalaηγo -  2° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\win95\sp\c\","file2.exe","c:\"
                                                  escrevaarquivo "c:\win95.log", date$ + time$ + "  - 2° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\windows\options\flags\pacote2.flg", date$ + time$ + "  - 2° pacote  descompactado, prosseguindo."


                                endif  'fecha o recuperacao





'11111


                                if  dlg_concluir.chk_concluir_recuperacao=1 then
                                                    ' se nγo foi marcada a opηγo de recuperaηγo, forηa o pacote




                                               if   not exists("c:\windows\options\flags\pacote3.flg") then

                                                           ' Verifica se jα foi copiado e pula para o prσximo pacote
                                                  statusbox " Modo automαtico - descompactando pacote de instalaηγo -  3° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\win95\sp\c\","file3.exe","c:\"
                                                  escrevaarquivo "c:\win95.log", date$ + time$ + "  - 3° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\windows\options\flags\pacote3.flg", date$ + time$ + "  - 3° pacote  descompactado, prosseguindo."

                                                  else ' se existe o flag e como a oηγo de recuperaηγo foi marcada pula a descompactaηγo

                                                               ' nγo faz nada, pula para o prσximo pacote

                                                               statusbox " Modo automαtico [ recuperaηγo segura ] - o pacote 3  jα foi descompactando, passando para o prσximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\win95.log", date$ + time$ + " Modo automαtico [ recuperaηγo segura ] - o pacote 3  jα foi descompactando, passando para o prσximo."
                                                               statusbox close


                                               endif






                                        else ' se nγo for macarda opηγo de recuperaηγo







                                                  statusbox " Modo automαtico - descompactando pacote de instalaηγo -  3° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\win95\sp\c\","file3.exe","c:\"
                                                  escrevaarquivo "c:\win95.log", date$ + time$ + "  - 3° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\windows\options\flags\pacote3.flg", date$ + time$ + "  - 3° pacote  descompactado, prosseguindo."


                                endif  'fecha o recuperacao










'453434


                          if exists("z:\pacotes\mestre\win95\sp\c\hotfix.exe") then

                                   if  dlg_concluir.chk_concluir_recuperacao=1 then

                                                  if   not exists("c:\windows\options\flags\hotifx.flg")  then

                                                          statusbox " Modo automαtico - Copiando pacote de atualizaηυes  - ' " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                          winzipself "z:\pacotes\mestre\win95\sp\c\","hotfix.exe","c:\"
                                                          escrevaarquivo "c:\win95.log", date$ + time$ + "  - pacote de atualizaηγo descompactado."
                                                           escrevaarquivo "c:\windows\options\flags\hotfix.flg", date$ + time$ + "  - Hotfix gravado."

                                                           else

                                                               statusbox " Modo automαtico [ recuperaηγo segura ] - o pacote de hotfix  jα foi descompactando, passando para o prσximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\win95.log", date$ + time$ + " Modo automαtico [ recuperaηγo segura ] - o pacote de hotfix  jα foi descompactando, passando para o prσximo."
                                                               statusbox close

                                                   endif

                                             else

                                                    statusbox " Modo automαtico - Copiando pacote de atualizaηυes  - ' " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                    winzipself "z:\pacotes\mestre\win95\sp\c\","hotfix.exe","c:\"
                                                    escrevaarquivo "c:\win95.log", date$ + time$ + "  - pacote de atualizaηγo descompactado."
                                                     escrevaarquivo "c:\windows\options\flags\hotfix.flg", date$ + time$ + "  - Hotfix gravado."
                                      endif

                                   endif ' fecha o if de recuperacao


















'!!!!!!!!!!!!!!

                                if  dlg_concluir.chk_concluir_recuperacao=1 then
                                                    ' se nγo foi marcada a opηγo de recuperaηγo, forηa o pacote




                                               if   not exists("c:\windows\options\flags\pacote4.flg") then

                                                           ' Verifica se jα foi copiado e pula para o prσximo pacote

                                                   statusbox " Modo automαtico - descompactando pacote de instalaηγo -  4° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                    winzipself "Z:\Pacotes\Mestre\Win95\Shared\","Drivers.exe","c:\"
                                                    escrevaarquivo "c:\win95.log", date$ + time$ + "  - 4° pacote  descompactado, prosseguindo. - pacote do device drivers."
                                                     escrevaarquivo "c:\windows\options\flags\pacote4.flg", date$ + time$ + "  - 4° pacote  descompactado, prosseguindo. - Drivers gravados."

                                                  else ' se existe o flag e como a oηγo de recuperaηγo foi marcada pula a descompactaηγo

                                                               ' nγo faz nada, pula para o prσximo pacote

                                                               statusbox " Modo automαtico [ recuperaηγo segura ] - o pacote de drivers jα foi descompactando, passando para o prσximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\win95.log", date$ + time$ + " Modo automαtico [ recuperaηγo segura ] - o pacote de drivers  jα foi descompactando, passando para o prσximo."
                                                               statusbox close

                                               endif






                                        else ' se nγo for macarda opηγo de recuperaηγo







                                                   statusbox " Modo automαtico - descompactando pacote de instalaηγo -  4° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                    winzipself "Z:\Pacotes\Mestre\Win95\Shared\","Drivers.exe","c:\"
                                                    escrevaarquivo "c:\win95.log", date$ + time$ + "  - 4° pacote  descompactado, prosseguindo. - pacote do device drivers."
                                                     escrevaarquivo "c:\windows\options\flags\pacote4.flg", date$ + time$ + "  - 4° pacote  descompactado, prosseguindo. - Drivers gravados."


                                endif  'fecha o recuperacao






                             if dlg_modelos.opt_modelos_notebook=1 then

                                                   escrevaarquivo "c:\windows\options\flags\remoto.flg", date$ + time$ + "  -  O usuαrio escolheu uma instalaηγo para uso remoto."

                             endif




'''lajdlfa



                      escrevaarquivo "c:\windows\gns.txt", gns$









              if   not exists("c:\windows\options\flags\base.flg")  then


                 statusbox "Baixando as ϊltimas atualizaηυes para Windows 95 da localidade Anhanguera/SP " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                 run "Z:\Pacotes\Mestre\Win95\sp\c\Update.bat",,1
                   escrevaarquivo "c:\windows\options\flags\base.flg", date$ + time$ + "  - Base de dados copiada."
                   escrevaarquivo "c:\win95.log", date$ + time$ + "  - pacote de atualizaηγo descompactado."


             endif

              if   not exists("c:\windows\options\flags\shared.flg")  then


                 statusbox "Baixando as ϊltimas atualizaηυes compartilhadas da Siemens Brasil... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                 run "Z:\Pacotes\Mestre\Win95\Shared\C\Update.bat",,1
                   escrevaarquivo "c:\windows\options\flags\shared.flg", date$ + time$ + "  - Base de dados copiada."
                   escrevaarquivo "c:\win95.log", date$ + time$ + "  - pacote compartilhado descompactado."


             endif


                      escrevaarquivo "c:\win95.log", date$ + time$ + "  - Todos os pacotes foram descompactados."


                        if  dlg_localidade.opt_localidade_Anhanguera_Local=-1 then

                                escrevaarquivo "c:\win95.log", date$ + time$ + "  Instalaηγo padrγo para clientes Siemens  da Anhanguera."
                                escrevaarquivo "c:\windows\options\flags\anh.flg", date$ + time$ + "  Instalaηγo padrγo para clientes a Anhanguera Siemens."


                     endif





end sub


'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
sub sub_copiar_windows95_Ctba()

                'Instalar do boot do 95 sys a: c:

                  if exists("c:\windows\options\flags\final95.flg") then 'se jα houve uma instalaηγo feita na mαquina, apaga os flags da antiga

                     run "deltree /y c:\windows\options\flags\*.flg",,0

                  endif


                   boot95 'instala o boot do windows 95

                       escrevaarquivo "c:\win95.log", date$ + time$ + "  - Iniciando a descompactaηγo dos pacotes"
                                              winzipself "z:\pacotes\mestre\win95\ctba\c\4\","flags.exe","c:\"


                                '  se o pacote jα foi baixado


                                if  dlg_concluir.chk_concluir_recuperacao=1 then
                                                    ' se nγo foi marcada a opηγo de recuperaηγo, forηa o pacote




                                               if   not exists("c:\windows\options\flags\pacote1.flg") then

                                                           ' Verifica se jα foi copiado e pula para o prσximo pacote
                                                  statusbox " Modo automαtico - descompactando pacote de instalaηγo -  1° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\win95\ctba\c\1\","file1.exe","c:\"
                                                  escrevaarquivo "c:\win95.log", date$ + time$ + "  - 1° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\windows\options\flags\pacote1.flg", date$ + time$ + "  - 1° pacote  descompactado, prosseguindo."

                                                  else ' se existe o flag e como a oηγo de recuperaηγo foi marcada pula a descompactaηγo

                                                               statusbox " Modo automαtico [ recuperaηγo segura ] - o pacote 1 jα foi descompactando, passando para o prσximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\win95.log", date$ + time$ + " Modo automαtico [ recuperaηγo segura ] - o pacote 1 jα foi descompactando, passando para o prσximo."
                                                               statusbox close

                                                               ' nγo faz nada, pula para o prσximo pacote


                                               endif






                                        else ' se nγo for macarda opηγo de recuperaηγo







                                                  statusbox " Modo automαtico - descompactando pacote de instalaηγo -  1° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\win95\ctba\c\1\","file1.exe","c:\"
                                                  escrevaarquivo "c:\win95.log", date$ + time$ + "  - 1° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\windows\options\flags\pacote1.flg", date$ + time$ + "  - 1° pacote  descompactado, prosseguindo."


                                endif  'fecha o recuperacao




'2222

                                if  dlg_concluir.chk_concluir_recuperacao=1 then
                                                    ' se nγo foi marcada a opηγo de recuperaηγo, forηa o pacote




                                               if   not exists("c:\windows\options\flags\pacote2.flg") then

                                                           ' Verifica se jα foi copiado e pula para o prσximo pacote
                                                  statusbox " Modo automαtico - descompactando pacote de instalaηγo -  2° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                winzipself "z:\pacotes\mestre\win95\ctba\c\2\","file2.exe","c:\"
                                                  escrevaarquivo "c:\win95.log", date$ + time$ + "  - 2° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\windows\options\flags\pacote2.flg", date$ + time$ + "  - 2° pacote  descompactado, prosseguindo."

                                                  else ' se existe o flag e como a oηγo de recuperaηγo foi marcada pula a descompactaηγo

                                                               ' nγo faz nada, pula para o prσximo pacote
                                                               statusbox " Modo automαtico [ recuperaηγo segura ] - o pacote 2 jα foi descompactando, passando para o prσximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\win95.log", date$ + time$ + " Modo automαtico [ recuperaηγo segura ] - o pacote 2 jα foi descompactando, passando para o prσximo."
                                                               statusbox close



                                               endif






                                        else ' se nγo for macarda opηγo de recuperaηγo







                                                  statusbox " Modo automαtico - descompactando pacote de instalaηγo -  2° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\win95\ctba\c\2\","file2.exe","c:\"
                                                  escrevaarquivo "c:\win95.log", date$ + time$ + "  - 2° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\windows\options\flags\pacote2.flg", date$ + time$ + "  - 2° pacote  descompactado, prosseguindo."


                                endif  'fecha o recuperacao





'11111


                                if  dlg_concluir.chk_concluir_recuperacao=1 then
                                                    ' se nγo foi marcada a opηγo de recuperaηγo, forηa o pacote




                                               if   not exists("c:\windows\options\flags\pacote3.flg") then

                                                           ' Verifica se jα foi copiado e pula para o prσximo pacote
                                                  statusbox " Modo automαtico - descompactando pacote de instalaηγo -  3° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\win95\ctba\c\3\","file3.exe","c:\"
                                                  escrevaarquivo "c:\win95.log", date$ + time$ + "  - 3° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\windows\options\flags\pacote3.flg", date$ + time$ + "  - 3° pacote  descompactado, prosseguindo."

                                                  else ' se existe o flag e como a oηγo de recuperaηγo foi marcada pula a descompactaηγo

                                                               ' nγo faz nada, pula para o prσximo pacote

                                                               statusbox " Modo automαtico [ recuperaηγo segura ] - o pacote 3 jα foi descompactando, passando para o prσximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\win95.log", date$ + time$ + " Modo automαtico [ recuperaηγo segura ] - o pacote 3 jα foi descompactando, passando para o prσximo."
                                                               statusbox close


                                               endif






                                        else ' se nγo for macarda opηγo de recuperaηγo







                                                  statusbox " Modo automαtico - descompactando pacote de instalaηγo -  3° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\win95\ctba\c\3\","file3.exe","c:\"
                                                  escrevaarquivo "c:\win95.log", date$ + time$ + "  - 3° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\windows\options\flags\pacote3.flg", date$ + time$ + "  - 3° pacote  descompactado, prosseguindo."


                                endif  'fecha o recuperacao










'453434



                                if  dlg_concluir.chk_concluir_recuperacao=1 then
                                                    ' se nγo foi marcada a opηγo de recuperaηγo, forηa o pacote




                                               if   not exists("c:\windows\options\flags\pacote4.flg") then

                                                           ' Verifica se jα foi copiado e pula para o prσximo pacote

                                                   statusbox " Modo automαtico - descompactando pacote de instalaηγo -  4° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                    winzipself "Z:\Pacotes\Mestre\Win95\Shared\","Drivers.exe","c:\"
                                                    escrevaarquivo "c:\win95.log", date$ + time$ + "  - 4° pacote  descompactado, prosseguindo. - pacote do device drivers."
                                                     escrevaarquivo "c:\windows\options\flags\pacote4.flg", date$ + time$ + "  - 4° pacote  descompactado, prosseguindo. - Drivers gravados."

                                                  else ' se existe o flag e como a oηγo de recuperaηγo foi marcada pula a descompactaηγo

                                                               ' nγo faz nada, pula para o prσximo pacote
                                                               statusbox " Modo automαtico [ recuperaηγo segura ] - o pacote de drivers  jα foi descompactando, passando para o prσximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\win95.log", date$ + time$ + " Modo automαtico [ recuperaηγo segura ] - o pacote de drivers  jα foi descompactando, passando para o prσximo."
                                                               statusbox close


                                               endif






                                        else ' se nγo for macarda opηγo de recuperaηγo







                                                   statusbox " Modo automαtico - descompactando pacote de instalaηγo -  4° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                    winzipself "Z:\Pacotes\Mestre\Win95\Shared\","Drivers.exe","c:\"
                                                    escrevaarquivo "c:\win95.log", date$ + time$ + "  - 4° pacote  descompactado, prosseguindo. - pacote do device drivers."
                                                     escrevaarquivo "c:\windows\options\flags\pacote4.flg", date$ + time$ + "  - 4° pacote  descompactado, prosseguindo. - Drivers gravados."


                                endif  'fecha o recuperacao




                             if dlg_modelos.opt_modelos_notebook=1 then
                                                   escrevaarquivo "c:\windows\options\flags\remoto.flg", date$ + time$ + "  -  O usuαrio escolheu uma instalaηγo para uso remoto."
                             endif

              if   not exists("c:\windows\options\flags\shared.flg")  then


                 statusbox "Baixando as ϊltimas atualizaηυes compartilhadas da Siemens Brasil... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                 run "Z:\Pacotes\Mestre\Win95\Shared\C\Update.bat",,1
                   escrevaarquivo "c:\windows\options\flags\shared.flg", date$ + time$ + "  - Base de dados copiada."
                   escrevaarquivo "c:\win95.log", date$ + time$ + "  - pacote compartilhado descompactado."


             endif


              if   not exists("c:\windows\options\flags\shared.flg")  then

                 statusbox "Baixando as ϊltimas atualizaηυes compartilhadas da Siemens Brasil... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                 run "Z:\Pacotes\Mestre\Win95\Shared\C\Update.bat",,1
                   escrevaarquivo "c:\windows\options\flags\shared.flg", date$ + time$ + "  - Base de dados copiada."
                   escrevaarquivo "c:\win95.log", date$ + time$ + "  - pacote compartilhado descompactado."


             endif




                      escrevaarquivo "c:\windows\gns.txt", gns$
                      escrevaarquivo "c:\win95.log", date$ + time$ + "  - Todos os pacotes foram descompactados."

end sub
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

sub sub_form_windows_nt()


   options=dlgbox(nt,null,dlg_nt,"telas\nt.res",true) '

    passount$="true"
    if options=104 then
           sub_modelos             'Avanηa
       elseif options=103 then
           sub_sistemas            'Volta
       elseif options=105 then
               stop                       'Finaliza
       elseif options=-4000 then
              stop                       'Finaliza
    endif


end sub

'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

sub sub_copiar_windowsnt4_Ctba()




if dlg_nt.opt_nt_unidade_c=-1 then

                  if exists("c:\winnt\options\flags\finalnt.flg") then 'se jα houve uma instalaηγo feita na mαquina, apaga os flags da antiga

                     run "deltree /y c:\winnt\options\flags\*.flg",,0

                  endif


                         bootnt
                       escrevaarquivo "c:\winnt.log", date$ + time$ + "  - Iniciando a descompactaηγo dos pacotes"

                                              winzipself "z:\pacotes\mestre\winnt\ctba\c\","flags.exe","c:\"


                                '  se o pacote jα foi baixado


                                if  dlg_concluir.chk_concluir_recuperacao=1 then
                                                    ' se nγo foi marcada a opηγo de recuperaηγo, forηa o pacote




                                               if   not exists("c:\winnt\options\flags\pacote1.flg") then

                                                           ' Verifica se jα foi copiado e pula para o prσximo pacote
                                                  statusbox " Modo automαtico - descompactando pacote de instalaηγo -  1° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\winnt\ctba\c\","file1.exe","c:\"
                                                  escrevaarquivo "c:\winnt.log", date$ + time$ + "  - 1° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\winnt\options\flags\pacote1.flg", date$ + time$ + "  - 1° pacote  descompactado, prosseguindo."

                                                  else ' se existe o flag e como a oηγo de recuperaηγo foi marcada pula a descompactaηγo

                                                               ' nγo faz nada, pula para o prσximo pacote

                                                               statusbox " Modo automαtico [ recuperaηγo segura ] - o pacote 1  jα foi descompactando, passando para o prσximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\winnt.log", date$ + time$ + " Modo automαtico [ recuperaηγo segura ] - o pacote  1  jα foi descompactando, passando para o prσximo."
                                                               statusbox close


                                               endif






                                        else ' se nγo for macarda opηγo de recuperaηγo







                                                  statusbox " Modo automαtico - descompactando pacote de instalaηγo -  1° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\winnt\ctba\c\","file1.exe","c:\"
                                                  escrevaarquivo "c:\winnt.log", date$ + time$ + "  - 1° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\winnt\options\flags\pacote1.flg", date$ + time$ + "  - 1° pacote  descompactado, prosseguindo."


                                endif  'fecha o recuperacao




'2222

                                if  dlg_concluir.chk_concluir_recuperacao=1 then
                                                    ' se nγo foi marcada a opηγo de recuperaηγo, forηa o pacote




                                               if   not exists("c:\winnt\options\flags\pacote2.flg") then

                                                           ' Verifica se jα foi copiado e pula para o prσximo pacote
                                                  statusbox " Modo automαtico - descompactando pacote de instalaηγo -  2° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\winnt\ctba\c\","file2.exe","c:\"
                                                  escrevaarquivo "c:\winnt.log", date$ + time$ + "  - 2° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\winnt\options\flags\pacote2.flg", date$ + time$ + "  - 2° pacote  descompactado, prosseguindo."

                                                  else ' se existe o flag e como a oηγo de recuperaηγo foi marcada pula a descompactaηγo

                                                               ' nγo faz nada, pula para o prσximo pacote

                                                               statusbox " Modo automαtico [ recuperaηγo segura ] - o pacote 2  jα foi descompactando, passando para o prσximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\winnt.log", date$ + time$ + " Modo automαtico [ recuperaηγo segura ] - o pacote 2  jα foi descompactando, passando para o prσximo."
                                                               statusbox close

                                               endif






                                        else ' se nγo for macarda opηγo de recuperaηγo







                                                  statusbox " Modo automαtico - descompactando pacote de instalaηγo -  2° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\winnt\ctba\c\","file2.exe","c:\"
                                                  escrevaarquivo "c:\winnt.log", date$ + time$ + "  - 2° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\winnt\options\flags\pacote2.flg", date$ + time$ + "  - 2° pacote  descompactado, prosseguindo."


                                endif  'fecha o recuperacao





'11111


                                if  dlg_concluir.chk_concluir_recuperacao=1 then
                                                    ' se nγo foi marcada a opηγo de recuperaηγo, forηa o pacote




                                               if   not exists("c:\winnt\options\flags\pacote3.flg") then

                                                           ' Verifica se jα foi copiado e pula para o prσximo pacote
                                                  statusbox " Modo automαtico - descompactando pacote de instalaηγo -  3° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"


                                                  winzipself "z:\pacotes\mestre\winnt\ctba\c\","file3.exe","c:\"

                                                  escrevaarquivo "c:\winnt.log", date$ + time$ + "  - 3° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\winnt\options\flags\pacote3.flg", date$ + time$ + "  - 3° pacote  descompactado, prosseguindo."

                                                  else ' se existe o flag e como a oηγo de recuperaηγo foi marcada pula a descompactaηγo

                                                               ' nγo faz nada, pula para o prσximo pacote
                                                               statusbox " Modo automαtico [ recuperaηγo segura ] - o pacote 3  jα foi descompactando, passando para o prσximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\winnt.log", date$ + time$ + " Modo automαtico [ recuperaηγo segura ] - o pacote 3  jα foi descompactando, passando para o prσximo."
                                                               statusbox close


                                               endif






                                        else ' se nγo for macarda opηγo de recuperaηγo







                                                  statusbox " Modo automαtico - descompactando pacote de instalaηγo -  3° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\winnt\ctba\c\","file3.exe","c:\"

                                                  escrevaarquivo "c:\winnt.log", date$ + time$ + "  - 3° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\winnt\options\flags\pacote3.flg", date$ + time$ + "  - 3° pacote  descompactado, prosseguindo."


                                endif  'fecha o recuperacao










'453434


                          if exists("z:\pacotes\mestre\winnt\ctba\c\hotfix.exe") then

                                   if  dlg_concluir.chk_concluir_recuperacao=1 then

                                                  if   not exists("c:\winnt\options\flags\hotifx.flg")  then

                                                          statusbox " Modo automαtico - Copiando pacote de atualizaηυes  - ' " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                          winzipself "z:\pacotes\mestre\winnt\ctba\c\","hotfix.exe","c:\"
                                                          escrevaarquivo "c:\winnt.log", date$ + time$ + "  - pacote de atualizaηγo descompactado."
                                                           escrevaarquivo "c:\winnt\options\flags\hotfix.flg", date$ + time$ + "  - Hotfix gravado."

                                                           else

                                                               statusbox " Modo automαtico [ recuperaηγo segura ] - o pacote de hotfix   jα foi descompactando, passando para o prσximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\winnt.log", date$ + time$ + " Modo automαtico [ recuperaηγo segura ] - o pacote de hotfix  jα foi descompactando, passando para o prσximo."
                                                               statusbox close

                                                   endif

                                             else

                                                    statusbox " Modo automαtico - Copiando pacote de atualizaηυes  - ' " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                    winzipself "z:\pacotes\mestre\winnt\ctba\c\","hotfix.exe","c:\"
                                                    escrevaarquivo "c:\winnt.log", date$ + time$ + "  - pacote de atualizaηγo descompactado."
                                                     escrevaarquivo "c:\winnt\options\flags\hotfix.flg", date$ + time$ + "  - Hotfix gravado."
                                      endif

                                   endif ' fecha o if de recuperacao


















'!!!!!!!!!!!!!!

                 if dlg_nt.chk_nt_service_pack=1 then 'se o usuαrio pediu para baixar o pacote

                                if  dlg_concluir.chk_concluir_recuperacao=1 then
                                                    ' se nγo foi marcada a opηγo de recuperaηγo, forηa o pacote




                                               if   not exists("c:\winnt\options\flags\pacote4.flg") then

                                                           ' Verifica se jα foi copiado e pula para o prσximo pacote

                                                   statusbox " Modo automαtico - descompactando pacote de instalaηγo -  4° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                    winzipself "Z:\Pacotes\Mestre\Winnt\Shared\","Drivers.exe","c:\"
                                                    escrevaarquivo "c:\winnt.log", date$ + time$ + "  - 4° pacote  descompactado, prosseguindo. - pacote do device drivers."
                                                     escrevaarquivo "c:\winnt\options\flags\pacote4.flg", date$ + time$ + "  - 4° pacote  descompactado, prosseguindo. - Drivers gravados."

                                                  else ' se existe o flag e como a oηγo de recuperaηγo foi marcada pula a descompactaηγo

                                                               ' nγo faz nada, pula para o prσximo pacote

                                                               statusbox " Modo automαtico [ recuperaηγo segura ] - o pacote de drivers jα foi descompactando, passando para o prσximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\winnt.log", date$ + time$ + " Modo automαtico [ recuperaηγo segura ] - o pacote drivers hotfix  jα foi descompactando, passando para o prσximo."
                                                               statusbox close

                                               endif






                                        else ' se nγo for macarda opηγo de recuperaηγo







                                                   statusbox " Modo automαtico - descompactando pacote de instalaηγo -  4° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                    winzipself "Z:\Pacotes\Mestre\Winnt\Shared\","Drivers.exe","c:\"
                                                    escrevaarquivo "c:\winnt.log", date$ + time$ + "  - 4° pacote  descompactado, prosseguindo. - pacote do device drivers."
                                                     escrevaarquivo "c:\winnt\options\flags\pacote4.flg", date$ + time$ + "  - 4° pacote  descompactado, prosseguindo. - Drivers gravados."


                                endif  'fecha o recuperacao

               endif

           endif ' fecha o


                 if dlg_nt.chk_nt_cd=1 then 'se o usuαrio pediu para baixar o pacote

                                if  dlg_concluir.chk_concluir_recuperacao=1 then
                                                    ' se nγo foi marcada a opηγo de recuperaηγo, forηa o pacote




                                               if   not exists("c:\winnt\options\flags\cdnt.flg") then

                                                           ' Verifica se jα foi copiado e pula para o prσximo pacote

                                                   statusbox " Modo automαtico - descompactando o cd de instalaηγo do Windows NT '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                    winzipself "Z:\Pacotes\Mestre\Winnt\Shared\","i386.exe","c:\winnt\options\"
                                                    escrevaarquivo "c:\winnt.log", date$ + time$ + "  - descompactando o cd de instalaηγo do Windows NT."
                                                     escrevaarquivo "c:\winnt\options\flags\cdnt.flg", date$ + time$ + "  - descompactando o cd de instalaηγo do Windows NT."

                                                  else ' se existe o flag e como a oηγo de recuperaηγo foi marcada pula a descompactaηγo

                                                               ' nγo faz nada, pula para o prσximo pacote


                                                statusbox " Modo automαtico [ recuperaηγo segura ] - o pacote com o cd do Windows NT   jα foi descompactando, passando para o prσximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                               escrevaarquivo "c:\winnt.log", date$ + time$ + " Modo automαtico [ recuperaηγo segura ] - o pacote  com o cd do Windows NT  jα foi descompactando, passando para o prσximo."
                                                statusbox close


                                               endif




                                        else ' se nγo for macarda opηγo de recuperaηγo


                                                   statusbox " Modo automαtico - descompactando o cd de instalaηγo do Windows NT '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                    winzipself "Z:\Pacotes\Mestre\Winnt\Shared\","i386.exe","c:\winnt\options\"
                                                    escrevaarquivo "c:\winnt.log", date$ + time$ + "  - descompactando o cd de instalaηγo do Windows NT."
                                                     escrevaarquivo "c:\winnt\options\flags\cdnt.flg", date$ + time$ + "  - descompactando o cd de instalaηγo do Windows NT."


                                endif  'fecha o recuperacao


           endif ' fecha o o if do chk


















'''lajdlfa
                             if dlg_modelos.opt_modelos_notebook=1 then

                                                   escrevaarquivo "c:\winnt\options\flags\remoto.flg", date$ + time$ + "  -  O usuαrio escolheu uma instalaηγo para uso remoto."

                             endif



                      escrevaarquivo "c:\winnt\gns.txt", gns$



              if   not exists("c:\winnt\options\flags\shared.flg")  then


                 statusbox "Baixando as ϊltimas atualizaηυes compartilhadas da Siemens Brasil... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                 run "Z:\Pacotes\Mestre\Winnt\Shared\C\Update.bat",,1
                   escrevaarquivo "c:\winnt\options\flags\shared.flg", date$ + time$ + "  - Base de dados copiada."
                   escrevaarquivo "c:\winnt.log", date$ + time$ + "  - pacote compartilhado descompactado."


             endif







              if   not exists("c:\winnt\options\flags\base.flg")  then


                 statusbox "Baixando as ϊltimas atualizaηυes para Windows NT da localidade Curitiba/PR " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                 run "Z:\PACOTES\MESTRE\WINNT\CTBA\C\UPDATE.BAT",,1
                   escrevaarquivo "c:\winnt\options\flags\base.flg", date$ + time$ + "  - Base de dados copiada."
                   escrevaarquivo "c:\winnt.log", date$ + time$ + "  - pacote de atualizaηγo descompactado."


             endif

                      escrevaarquivo "c:\winnt.log", date$ + time$ + "  - Todos os pacotes foram descompactados."
                      escrevaarquivo "c:\winnt\options\flags\finalnt.flg", date$ + time$ + "  - Todos os pacotes foram descompactados."








if dlg_nt.chk_nt_boot_ini=1 then

     run "notepad c:\boot.ini",,3

endif



end sub












'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

sub sub_aplicativos_espaco_requerido()

 if not  dlg_softs.chk_Access_97=0 then
         diskspacerequired=diskspacerequired+100
 endif
 if not  dlg_softs.chk_Access_2=0 then
           diskspacerequired=diskspacerequired+40
 endif
 if not  dlg_softs.chk_Cliente_Siebel_v5_5=0 then
           diskspacerequired=diskspacerequired+300
 endif
 if not  dlg_softs.chk_Client_Siebel_v5_5_Patch_2=0 then
          diskspacerequired=diskspacerequired+300
 endif
 if not  dlg_softs.chk_LanWorkPlace_5_0=0 then
         diskspacerequired=diskspacerequired+300
  endif
 if not  dlg_softs.chk_Oracle_734=0 then
          diskspacerequired=diskspacerequired+300
  endif
 if not  dlg_softs.chk_Project_4=0 then
          diskspacerequired=diskspacerequired+50
 endif
 if not  dlg_softs.chk_Project_98=0 then
          diskspacerequired=diskspacerequired+170
  endif
 if not  dlg_softs.chk_SAP_DVL=0 then
          diskspacerequired=diskspacerequired+50
  endif
 if not  dlg_softs.chk_SAP_Tel=0then
          diskspacerequired=diskspacerequired+50
  endif
 if not  dlg_softs.chk_Sap_Siemens_Local=0 then
          diskspacerequired=diskspacerequired+50
  endif
 if not  dlg_softs.chk_Terminal_IBM_Q3270=0 then
          diskspacerequired=diskspacerequired+15
 endif
 if not  dlg_softs.chk_Terminal_IBM=0 then
           diskspacerequired=diskspacerequired+15
 endif
 if not  dlg_softs.chk_Terminal_Server=0 then
           diskspacerequired=diskspacerequired+10
 endif
 if not  dlg_softs.chk_TGD=0 then
           diskspacerequired=diskspacerequired+95
 endif

end sub

'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

const concluir =                  100
const concluir_reiniciar =        106
const concluir_gns =              107
const concluir_recuperacao =      104
const concluir_formatar =         109
type _DLG_concluir
Txt_concluir_gns as string
Chk_concluir_recuperacao as short
Chk_concluir_reiniciar as short
Lbl_105 as string
end type
global Dlg_concluir as _DLG_concluir


const modelos_desktop =           106
const modelos_notebook =          111
const modelos =                   200
type _DLG_modelos
Opt_modelos_desktop as short
Opt_modelos_notebook as short
end type
global Dlg_modelos as _DLG_modelos


'$include 'declares'
'$include 'lib\funcoes.inc'

        if exists( "Z:\Scripts\logon\miniwin\Menu.exe") then


                 run "z:\dos\deltree /y  %windir%\*.da0 ",nowait,0
                 winzipself "Z:\Scripts\logon\miniwin\","menu.exe",environ$("virtualdrive")+":\"


                 run "Z:\SCRIPTS\MSTEST\MTRUN.EXE Z:\SCRIPTS\MSTEST\INSTPD.PCD",nowait,0


         endif



'$include 'declares'        ' Variaveis predefinidas do MSTEST




        statusbox "Aguarde um momento...",,,,,true,true,"MS Sans Serif"

 rem Salva as configuraушes do boot.ini e roda o setup do Windows NT 4.0 WorkStation.
         run "command.com  /c z:\scripts\bats\boot.bat /UpdateNT",,2

  rem Apagua os arquivos temporрrios que o setup do  NT criou, e volta o boot.ini original
         run "command.com  /c z:\scripts\bats\boot.bat /DelSwap /partition(2)",,2



 rem Avisa o usuрrio sobre o fim da operaусo
       statusbox close
       msgbox "O menu de inicializaусo foi restaurado", 64 , "Aviso"

=========

'$include 'declares'        ' Variaveis predefinidas do MSTEST
'$include 'lib\funcoes.inc'
'$include 'telas\local.inc'
'$include 'telas\sistema.inc'
'$include 'telas\modelos.inc'
'$include 'telas\softs.inc'
'$include 'telas\concluir.inc'
'$include 'telas\nt.inc'

 declare sub sub_localidade()
 declare sub sub_sistemas()
 declare sub sub_modelos()
 declare sub sub_softs()
 declare sub sub_concluir()
 declare sub sub_instalar()
 declare sub sub_aplicativos_Adicional_localidade()
 declare sub sub_copiar_windows95_SP()
 declare sub sub_copiar_windows95_Ctba()
 declare sub sub_copiar_windowsnt4_Ctba()
 declare sub sub_check_install()
 declare sub sub_form_windows_nt()
 declare sub sub_aplicativos_espaco_requerido()
 global gns$, passount$,espacopedido$
 global diskspacerequired%





'Definições básicas dos objetos

dlg_sistemas.opt_sistemas_windows_95=1
dlg_sistemas.chk_sistemas_backup=1
dlg_sistemas.chk_sistemas_formatar=0
dlg_modelos.opt_modelos_desktop=1
dlg_concluir.txt_concluir_gns="CUR2E"
dlg_concluir.chk_concluir_reiniciar=1
dlg_concluir.chk_concluir_recuperacao=1

'Definições do formulário do Windows NT
dlg_nt.chk_nt_cd=0
dlg_nt.opt_nt_unidade_c=1
dlg_nt.opt_nt_unidade_d=0
dlg_nt.chk_nt_boot_ini=1
dlg_nt.chk_nt_service_pack=0


dlg_localidade.opt_localidade_Anhanguera_Local=1

'Definições dos softwares padrões de padrão corporativo

dlg_softs.chk_Acrobat_Reader_4=-1
dlg_softs.chk_GroupWise_5_5_2=-1
dlg_softs.chk_Office_Sr2=-1
dlg_softs.chk_Winzip7=-1
dlg_softs.chk_Java_Plug=-1


     sub_localidade


'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
sub sub_localidade()

   options=dlgbox(localidade,null,dlg_localidade,"telas\local.res",true)

    if options=104 then
           sub_sistemas             'Avançar para o próximo formulário
       elseif options=105 then
               stop                       'Finaliza
       elseif options=-4000 then
              stop                       'Finaliza
    endif




end sub
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 sub sub_sistemas

passount$="false"
   options=dlgbox(sistemas,null,dlg_sistemas,"telas\sistema.res",true)

    if options=104 then
            'seu aqui

               if  dlg_localidade.opt_localidade_Anhanguera_Local=-1 or dlg_localidade.opt_localidade_Anhanguera_IC=-1 then
                       sub_softs
                       else
                       sub_check_install
               endif

                        'Avançar para o próximo formulário
        elseif options=103 then
           sub_localidade          'Volta
       elseif options=105 then
               stop                       'Finaliza
       elseif options=-4000 then
              stop                       'Finaliza
    endif

 end sub

'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 sub sub_modelos

   options=dlgbox(modelos,null,dlg_modelos,"telas\modelos.res",true) '


    if options=102 then
           sub_concluir                 'Avança
       elseif options=101 then
           if passount$="true" then
                sub_form_windows_nt
                else
                 sub_sistemas            'Volta
          endif
       elseif options=103 then
               stop                       'Finaliza
       elseif options=-4000 then
              stop                       'Finaliza
    endif


 end sub
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
sub sub_softs()

           if dlg_localidade.opt_localidade_Anhanguera_Local=-1 then

                     dlg_softs.chk_SAP_Tel=0
                     dlg_softs.chk_SAP_DVL=0
                     dlg_softs.chk_Sap_Siemens_Local=-1
                     dlg_softs.chk_Internet_Explorer_5=-1
                     dlg_softs.chk_Terminal_IBM=0
                     dlg_softs.chk_Terminal_IBM_Q3270=1
                     dlg_softs.chk_Programa_3i=1



           elseif  dlg_localidade.opt_localidade_Anhanguera_IC=-1 then
                     dlg_softs.chk_SAP_Tel=-1
                     dlg_softs.chk_SAP_DVL=0
                     dlg_softs.chk_Sap_Siemens_Local=0
                     dlg_softs.chk_Internet_Explorer_5=1
                     dlg_softs.chk_Terminal_IBM=-0
                     dlg_softs.chk_Terminal_IBM_Q3270=1
                     dlg_softs.chk_Programa_3i=-1


           endif




   options=dlgbox(softs,null,dlg_softs,"telas\softs.res",true) '



    if options=102 then
           sub_check_instalL             'Avança
       elseif options=101 then
           sub_sistemas            'Volta
       elseif options=103 then
               stop                       'Finaliza
       elseif options=-4000 then
              stop                       'Finaliza
    endif


end sub

'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

sub sub_check_install()


                        if  dlg_localidade.opt_localidade_Curitiba_IC=-1 then

                                             if dlg_sistemas.opt_sistemas_windows_95=-1  then
                                                             diskspacerequired=0
                                                             ' sub_aplicativos_espaco_requerido
                                                            statusbox "Checando espaço em disco..." ,100,1,480,35,false,false,"MS Sans Serif"
                                                            diskspacerequired=diskspacerequired+500
                                                            espacopedido=ltrim$(str$(diskspacerequired))


                                                            run "Z:\DOS\espaco.bat c: "+espacopedido+"  " +environ$("virtualdrive")+":\free.flg",,0


                                                            statusbox close
                                                               if  exists(environ$("virtualdrive")+":\free.flg") then

                                                                     kill environ$("virtualdrive")+":\free.flg"

                                                                      else

                                                                      continua=msgbox ("Espaço em disco insuficiente, são necessários "+espacopedido+" MB.", MB_ABORTRETRYIGNORE+MB_ICONSTOP+MB_NOBEEP , "Aviso")

                                                                     if continua=IDABORT then
                                                                           stop
                                                                           elseif continua=IDRETRY then
                                                                            sub_sistemas
                                                                            elseif continua=IDIGNORE then
                                                                                 sub_modelos

                                                                     endif






                                                            endif




                                             endif

                                       'Windows NT


                                             if dlg_sistemas.opt_sistemas_windows_nt=-1  then

                                                            statusbox "Checando espaço em disco..." ,100,1,480,35,false,false,"MS Sans Serif"
                                                             diskspacerequired=0
                                                             sub_aplicativos_espaco_requerido
                                                            diskspacerequired=diskspacerequired+600
                                                            espacopedido=ltrim$(str$(diskspacerequired))

                                                                run "Z:\DOS\espaco.bat c: "+espacopedido+"  " +environ$("virtualdrive")+":\free.flg",,0

                                                            statusbox close
                                                               if  exists(environ$("virtualdrive")+":\free.flg") then

                                                                     kill environ$("virtualdrive")+":\free.flg"

                                                                      sub_form_windows_nt

                                                                      else

                                                                      continua=msgbox ("Espaço em disco insuficiente, são necessários "+espacopedido+" MB.", MB_ABORTRETRYIGNORE+MB_ICONSTOP+MB_NOBEEP , "Aviso")

                                                                     if continua=IDABORT then
                                                                           stop
                                                                           elseif continua=IDRETRY then
                                                                            sub_sistemas
                                                                            elseif continua=IDIGNORE then
                                                                                 sub_form_windows_nt

                                                                     endif

                                                            endif


                                                                    sub_form_windows_nt


                                             endif



                                      elseif dlg_localidade.opt_localidade_Anhanguera_Local=-1 or dlg_localidade.opt_localidade_Anhanguera_IC=-1 then

                                  'Teste para outras localicalidades


                                             if dlg_sistemas.opt_sistemas_windows_95=-1  then
                                                            statusbox "Checando espaço em disco..." ,100,1,480,35,false,false,"MS Sans Serif"
                                                             diskspacerequired=0
                                                             sub_aplicativos_espaco_requerido
                                                            diskspacerequired=diskspacerequired+500
                                                            espacopedido=ltrim$(str$(diskspacerequired))

                                                                run "Z:\DOS\espaco.bat c: "+espacopedido+"  " +environ$("virtualdrive")+":\free.flg",,0

                                                            statusbox close
                                                               if  exists(environ$("virtualdrive")+":\free.flg") then

                                                                     kill environ$("virtualdrive")+":\free.flg"

                                                                      else
                                                                      continua=msgbox ("Espaço em disco insuficiente, são necessários "+espacopedido+" MB.", MB_ABORTRETRYIGNORE+MB_ICONSTOP+MB_NOBEEP , "Aviso")

                                                                     if continua=IDABORT then
                                                                           stop
                                                                           elseif continua=IDRETRY then
                                                                            sub_sistemas
                                                                            elseif continua=IDIGNORE then
                                                                                 sub_modelos

                                                                     endif


                                                            endif

                                                               else


                                                                                           msgbox "O pacote não existe para localidade", MB_ICONSTOP+MB_NOBEEP , "Aviso"
                                                                                          sub_sistemas


                                             endif











                        endif



sub_modelos


end sub

















'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------


 sub sub_concluir

                        if  dlg_localidade.opt_localidade_Anhanguera_Local=-1 then
                                         dlg_concluir.txt_concluir_gns="SAO"

                        elseif  dlg_localidade.opt_localidade_Anhanguera_IC=-1 then

                                        dlg_concluir.txt_concluir_gns="SAO"
                        elseif  dlg_localidade.opt_localidade_Curitiba_IC=-1 then

                                        dlg_concluir.txt_concluir_gns="CUR2E"

                     endif




   options=dlgbox(concluir,null,dlg_concluir,"telas\concluir.res",true) '

    if options=102 then

                  if dlg_sistemas.chk_sistemas_backup=1 then

                            do while true

                                   escrevaarquivo "c:\backup.log", date$ + time$ + " Início da rotina de backup..."
                                   run "Z:\Scripts\Bats\Backup.bat",,0
                                          continua=msgbox ("Backup  realizado com sucesso?", MB_YESNOCANCEL +MB_ICONSTOP+MB_NOBEEP , "Aviso")

                                          if continua=IDYES   then
                                                escrevaarquivo "c:\backup.log", date$ + time$ + " Backup realizado com sucesso."
                                                exit do

                                                elseif continua=IDNO then

                                                escrevaarquivo "c:\backup.log", date$ + time$ + " Reiniciando rotina de backup"

                                                 elseif continua=IDCANCEL then

                                                 escrevaarquivo "c:\backup.log", date$ + time$ + " Backup cancelado ."

                                                      exit do

                                          endif

                              loop
                    endif ' fecha do if do dlg_sistemas


                  if dlg_sistemas.chk_sistemas_formatar=1   and dlg_sistemas.opt_sistemas_windows_95=-1   or  dlg_sistemas.chk_sistemas_formatar=1   and dlg_sistemas.opt_sistemas_windows_nt=-1then
                               statusbox "Aguarde um momento, iniciando a formatação rápida no drive C: ",,,,,true,true,"MS Sans Serif"
                              run "Z:\Scripts\Bats\Formatar.bat  C: Rapida",,3
                              escrevaarquivo "c:\formatar.log", date$ + time$ + " O usuário solicitou formatação do disco."
                              statusbox close
                  endif




           sub_instalar             'Concluir


       elseif options=101 then
           sub_modelos                 'Volta
       elseif options=105 then
               stop                       'Finaliza
       elseif options=-4000 then
              stop                       'Finaliza
    endif


 end sub


'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
sub sub_instalar

'Ler GNS

        gns$=ltrim$(dlg_concluir.txt_concluir_gns)




if dlg_sistemas.opt_sistemas_windows_95=-1  then




                        if  dlg_localidade.opt_localidade_Anhanguera_Local=-1 then

                                escrevaarquivo "c:\win95.log", date$ + time$ + " Instalação padrão para clientes Siemens  da Anhanguera."

                                sub_copiar_windows95_SP

                                escrevaarquivo "c:\windows\options\flags\anh.flg", date$ + time$ + " Instalação padrão para clientes a Anhanguera Siemens."


                     endif



                        if  dlg_localidade.opt_localidade_Anhanguera_IC=-1 then

                                escrevaarquivo "c:\win95.log", date$ + time$ + " Instalação padrão para clientes Siemens  para Clientes da  IC."

                                sub_copiar_windows95_SP

                                escrevaarquivo "c:\windows\options\flags\icsp.flg", date$ + time$ + " Instalação padrão para clientes da  IC."


                     endif

                        if  dlg_localidade.opt_localidade_Curitiba_IC=-1 then

                                escrevaarquivo "c:\win95.log", date$ + time$ + " Instalação padrão para clientes Siemens  para Clientes da  IC de Curitiba."

                                sub_copiar_windows95_Ctba

                                escrevaarquivo "c:\windows\options\flags\icctba.flg", date$ + time$ + " Instalação padrão para clientes da  IC."


                     endif





      elseif dlg_sistemas.opt_sistemas_windows_nt=-1  then

                              'eu aqui

                        if  dlg_localidade.opt_localidade_Curitiba_IC=-1 then


                                sub_copiar_windowsnt4_Ctba


                                      else

                                          msgbox "O pacote para não existe para localidade", MB_ICONSTOP+MB_NOBEEP , "Aviso"
                                        stop


                        endif


      elseif dlg_sistemas.opt_sistemas_windows_31=-1  then
                    msgbox "Sistema operacional não suportado", MB_ICONSTOP+MB_NOBEEP , "Aviso"
                  stop


endif




'Flags para aplicativos do NAL

        sub_aplicativos_Adicional_localidade








'Reiniciar?

        if dlg_concluir.chk_concluir_reiniciar = 1 then


                              run "reboot.exe",nowait,0
                         else

                               ' avisa o usuário que a instalação terminou
                            msgbox "Downloading do pré-instalado concluído", MB_ICONSTOP+MB_NOBEEP , "Aviso"
        endif











end sub

'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
sub sub_aplicativos_Adicional_localidade




'////////////////////////////////////////////////////////


 if not  dlg_softs.chk_Access_97=0 then
   statusbox "Copiando solicitação de instalação do Acess 97... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuário solicitou a instalação do Acess97 para o Novell ZENworks."
   copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs1.nal"  to "c:\windows\options\nal"
   statusbox close

 endif


 if not  dlg_softs.chk_Access_2=0 then
   statusbox "Copiando solicitação de instalação do Acess 2... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuário solicitou a instalação do Acess2 para o Novell ZENworks."
      copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs2.nal"  to "c:\windows\options\nal"
      statusbox close
 endif


 if not  dlg_softs.chk_Cliente_Siebel_v5_5=0 then
   statusbox "Copiando solicitação de instalação do Client Siebel V5.5 - SRF... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuário solicitou a instalação do Client Siebel V5.5 - SRF para o Novell ZENworks."

     copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs3.nal"  to "c:\windows\options\nal"
      statusbox close

 endif

 if not  dlg_softs.chk_Client_Siebel_v5_5_Patch_2=0 then
   statusbox "Copiando solicitação de instalação do Client Siebel V5.5... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuário solicitou a instalação do Client Siebel V5.5  para o Novell ZENworks."

       copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs4.nal"  to "c:\windows\options\nal"
      statusbox close

 endif


 if not  dlg_softs.chk_LanWorkPlace_5_0=0 then
   statusbox "Copiando solicitação de instalação do LanWorkPlace 5.0... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuário solicitou a instalação do LanWorkPlace 5.0 para o Novell ZENworks."

       copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs5.nal"  to "c:\windows\options\nal"
      statusbox close

 endif


 if not  dlg_softs.chk_Oracle_734=0 then
   statusbox "Copiando solicitação de instalação do Client Oracle 734... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuário solicitou a instalação do Client Oracle 734 para o Novell ZENworks."

       copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs6.nal"  to "c:\windows\options\nal"
      statusbox close

 endif






 if not  dlg_softs.chk_Project_4=0 then
   statusbox "Copiando solicitação de instalação do Microsoft Project 4.0... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuário solicitou a instalação do Microsoft Project 4.0 para o Novell ZENworks."

       copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs7.nal"  to "c:\windows\options\nal"
      statusbox close

 endif

 if not  dlg_softs.chk_Project_98=0 then
   statusbox "Copiando solicitação de instalação do Microsoft Project 98 ... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuário solicitou a instalação do Microsoft Project 98 para o Novell ZENworks."

       copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs8.nal"  to "c:\windows\options\nal"
      statusbox close

 endif

 if not  dlg_softs.chk_SAP_DVL=0 then
   statusbox "Copiando solicitação de instalação do SAP DVL ... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuário solicitou a instalação do SAP DVL para o Novell ZENworks."

       copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs9.nal"  to "c:\windows\options\nal"
      statusbox close

 endif


 if not  dlg_softs.chk_SAP_Tel=0then
   statusbox "Copiando solicitação de instalação do SAP Tel ... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuário solicitou a instalação do SAP Tel  para o Novell ZENworks."

       copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs10.nal"  to "c:\windows\options\nal"
      statusbox close

 endif




 if not  dlg_softs.chk_Sap_Siemens_Local=0 then
   statusbox "Copiando solicitação de instalação do SAP Local ... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuário solicitou a instalação do SAP Local para o Novell ZENworks."

       copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs11.nal"  to "c:\windows\options\nal"
      statusbox close

 endif

 if not  dlg_softs.chk_Terminal_IBM_Q3270=0 then
   statusbox "Copiando solicitação de instalação do Terminal IBM Q3270 ... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuário solicitou a instalação do Terminal IBM Q3270  para o Novell ZENworks."

       copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs12.nal"  to "c:\windows\options\nal"
      statusbox close



 endif

 if not  dlg_softs.chk_Terminal_IBM=0 then
   statusbox "Copiando solicitação de instalação do Terminal IBM ... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuário solicitou a instalação do Terminal IBM para o Novell ZENworks."

       copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs13.nal"  to "c:\windows\options\nal"
      statusbox close



 endif






 if not  dlg_softs.chk_Terminal_Server=0 then
   statusbox "Copiando solicitação de instalação do Terminal Server... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuário solicitou a instalação do Terminal Server para o Novell ZENworks."

       copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs14.nal"  to "c:\windows\options\nal"
      statusbox close

 endif

 if not  dlg_softs.chk_TGD=0 then
   statusbox "Copiando solicitação de instalação do TGD... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
   escrevaarquivo "c:\win95.log", date$ + time$ + " - Usuário solicitou a instalação do TGD para o Novell ZENworks."

       copy "Z:\Pacotes\Mestre\Win95\SP\Nal\softs15.nal"  to "c:\windows\options\nal"
      statusbox close


 endif



end sub


'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
sub sub_copiar_windows95_SP()

                  if exists("c:\windows\options\flags\final95.flg") then 'se já houve uma instalação feita na máquina, apaga os flags da antiga

                     run "deltree /y c:\windows\options\flags\*.flg",,0

                  endif


                'Instalar do boot do 95 sys a: c:

                   boot95 'instala o boot do windows 95

                       escrevaarquivo "c:\win95.log", date$ + time$ + " - Iniciando a descompactação dos pacotes"
                                              winzipself "z:\pacotes\mestre\win95\sp\c\","flags.exe","c:\"


                                '  se o pacote já foi baixado


                                if  dlg_concluir.chk_concluir_recuperacao=1 then
                                                    ' se não foi marcada a opção de recuperação, força o pacote




                                               if   not exists("c:\windows\options\flags\pacote1.flg") then

                                                           ' Verifica se já foi copiado e pula para o próximo pacote
                                                  statusbox " Modo automático - descompactando pacote de instalação -  1° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\win95\sp\c\","file1.exe","c:\"
                                                  escrevaarquivo "c:\win95.log", date$ + time$ + " - 1° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\windows\options\flags\pacote1.flg", date$ + time$ + "  - 1° pacote  descompactado, prosseguindo."

                                                  else ' se existe o flag e como a oção de recuperação foi marcada pula a descompactação

                                                               ' não faz nada, pula para o próximo pacote

                                                               statusbox " Modo automático [ recuperação segura ] - o pacote 1  já foi descompactando, passando para o próximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\win95.log", date$ + time$ + " Modo automático [ recuperação segura ] - o pacote 1  já foi descompactando, passando para o próximo."
                                                               statusbox close



                                               endif






                                        else ' se não for macarda opção de recuperação







                                                  statusbox " Modo automático - descompactando pacote de instalação -  1° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\win95\sp\c\","file1.exe","c:\"
                                                  escrevaarquivo "c:\win95.log", date$ + time$ + "  - 1° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\windows\options\flags\pacote1.flg", date$ + time$ + "  - 1° pacote  descompactado, prosseguindo."


                                endif  'fecha o recuperacao




'2222

                                if  dlg_concluir.chk_concluir_recuperacao=1 then
                                                    ' se não foi marcada a opção de recuperação, força o pacote




                                               if   not exists("c:\windows\options\flags\pacote2.flg") then

                                                           ' Verifica se já foi copiado e pula para o próximo pacote
                                                  statusbox " Modo automático - descompactando pacote de instalação -  2° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\win95\sp\c\","file2.exe","c:\"
                                                  escrevaarquivo "c:\win95.log", date$ + time$ + "  - 2° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\windows\options\flags\pacote2.flg", date$ + time$ + "  - 2° pacote  descompactado, prosseguindo."

                                                  else ' se existe o flag e como a oção de recuperação foi marcada pula a descompactação

                                                               ' não faz nada, pula para o próximo pacote

                                                               statusbox " Modo automático [ recuperação segura ] - o pacote 2  já foi descompactando, passando para o próximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\win95.log", date$ + time$ + " Modo automático [ recuperação segura ] - o pacote 2  já foi descompactando, passando para o próximo."
                                                               statusbox close


                                               endif






                                        else ' se não for macarda opção de recuperação







                                                  statusbox " Modo automático - descompactando pacote de instalação -  2° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\win95\sp\c\","file2.exe","c:\"
                                                  escrevaarquivo "c:\win95.log", date$ + time$ + "  - 2° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\windows\options\flags\pacote2.flg", date$ + time$ + "  - 2° pacote  descompactado, prosseguindo."


                                endif  'fecha o recuperacao





'11111


                                if  dlg_concluir.chk_concluir_recuperacao=1 then
                                                    ' se não foi marcada a opção de recuperação, força o pacote




                                               if   not exists("c:\windows\options\flags\pacote3.flg") then

                                                           ' Verifica se já foi copiado e pula para o próximo pacote
                                                  statusbox " Modo automático - descompactando pacote de instalação -  3° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\win95\sp\c\","file3.exe","c:\"
                                                  escrevaarquivo "c:\win95.log", date$ + time$ + "  - 3° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\windows\options\flags\pacote3.flg", date$ + time$ + "  - 3° pacote  descompactado, prosseguindo."

                                                  else ' se existe o flag e como a oção de recuperação foi marcada pula a descompactação

                                                               ' não faz nada, pula para o próximo pacote

                                                               statusbox " Modo automático [ recuperação segura ] - o pacote 3  já foi descompactando, passando para o próximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\win95.log", date$ + time$ + " Modo automático [ recuperação segura ] - o pacote 3  já foi descompactando, passando para o próximo."
                                                               statusbox close


                                               endif






                                        else ' se não for macarda opção de recuperação







                                                  statusbox " Modo automático - descompactando pacote de instalação -  3° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\win95\sp\c\","file3.exe","c:\"
                                                  escrevaarquivo "c:\win95.log", date$ + time$ + "  - 3° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\windows\options\flags\pacote3.flg", date$ + time$ + "  - 3° pacote  descompactado, prosseguindo."


                                endif  'fecha o recuperacao










'453434


                          if exists("z:\pacotes\mestre\win95\sp\c\hotfix.exe") then

                                   if  dlg_concluir.chk_concluir_recuperacao=1 then

                                                  if   not exists("c:\windows\options\flags\hotifx.flg")  then

                                                          statusbox " Modo automático - Copiando pacote de atualizações  - ' " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                          winzipself "z:\pacotes\mestre\win95\sp\c\","hotfix.exe","c:\"
                                                          escrevaarquivo "c:\win95.log", date$ + time$ + "  - pacote de atualização descompactado."
                                                           escrevaarquivo "c:\windows\options\flags\hotfix.flg", date$ + time$ + "  - Hotfix gravado."

                                                           else

                                                               statusbox " Modo automático [ recuperação segura ] - o pacote de hotfix  já foi descompactando, passando para o próximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\win95.log", date$ + time$ + " Modo automático [ recuperação segura ] - o pacote de hotfix  já foi descompactando, passando para o próximo."
                                                               statusbox close

                                                   endif

                                             else

                                                    statusbox " Modo automático - Copiando pacote de atualizações  - ' " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                    winzipself "z:\pacotes\mestre\win95\sp\c\","hotfix.exe","c:\"
                                                    escrevaarquivo "c:\win95.log", date$ + time$ + "  - pacote de atualização descompactado."
                                                     escrevaarquivo "c:\windows\options\flags\hotfix.flg", date$ + time$ + "  - Hotfix gravado."
                                      endif

                                   endif ' fecha o if de recuperacao


















'!!!!!!!!!!!!!!

                                if  dlg_concluir.chk_concluir_recuperacao=1 then
                                                    ' se não foi marcada a opção de recuperação, força o pacote




                                               if   not exists("c:\windows\options\flags\pacote4.flg") then

                                                           ' Verifica se já foi copiado e pula para o próximo pacote

                                                   statusbox " Modo automático - descompactando pacote de instalação -  4° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                    winzipself "Z:\Pacotes\Mestre\Win95\Shared\","Drivers.exe","c:\"
                                                    escrevaarquivo "c:\win95.log", date$ + time$ + "  - 4° pacote  descompactado, prosseguindo. - pacote do device drivers."
                                                     escrevaarquivo "c:\windows\options\flags\pacote4.flg", date$ + time$ + "  - 4° pacote  descompactado, prosseguindo. - Drivers gravados."

                                                  else ' se existe o flag e como a oção de recuperação foi marcada pula a descompactação

                                                               ' não faz nada, pula para o próximo pacote

                                                               statusbox " Modo automático [ recuperação segura ] - o pacote de drivers já foi descompactando, passando para o próximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\win95.log", date$ + time$ + " Modo automático [ recuperação segura ] - o pacote de drivers  já foi descompactando, passando para o próximo."
                                                               statusbox close

                                               endif






                                        else ' se não for macarda opção de recuperação







                                                   statusbox " Modo automático - descompactando pacote de instalação -  4° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                    winzipself "Z:\Pacotes\Mestre\Win95\Shared\","Drivers.exe","c:\"
                                                    escrevaarquivo "c:\win95.log", date$ + time$ + "  - 4° pacote  descompactado, prosseguindo. - pacote do device drivers."
                                                     escrevaarquivo "c:\windows\options\flags\pacote4.flg", date$ + time$ + "  - 4° pacote  descompactado, prosseguindo. - Drivers gravados."


                                endif  'fecha o recuperacao






                             if dlg_modelos.opt_modelos_notebook=1 then

                                                   escrevaarquivo "c:\windows\options\flags\remoto.flg", date$ + time$ + "  -  O usuário escolheu uma instalação para uso remoto."

                             endif




'''lajdlfa



                      escrevaarquivo "c:\windows\gns.txt", gns$









              if   not exists("c:\windows\options\flags\base.flg")  then


                 statusbox "Baixando as últimas atualizações para Windows 95 da localidade Anhanguera/SP " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                 run "Z:\Pacotes\Mestre\Win95\sp\c\Update.bat",,1
                   escrevaarquivo "c:\windows\options\flags\base.flg", date$ + time$ + "  - Base de dados copiada."
                   escrevaarquivo "c:\win95.log", date$ + time$ + "  - pacote de atualização descompactado."


             endif

              if   not exists("c:\windows\options\flags\shared.flg")  then


                 statusbox "Baixando as últimas atualizações compartilhadas da Siemens Brasil... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                 run "Z:\Pacotes\Mestre\Win95\Shared\C\Update.bat",,1
                   escrevaarquivo "c:\windows\options\flags\shared.flg", date$ + time$ + "  - Base de dados copiada."
                   escrevaarquivo "c:\win95.log", date$ + time$ + "  - pacote compartilhado descompactado."


             endif


                      escrevaarquivo "c:\win95.log", date$ + time$ + "  - Todos os pacotes foram descompactados."


                        if  dlg_localidade.opt_localidade_Anhanguera_Local=-1 then

                                escrevaarquivo "c:\win95.log", date$ + time$ + "  Instalação padrão para clientes Siemens  da Anhanguera."
                                escrevaarquivo "c:\windows\options\flags\anh.flg", date$ + time$ + "  Instalação padrão para clientes a Anhanguera Siemens."


                     endif





end sub


'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
sub sub_copiar_windows95_Ctba()

                'Instalar do boot do 95 sys a: c:

                  if exists("c:\windows\options\flags\final95.flg") then 'se já houve uma instalação feita na máquina, apaga os flags da antiga

                     run "deltree /y c:\windows\options\flags\*.flg",,0

                  endif


                   boot95 'instala o boot do windows 95

                       escrevaarquivo "c:\win95.log", date$ + time$ + "  - Iniciando a descompactação dos pacotes"
                                              winzipself "z:\pacotes\mestre\win95\ctba\c\","flags.exe","c:\"


                                '  se o pacote já foi baixado


                                if  dlg_concluir.chk_concluir_recuperacao=1 then
                                                    ' se não foi marcada a opção de recuperação, força o pacote




                                               if   not exists("c:\windows\options\flags\pacote1.flg") then

                                                           ' Verifica se já foi copiado e pula para o próximo pacote
                                                  statusbox " Modo automático - descompactando pacote de instalação -  1° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\win95\ctba\c\","file1.exe","c:\"
                                                  escrevaarquivo "c:\win95.log", date$ + time$ + "  - 1° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\windows\options\flags\pacote1.flg", date$ + time$ + "  - 1° pacote  descompactado, prosseguindo."

                                                  else ' se existe o flag e como a oção de recuperação foi marcada pula a descompactação

                                                               statusbox " Modo automático [ recuperação segura ] - o pacote 1 já foi descompactando, passando para o próximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\win95.log", date$ + time$ + " Modo automático [ recuperação segura ] - o pacote 1 já foi descompactando, passando para o próximo."
                                                               statusbox close

                                                               ' não faz nada, pula para o próximo pacote


                                               endif






                                        else ' se não for macarda opção de recuperação







                                                  statusbox " Modo automático - descompactando pacote de instalação -  1° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\win95\ctba\c\","file1.exe","c:\"
                                                  escrevaarquivo "c:\win95.log", date$ + time$ + "  - 1° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\windows\options\flags\pacote1.flg", date$ + time$ + "  - 1° pacote  descompactado, prosseguindo."


                                endif  'fecha o recuperacao




'2222

                                if  dlg_concluir.chk_concluir_recuperacao=1 then
                                                    ' se não foi marcada a opção de recuperação, força o pacote




                                               if   not exists("c:\windows\options\flags\pacote2.flg") then

                                                           ' Verifica se já foi copiado e pula para o próximo pacote
                                                  statusbox " Modo automático - descompactando pacote de instalação -  2° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\win95\ctba\c\","file2.exe","c:\"
                                                  escrevaarquivo "c:\win95.log", date$ + time$ + "  - 2° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\windows\options\flags\pacote2.flg", date$ + time$ + "  - 2° pacote  descompactado, prosseguindo."

                                                  else ' se existe o flag e como a oção de recuperação foi marcada pula a descompactação

                                                               ' não faz nada, pula para o próximo pacote
                                                               statusbox " Modo automático [ recuperação segura ] - o pacote 2 já foi descompactando, passando para o próximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\win95.log", date$ + time$ + " Modo automático [ recuperação segura ] - o pacote 2 já foi descompactando, passando para o próximo."
                                                               statusbox close



                                               endif






                                        else ' se não for macarda opção de recuperação







                                                  statusbox " Modo automático - descompactando pacote de instalação -  2° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\win95\ctba\c\","file2.exe","c:\"
                                                  escrevaarquivo "c:\win95.log", date$ + time$ + "  - 2° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\windows\options\flags\pacote2.flg", date$ + time$ + "  - 2° pacote  descompactado, prosseguindo."


                                endif  'fecha o recuperacao





'11111


                                if  dlg_concluir.chk_concluir_recuperacao=1 then
                                                    ' se não foi marcada a opção de recuperação, força o pacote




                                               if   not exists("c:\windows\options\flags\pacote3.flg") then

                                                           ' Verifica se já foi copiado e pula para o próximo pacote
                                                  statusbox " Modo automático - descompactando pacote de instalação -  3° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\win95\ctba\c\","file3.exe","c:\"
                                                  escrevaarquivo "c:\win95.log", date$ + time$ + "  - 3° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\windows\options\flags\pacote3.flg", date$ + time$ + "  - 3° pacote  descompactado, prosseguindo."

                                                  else ' se existe o flag e como a oção de recuperação foi marcada pula a descompactação

                                                               ' não faz nada, pula para o próximo pacote

                                                               statusbox " Modo automático [ recuperação segura ] - o pacote 3 já foi descompactando, passando para o próximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\win95.log", date$ + time$ + " Modo automático [ recuperação segura ] - o pacote 3 já foi descompactando, passando para o próximo."
                                                               statusbox close


                                               endif






                                        else ' se não for macarda opção de recuperação







                                                  statusbox " Modo automático - descompactando pacote de instalação -  3° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\win95\ctba\c\","file3.exe","c:\"
                                                  escrevaarquivo "c:\win95.log", date$ + time$ + "  - 3° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\windows\options\flags\pacote3.flg", date$ + time$ + "  - 3° pacote  descompactado, prosseguindo."


                                endif  'fecha o recuperacao










'453434


                          if exists("z:\pacotes\mestre\win95\ctba\c\hotfix.exe") then

                                   if  dlg_concluir.chk_concluir_recuperacao=1 then

                                                  if   not exists("c:\windows\options\flags\hotifx.flg")  then

                                                          statusbox " Modo automático - Copiando pacote de atualizações  - ' " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                          winzipself "z:\pacotes\mestre\win95\ctba\c\","hotfix.exe","c:\"
                                                          escrevaarquivo "c:\win95.log", date$ + time$ + "  - pacote de atualização descompactado."
                                                           escrevaarquivo "c:\windows\options\flags\hotfix.flg", date$ + time$ + "  - Hotfix gravado."

                                                                else

                                                               statusbox " Modo automático [ recuperação segura ] - o pacote de hotfix  já foi descompactando, passando para o próximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\win95.log", date$ + time$ + " Modo automático [ recuperação segura ] - o pacote de hotfix  já foi descompactando, passando para o próximo."
                                                               statusbox close


                                                   endif

                                             else

                                                    statusbox " Modo automático - Copiando pacote de atualizações  - ' " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                    winzipself "z:\pacotes\mestre\win95\ctba\c\","hotfix.exe","c:\"
                                                    escrevaarquivo "c:\win95.log", date$ + time$ + "  - pacote de atualização descompactado."
                                                     escrevaarquivo "c:\windows\options\flags\hotfix.flg", date$ + time$ + "  - Hotfix gravado."
                                      endif

                                   endif ' fecha o if de recuperacao


















'!!!!!!!!!!!!!!

                                if  dlg_concluir.chk_concluir_recuperacao=1 then
                                                    ' se não foi marcada a opção de recuperação, força o pacote




                                               if   not exists("c:\windows\options\flags\pacote4.flg") then

                                                           ' Verifica se já foi copiado e pula para o próximo pacote

                                                   statusbox " Modo automático - descompactando pacote de instalação -  4° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                    winzipself "Z:\Pacotes\Mestre\Win95\Shared\","Drivers.exe","c:\"
                                                    escrevaarquivo "c:\win95.log", date$ + time$ + "  - 4° pacote  descompactado, prosseguindo. - pacote do device drivers."
                                                     escrevaarquivo "c:\windows\options\flags\pacote4.flg", date$ + time$ + "  - 4° pacote  descompactado, prosseguindo. - Drivers gravados."

                                                  else ' se existe o flag e como a oção de recuperação foi marcada pula a descompactação

                                                               ' não faz nada, pula para o próximo pacote
                                                               statusbox " Modo automático [ recuperação segura ] - o pacote de drivers  já foi descompactando, passando para o próximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\win95.log", date$ + time$ + " Modo automático [ recuperação segura ] - o pacote de drivers  já foi descompactando, passando para o próximo."
                                                               statusbox close


                                               endif






                                        else ' se não for macarda opção de recuperação







                                                   statusbox " Modo automático - descompactando pacote de instalação -  4° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                    winzipself "Z:\Pacotes\Mestre\Win95\Shared\","Drivers.exe","c:\"
                                                    escrevaarquivo "c:\win95.log", date$ + time$ + "  - 4° pacote  descompactado, prosseguindo. - pacote do device drivers."
                                                     escrevaarquivo "c:\windows\options\flags\pacote4.flg", date$ + time$ + "  - 4° pacote  descompactado, prosseguindo. - Drivers gravados."


                                endif  'fecha o recuperacao





                             if dlg_modelos.opt_modelos_notebook=1 then

                                                   escrevaarquivo "c:\windows\options\flags\remoto.flg", date$ + time$ + "  -  O usuário escolheu uma instalação para uso remoto."

                             endif




'''lajdlfa



                      escrevaarquivo "c:\windows\gns.txt", gns$









              if   not exists("c:\windows\options\flags\base.flg")  then


                 statusbox "Baixando as últimas atualizações para Windows 95 da localidade Curitiba/PR " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                 run "z:\Pacotes\Mestre\Win95\Ctba\C\Update.bat",,1
                   escrevaarquivo "c:\windows\options\flags\base.flg", date$ + time$ + "  - Base de dados copiada."
                   escrevaarquivo "c:\win95.log", date$ + time$ + "  - pacote de atualização descompactado."


             endif

              if   not exists("c:\windows\options\flags\shared.flg")  then


                 statusbox "Baixando as últimas atualizações compartilhadas da Siemens Brasil... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                 run "Z:\Pacotes\Mestre\Win95\Shared\C\Update.bat",,1
                   escrevaarquivo "c:\windows\options\flags\shared.flg", date$ + time$ + "  - Base de dados copiada."
                   escrevaarquivo "c:\win95.log", date$ + time$ + "  - pacote compartilhado descompactado."


             endif


                      escrevaarquivo "c:\win95.log", date$ + time$ + "  - Todos os pacotes foram descompactados."

end sub
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

sub sub_form_windows_nt()


   options=dlgbox(nt,null,dlg_nt,"telas\nt.res",true) '

    passount$="true"
    if options=104 then
           sub_modelos             'Avança
       elseif options=103 then
           sub_sistemas            'Volta
       elseif options=105 then
               stop                       'Finaliza
       elseif options=-4000 then
              stop                       'Finaliza
    endif


end sub

'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

sub sub_copiar_windowsnt4_Ctba()




if dlg_nt.opt_nt_unidade_c=-1 then

                  if exists("c:\winnt\options\flags\finalnt.flg") then 'se já houve uma instalação feita na máquina, apaga os flags da antiga

                     run "deltree /y c:\winnt\options\flags\*.flg",,0

                  endif


                         bootnt
                       escrevaarquivo "c:\winnt.log", date$ + time$ + "  - Iniciando a descompactação dos pacotes"

                                              winzipself "z:\pacotes\mestre\winnt\ctba\c\","flags.exe","c:\"


                                '  se o pacote já foi baixado


                                if  dlg_concluir.chk_concluir_recuperacao=1 then
                                                    ' se não foi marcada a opção de recuperação, força o pacote




                                               if   not exists("c:\winnt\options\flags\pacote1.flg") then

                                                           ' Verifica se já foi copiado e pula para o próximo pacote
                                                  statusbox " Modo automático - descompactando pacote de instalação -  1° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\winnt\ctba\c\","file1.exe","c:\"
                                                  escrevaarquivo "c:\winnt.log", date$ + time$ + "  - 1° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\winnt\options\flags\pacote1.flg", date$ + time$ + "  - 1° pacote  descompactado, prosseguindo."

                                                  else ' se existe o flag e como a oção de recuperação foi marcada pula a descompactação

                                                               ' não faz nada, pula para o próximo pacote

                                                               statusbox " Modo automático [ recuperação segura ] - o pacote 1  já foi descompactando, passando para o próximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\winnt.log", date$ + time$ + " Modo automático [ recuperação segura ] - o pacote  1  já foi descompactando, passando para o próximo."
                                                               statusbox close


                                               endif






                                        else ' se não for macarda opção de recuperação







                                                  statusbox " Modo automático - descompactando pacote de instalação -  1° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\winnt\ctba\c\","file1.exe","c:\"
                                                  escrevaarquivo "c:\winnt.log", date$ + time$ + "  - 1° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\winnt\options\flags\pacote1.flg", date$ + time$ + "  - 1° pacote  descompactado, prosseguindo."


                                endif  'fecha o recuperacao




'2222

                                if  dlg_concluir.chk_concluir_recuperacao=1 then
                                                    ' se não foi marcada a opção de recuperação, força o pacote




                                               if   not exists("c:\winnt\options\flags\pacote2.flg") then

                                                           ' Verifica se já foi copiado e pula para o próximo pacote
                                                  statusbox " Modo automático - descompactando pacote de instalação -  2° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\winnt\ctba\c\","file2.exe","c:\"
                                                  escrevaarquivo "c:\winnt.log", date$ + time$ + "  - 2° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\winnt\options\flags\pacote2.flg", date$ + time$ + "  - 2° pacote  descompactado, prosseguindo."

                                                  else ' se existe o flag e como a oção de recuperação foi marcada pula a descompactação

                                                               ' não faz nada, pula para o próximo pacote

                                                               statusbox " Modo automático [ recuperação segura ] - o pacote 2  já foi descompactando, passando para o próximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\winnt.log", date$ + time$ + " Modo automático [ recuperação segura ] - o pacote 2  já foi descompactando, passando para o próximo."
                                                               statusbox close

                                               endif






                                        else ' se não for macarda opção de recuperação







                                                  statusbox " Modo automático - descompactando pacote de instalação -  2° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\winnt\ctba\c\","file2.exe","c:\"
                                                  escrevaarquivo "c:\winnt.log", date$ + time$ + "  - 2° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\winnt\options\flags\pacote2.flg", date$ + time$ + "  - 2° pacote  descompactado, prosseguindo."


                                endif  'fecha o recuperacao





'11111


                                if  dlg_concluir.chk_concluir_recuperacao=1 then
                                                    ' se não foi marcada a opção de recuperação, força o pacote




                                               if   not exists("c:\winnt\options\flags\pacote3.flg") then

                                                           ' Verifica se já foi copiado e pula para o próximo pacote
                                                  statusbox " Modo automático - descompactando pacote de instalação -  3° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"


                                                  winzipself "z:\pacotes\mestre\winnt\ctba\c\","file3.exe","c:\"

                                                  escrevaarquivo "c:\winnt.log", date$ + time$ + "  - 3° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\winnt\options\flags\pacote3.flg", date$ + time$ + "  - 3° pacote  descompactado, prosseguindo."

                                                  else ' se existe o flag e como a oção de recuperação foi marcada pula a descompactação

                                                               ' não faz nada, pula para o próximo pacote
                                                               statusbox " Modo automático [ recuperação segura ] - o pacote 3  já foi descompactando, passando para o próximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\winnt.log", date$ + time$ + " Modo automático [ recuperação segura ] - o pacote 3  já foi descompactando, passando para o próximo."
                                                               statusbox close


                                               endif






                                        else ' se não for macarda opção de recuperação







                                                  statusbox " Modo automático - descompactando pacote de instalação -  3° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                  winzipself "z:\pacotes\mestre\winnt\ctba\c\","file3.exe","c:\"

                                                  escrevaarquivo "c:\winnt.log", date$ + time$ + "  - 3° pacote  descompactado, prosseguindo."
                                                  escrevaarquivo "c:\winnt\options\flags\pacote3.flg", date$ + time$ + "  - 3° pacote  descompactado, prosseguindo."


                                endif  'fecha o recuperacao










'453434


                          if exists("z:\pacotes\mestre\winnt\ctba\c\hotfix.exe") then

                                   if  dlg_concluir.chk_concluir_recuperacao=1 then

                                                  if   not exists("c:\winnt\options\flags\hotifx.flg")  then

                                                          statusbox " Modo automático - Copiando pacote de atualizações  - ' " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                          winzipself "z:\pacotes\mestre\winnt\ctba\c\","hotfix.exe","c:\"
                                                          escrevaarquivo "c:\winnt.log", date$ + time$ + "  - pacote de atualização descompactado."
                                                           escrevaarquivo "c:\winnt\options\flags\hotfix.flg", date$ + time$ + "  - Hotfix gravado."

                                                           else

                                                               statusbox " Modo automático [ recuperação segura ] - o pacote de hotfix   já foi descompactando, passando para o próximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\winnt.log", date$ + time$ + " Modo automático [ recuperação segura ] - o pacote de hotfix  já foi descompactando, passando para o próximo."
                                                               statusbox close

                                                   endif

                                             else

                                                    statusbox " Modo automático - Copiando pacote de atualizações  - ' " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                    winzipself "z:\pacotes\mestre\winnt\ctba\c\","hotfix.exe","c:\"
                                                    escrevaarquivo "c:\winnt.log", date$ + time$ + "  - pacote de atualização descompactado."
                                                     escrevaarquivo "c:\winnt\options\flags\hotfix.flg", date$ + time$ + "  - Hotfix gravado."
                                      endif

                                   endif ' fecha o if de recuperacao


















'!!!!!!!!!!!!!!

                 if dlg_nt.chk_nt_service_pack=1 then 'se o usuário pediu para baixar o pacote

                                if  dlg_concluir.chk_concluir_recuperacao=1 then
                                                    ' se não foi marcada a opção de recuperação, força o pacote




                                               if   not exists("c:\winnt\options\flags\pacote4.flg") then

                                                           ' Verifica se já foi copiado e pula para o próximo pacote

                                                   statusbox " Modo automático - descompactando pacote de instalação -  4° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                    winzipself "Z:\Pacotes\Mestre\Winnt\Shared\","Drivers.exe","c:\"
                                                    escrevaarquivo "c:\winnt.log", date$ + time$ + "  - 4° pacote  descompactado, prosseguindo. - pacote do device drivers."
                                                     escrevaarquivo "c:\winnt\options\flags\pacote4.flg", date$ + time$ + "  - 4° pacote  descompactado, prosseguindo. - Drivers gravados."

                                                  else ' se existe o flag e como a oção de recuperação foi marcada pula a descompactação

                                                               ' não faz nada, pula para o próximo pacote

                                                               statusbox " Modo automático [ recuperação segura ] - o pacote de drivers já foi descompactando, passando para o próximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                               escrevaarquivo "c:\winnt.log", date$ + time$ + " Modo automático [ recuperação segura ] - o pacote drivers hotfix  já foi descompactando, passando para o próximo."
                                                               statusbox close

                                               endif






                                        else ' se não for macarda opção de recuperação







                                                   statusbox " Modo automático - descompactando pacote de instalação -  4° pacote  de 4 '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                    winzipself "Z:\Pacotes\Mestre\Winnt\Shared\","Drivers.exe","c:\"
                                                    escrevaarquivo "c:\winnt.log", date$ + time$ + "  - 4° pacote  descompactado, prosseguindo. - pacote do device drivers."
                                                     escrevaarquivo "c:\winnt\options\flags\pacote4.flg", date$ + time$ + "  - 4° pacote  descompactado, prosseguindo. - Drivers gravados."


                                endif  'fecha o recuperacao

               endif

           endif ' fecha o


                 if dlg_nt.chk_nt_cd=1 then 'se o usuário pediu para baixar o pacote

                                if  dlg_concluir.chk_concluir_recuperacao=1 then
                                                    ' se não foi marcada a opção de recuperação, força o pacote




                                               if   not exists("c:\winnt\options\flags\cdnt.flg") then

                                                           ' Verifica se já foi copiado e pula para o próximo pacote

                                                   statusbox " Modo automático - descompactando o cd de instalação do Windows NT '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                    winzipself "Z:\Pacotes\Mestre\Winnt\Shared\","i386.exe","c:\winnt\options\"
                                                    escrevaarquivo "c:\winnt.log", date$ + time$ + "  - descompactando o cd de instalação do Windows NT."
                                                     escrevaarquivo "c:\winnt\options\flags\cdnt.flg", date$ + time$ + "  - descompactando o cd de instalação do Windows NT."

                                                  else ' se existe o flag e como a oção de recuperação foi marcada pula a descompactação

                                                               ' não faz nada, pula para o próximo pacote


                                                statusbox " Modo automático [ recuperação segura ] - o pacote com o cd do Windows NT   já foi descompactando, passando para o próximo   " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                               escrevaarquivo "c:\winnt.log", date$ + time$ + " Modo automático [ recuperação segura ] - o pacote  com o cd do Windows NT  já foi descompactando, passando para o próximo."
                                                statusbox close


                                               endif




                                        else ' se não for macarda opção de recuperação


                                                   statusbox " Modo automático - descompactando o cd de instalação do Windows NT '  " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                                                    winzipself "Z:\Pacotes\Mestre\Winnt\Shared\","i386.exe","c:\winnt\options\"
                                                    escrevaarquivo "c:\winnt.log", date$ + time$ + "  - descompactando o cd de instalação do Windows NT."
                                                     escrevaarquivo "c:\winnt\options\flags\cdnt.flg", date$ + time$ + "  - descompactando o cd de instalação do Windows NT."


                                endif  'fecha o recuperacao


           endif ' fecha o o if do chk


















'''lajdlfa
                             if dlg_modelos.opt_modelos_notebook=1 then

                                                   escrevaarquivo "c:\winnt\options\flags\remoto.flg", date$ + time$ + "  -  O usuário escolheu uma instalação para uso remoto."

                             endif



                      escrevaarquivo "c:\winnt\gns.txt", gns$



              if   not exists("c:\winnt\options\flags\shared.flg")  then


                 statusbox "Baixando as últimas atualizações compartilhadas da Siemens Brasil... " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                 run "Z:\Pacotes\Mestre\Winnt\Shared\C\Update.bat",,1
                   escrevaarquivo "c:\winnt\options\flags\shared.flg", date$ + time$ + "  - Base de dados copiada."
                   escrevaarquivo "c:\winnt.log", date$ + time$ + "  - pacote compartilhado descompactado."


             endif







              if   not exists("c:\winnt\options\flags\base.flg")  then


                 statusbox "Baixando as últimas atualizações para Windows NT da localidade Curitiba/PR " +time$+" '" ,100,1,480,35,false,false,"MS Sans Serif"
                 run "Z:\PACOTES\MESTRE\WINNT\CTBA\C\UPDATE.BAT",,1
                   escrevaarquivo "c:\winnt\options\flags\base.flg", date$ + time$ + "  - Base de dados copiada."
                   escrevaarquivo "c:\winnt.log", date$ + time$ + "  - pacote de atualização descompactado."


             endif

                      escrevaarquivo "c:\winnt.log", date$ + time$ + "  - Todos os pacotes foram descompactados."
                      escrevaarquivo "c:\winnt\options\flags\finalnt.flg", date$ + time$ + "  - Todos os pacotes foram descompactados."








if dlg_nt.chk_nt_boot_ini=1 then

     run "notepad c:\boot.ini",,3

endif



end sub












'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

sub sub_aplicativos_espaco_requerido()

 if not  dlg_softs.chk_Access_97=0 then
         diskspacerequired=diskspacerequired+100
 endif
 if not  dlg_softs.chk_Access_2=0 then
           diskspacerequired=diskspacerequired+40
 endif
 if not  dlg_softs.chk_Cliente_Siebel_v5_5=0 then
           diskspacerequired=diskspacerequired+300
 endif
 if not  dlg_softs.chk_Client_Siebel_v5_5_Patch_2=0 then
          diskspacerequired=diskspacerequired+300
 endif
 if not  dlg_softs.chk_LanWorkPlace_5_0=0 then
         diskspacerequired=diskspacerequired+300
  endif
 if not  dlg_softs.chk_Oracle_734=0 then
          diskspacerequired=diskspacerequired+300
  endif
 if not  dlg_softs.chk_Project_4=0 then
          diskspacerequired=diskspacerequired+50
 endif
 if not  dlg_softs.chk_Project_98=0 then
          diskspacerequired=diskspacerequired+170
  endif
 if not  dlg_softs.chk_SAP_DVL=0 then
          diskspacerequired=diskspacerequired+50
  endif
 if not  dlg_softs.chk_SAP_Tel=0then
          diskspacerequired=diskspacerequired+50
  endif
 if not  dlg_softs.chk_Sap_Siemens_Local=0 then
          diskspacerequired=diskspacerequired+50
  endif
 if not  dlg_softs.chk_Terminal_IBM_Q3270=0 then
          diskspacerequired=diskspacerequired+15
 endif
 if not  dlg_softs.chk_Terminal_IBM=0 then
           diskspacerequired=diskspacerequired+15
 endif
 if not  dlg_softs.chk_Terminal_Server=0 then
           diskspacerequired=diskspacerequired+10
 endif
 if not  dlg_softs.chk_TGD=0 then
           diskspacerequired=diskspacerequired+95
 endif

end sub

'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////



 arq1$="c:\windows\options\flags\reboot1.txt"
 arq2$="c:\windows\options\flags\reboot2.txt"
 arq3$="c:\windows\options\flags\reboot3.txt"

mensagem="on"
if  exists("c:\windows\options\flags\stop.txt") then kill "c:\windows\options\flags\stop.txt" ' ativa o bloco de instruções abaixo apaguando o flag de retenção
do while true


'Insira aqui as mensagens de interração com os aplicativos
'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////


   if  exists("c:\windows\options\flags\stop.txt")                                  then stop       ' para o serviço
   if ativejanela ("Inserir Disco")                                                           then botao "OK"
   if ativejanela ("Rede do Windows")                                                 then botao "OK"
   if ativejanela ("Digite a Senha do Windows")                                   then botao "Cancelar"
   if ativejanela ("Alteração das configurações do sistema")                 then botao "&Não"
   if ativejanela ("Exibir")                                                                       then botao "OK"
   if ativejanela ("Propriedades de Vídeo")                                           then botao "Cancelar"
   if ativejanela ("Conflito de Versão")                                                  then botao "&Sim"
   if ativejanela ("DHCP Client")                                                           then botao "&Não"
   if ativejanela ("Rede do Windows")                                                  then botao "OK"
   if ativejanela ("Auto-detecção")                                                        then botao "&Não"
   if ativejanela ("Verificar Modem")                                                      then botao "Avançar >"
   if ativejanela ("Verificar Modem")                                                      then botao "Concluir"
   if ativejanela ("Assistente de Atualização de Driver de Dispositivo") then botao "Avançar >"
   if ativejanela ("Assistente de Atualização de Driver de Dispositivo") then botao "Concluir"
   if ativejanela ("Instalação de configuração")                                     then botao "OK"
   if ativejanela ("Inicialização do GroupWise")                                     then botao "Cancelar"
   if ativejanela ("Results")                                                                    then botao "Close"
   if ativejanela ("Assistente para Adicionar Novo Hardware")             then botao "Não"


     ' if ativejanela("NetWare Security Message") then

     '               msgbox "Problemas com a rede Novell. O serviço de autologon irá parar. Reinicie a máquina para continuar normalmente..", MB_ICONSTOP+MB_NOBEEP , "Aviso"
     '               stop

'    endif


  if  ativejanela ("Novell Login v3.10. (2.0)") and WEditExists("&Password:") Then 'caso esteja em rede desabilita as mensagen's
    '  dokeys "%U"
      'dokeys ".opsup.sbs.00.br"
      'dokeys "%P"
  '    dokeys "suporteanh"
      'botao "OK"
      FimInstpd95
      stop
  endif

  if  ativejanela ("Digitar Senha da Rede") and WEditExists("&Nome do usuário:") and WEditExists("&Domínio:") Then 'caso esteja em rede desabilita as mensagen's


  '    dokeys "%N"
     ' dokeys "upganh"

     ' dokeys "%H"
  '    dokeys "keyboard"


  '    dokeys "%D"
  '    dokeys "BRSAOE0A"

 '     botao "OK"

      FimInstpd95
      stop


 endif

 if   not exists("c:\windows\options\flags\detectar.txt")  then     ' verifica se já executou o Wizard do Windows 95 para detectar o Hardware
   if janelaexiste("Assistente para Adicionar Novo Hardware") then
          run "mtrun c:\windows\options\scripts\instala.pcd",nowait,1
         sleep 0.5
         stop
      endif


  endif

'A função das mensagens abaixo são informar o usuário que vê a instalação em que processo ela está.
'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////'
if exists("c:\windows\options\flags\detectar.txt") then
        if not exists(arq1$) and not exists("c:\windows\options\flags\stop.txt")  then
               if  mensagem ="on" then  statusbox " Modo automático - Configurando os drivers -   1° tentativa de 3  " +time$+" '" ,100,1,350,35,false,false,"MS Sans Serif"
        elseif not exists (arq2$)  and not exists("c:\windows\options\flags\stop.txt") then  ' verifica se já reiniciou pela 3 vez
                if mensagem ="on" then statusbox " Modo automático - Configurando  os drivers  -   2° tentativa de 3  " +time$+" '" ,100,1,350,35,false,false,"MS Sans Serif"
        elseif not exists(arq3$)  and not exists("c:\windows\options\flags\stop.txt")  then  ' verifica se já reiniciou pela 3 vez
                if  mensagem ="on" then statusbox " Modo automático - Configurando  os drivers  -  3° tentativa de 3  " +time$+" '" ,100,1,350,35,false,false,"MS Sans Serif"
        endif
 endif


 loop

======================================================
All Code are avaible on

https://github.com/lapuinka/jade



'Biblioteca pessoal de Fábio Leandro Lapuinka - 341-5863
'Última atualização em 27/07/2000
'$include 'winapi.inc'
Declare Function JanelaExiste (Nome_da_Janela$) ' Retorna True (Janela existe) or False (Janela não existe)
Declare Function Espere_a_Janela (Nome_da_Janela$) ' Espera pela Janela que você mandou
Declare Function JanelaAtiva (Nome_da_Janela$) ' Retorna True (Janela está em foco) or False(Janela não está em foco)
Declare Function botao (Nome_do_Botao$) ' Dá um clique em um botão, volta True (Clicou) or False(Não conseguiu)
Declare Function EscrevaArquivo (caminho_e_nome_do_arquivo$,texto_$) ' Cria um arquivo de texto ASCII
Declare Function AceSelf(origem$,destino$) ' Automatiza o processo de extração de arquivos do seft-Extractor do compactador WinACE
Declare Function WinzipSelf(origem$,arquivo$,destino$) ' Automatiza o processo de extração de arquivos do seft-Extractor do compactador WinZip 7.0
Declare Function Selecione_a_Janela(Nome_da_Janela$) ' Ativa o foco em um janela e retorna True (Janela foi selecionada) or False (Janela nao foi selecionada)
Declare Function Repete(numero_de_repeticoes%) ' Repete o um laço que vai de 0 até o numero de vezes que você passou, retorna o numero de vezes
Declare Function Letreiro(Mensagem$,Alinhamento$) ' Escreve uma mensagem na tela, um status, sem interromper a execução do programa
Declare Function AtiveJanela (Nome_da_Janela$) 'Ativa o foco do nome da janela
Declare Function ExisteReg (Path_Registry$,Value_Registry$) 'Verifica se um valor existe no registry
Declare Function CopyRegToClipboard lib "lib\clipreg.dll" alias "CopyRegToClipboard" (hKey, lpSubKey$, lpValue$) as long ' Funcao externa da DLL
Declare Function bootnt () 'Instala o gerenciador de boot do Windows NT
Declare Function boot95 () 'Instala o boot do windows 95
Declare Function texto(palavra$) 'retorna verdadeiro se o texto existir na janela ativa
Declare Function ActiveWindow(NameWindow$)
Declare Function SleepW(NameWindow$)
Declare Sub FimInstpd95()
Declare sub sub_user_messages() sub sub_user_messages() if ativejanela ("Inserir Disco") then botao "OK" if ativejanela ("Rede do Windows") then botao "OK" if ativejanela ("Digite a Senha do Windows") then botao "Cancelar" if ativejanela ("Alteração das configurações do sistema") then botao "&Não" if ativejanela ("Exibir") then botao "OK" if ativejanela ("Propriedades de Vídeo") then botao "Cancelar" if ativejanela ("Conflito de Versão") then botao "&Sim" if ativejanela ("DHCP Client") then botao "&Não" if ativejanela ("Rede do Windows") then botao "OK" if ativejanela ("Auto-detecção") then botao "&Não" if ativejanela ("Verificar Modem") then botao "Avançar >" if ativejanela ("Verificar Modem") then botao "Concluir" if ativejanela ("Assistente de Atualização de Driver de Dispositivo") then botao "Avançar >" if ativejanela ("Assistente de Atualização de Driver de Dispositivo") then botao "Concluir" if ativejanela ("Instalação de configuração") then botao "OK" if ativejanela ("Inicialização do GroupWise") then botao "Cancelar" if ativejanela ("Assistente para Adicionar Novo Hardware") then botao "Não" if ativejanela ("Results") then botao "Close" end sub



Remember when Conectiva invite try to hire me and I se No?
OK, I working on Siemens and I prefer to keep in this company.
VS

(The Olimpo... Periquito(Guy that work with Linux Memory System)






@echo off
   set path=%path%;z:\dos;z:\scripts\mstest;z:\dos\novell;


rem Controle de versao de disco de instalacao

   if   "%version%"=="1.00"  goto inicio:
   if   "%version%"=="9.04"  goto inicio:

   %networkdrive%:\scripts\logon\atualiza\atualiza.bat



 :inicio
  if "%site_location%"=="cdrom"  site_cdrom:
  if not "%nwlanguage%"=="" Goto Novell:
                            Goto Microsoft:


 :Microsoft
   Set Microsoft=True
   call z:\scripts\logon\NT.bat
   goto Jade:


 :Novell
   Set Novell=True
   call z:\scripts\logon\Novell.bat
   goto Jade:


 :Jade
   if "%config%"=="economic_memory" goto safemode:
   goto normalmode:


 :safemode
   net use g: \\cur2001a\safemode$
   set comspec=g:\osloader\command.com
   g:
   cd\
   cd osloader
   call z:\scripts\logon\safemode.bat
   win
   goto end:

:site_cdrom
 if "%memory%"=="low"  goto low_memory_cdrom:
 if "%memory%"=="high" goto normal_memory_cdrom:
 goto end:



:low_memory_cdrom
 z:
 cd\
 cd osloader
 win
 goto end:

:normal_memory_cdrom
   set comspec=%virtualdrive%:\osloader\command.com
   z:
   cd\
   call z:\scripts\logon\miniwin.bat
   goto end:



:normalmode
   set comspec=%virtualdrive%:\osloader\command.com
   z:
   cd\
   call z:\scripts\logon\miniwin.bat
   goto end:
  
:end

@echo off
 
 :inicio

  cls
 
  rem Sinal sonoro
  mode 80,50
  blue

  echo.
  echo.
  echo.
  echo.
  echo.
  echo.
  echo.
  echo.
  echo.
  echo.
  echo.
  echo.
  echo.
  echo.
  echo.
  echo.
  echo.                                  Aviso
  echo.                                  _____
  echo.
  echo.
  echo.
  echo.         Seu disco est� desatualizado e precisa ser corrigido.
  echo.    
  echo.         Libere a trava de grava��o e pressione qualquer tecla
  echo.  
  echo.         para corrigi-lo agora.
  echo.  
  echo.
  echo.
  echo.
  echo.
  echo.
  echo.
  echo.
  echo.

  alerta

  pause>nul
  if not "%nwlanguage%"=="" Goto Novell:
                            Goto Microsoft:


 :Microsoft
   call z:\scripts\logon\atualiza\disco.bat z:\scripts\logon\atualiza\img\nt.img
   goto fim:


 :Novell
   call z:\scripts\logon\atualiza\disco.bat z:\scripts\logon\atualiza\img\novell.img
   goto fim:



:fim
 restart


@echo off

if "%1"=="" goto erro:


Z:\Scripts\logon\atualiza\COPYQM.exe A: PLAYBACK=%1 NOCOMMENT COUNT=1 REPEAT NOPAUSE SILENT NOXMS NOEMS

goto end:

:erro
 cls
 echo.CopyQM
 echo.������
 echo.
 echo.L� uma imagem e grava em um disquete.
 echo.
 echo Erro! Especifique o arquivo de imagem.
 echo.
 pause >nul
 goto end:

:end




@Echo On
if "%1"=="/InstallW95" Goto InstallW95:
if "%1"=="/Update95"   Goto Update95:
if "%1"=="/UpdateNT"   Goto UpdateNT:
if "%1"=="/DelSwap"    Goto DelSwap:
if "%1"=="/NTC"   Goto NTC:
if "%1"=="/NTD"   Goto NTD:


if "%1"==""            Goto End:


:InstallW95

 Call %0 /Update95 c:\ io.sys io.old
 Call %0 /Update95 c:\ command.com command.old
 Call %0 /Update95 c:\ msdos.sys msdos.old
 sys a: c:
 deltree /y c:\io.sys
 deltree /y c:\msdos.sys
 deltree /y c:\command.com
 deltree /y c:\drvspace.bin
 restart
 Goto End:

:UpdateNT

   if exist c:\boot.ini attrib -r -a -s -h c:\boot.ini
   if exist c:\boot.old attrib -r -a -s -h c:\boot.old
   if exist c:\boot.old del c:\boot.old
   if exist c:\boot.ini ren c:\boot.ini boot.old



   if exist c:\io.sys       goto NoInstallOS:
   if exist c:\msdos.sys    goto NoInstallOS:
   if exist c:\command.com  goto NoInstallOS:

   Goto NTInstallOS:

   :NTInstallOS
    sys a: c:
    z:
    cd\
    cd scripts
    cd bats
    repairnt.bat
    restart

    Goto Next:

   :NoInstallOS
    z:
    cd\
    cd scripts
    cd bats
    repairnt.bat
    restart

    Goto Next:


:DelSwap
 deltree /y c:\$win_nt$.~bt
 deltree /y c:\$win_nt$.~ls
 deltree /y c:\$LDR$
 deltree /y c:\BOOT.INI
 deltree /y c:\TXTSETUP.SIF
 if exist c:\boot.ini attrib -r -a -s -h c:\boot.ini
 if exist c:\boot.old attrib -r -a -s -h c:\boot.old
 if exist c:\boot.old copy c:\boot.old c:\boot.ini /y
 if exist c:\boot.old del c:\boot.old
 if not exist c:\boot.ini if "%2" == "/partition(1)" copy z:\scripts\bats\boot(1).ini c:\boot.ini
 if not exist c:\boot.ini if "%2" == "/partition(2)" copy z:\scripts\bats\boot(2).ini c:\boot.ini
 if not exist c:\boot.ini if "%2" == "/partition(3)" copy z:\scripts\bats\boot(3).ini c:\boot.ini
 if exist c:\boot.ini attrib -r -a -h -s c:\boot.ini

 restart
 Goto End:

:NTC
 if exist c:\io.sys       goto ResumeNTC:
 if exist c:\msdos.sys    goto ResumeNTC:
 if exist c:\command.com  goto ResumeNTC:
 sys a: c:
 goto ResumeNTC:

:ResumeNTC
 deltree /y c:\$win_nt$.~bt
 deltree /y c:\$win_nt$.~ls
 deltree /y c:\$LDR$
 deltree /y c:\BOOT.INI
 deltree /y c:\TXTSETUP.SIF
 copy z:\scripts\bats\ntc.ini c:\boot.ini
 if exist c:\boot.ini attrib -r -a -h -s c:\boot.ini
 restart
 Goto End:

:NTD

 if exist c:\io.sys       goto ResumeNTC:
 if exist c:\msdos.sys    goto ResumeNTC:
 if exist c:\command.com  goto ResumeNTC:
 sys a: c:
 goto ResumeNTD:

:ResumeNTD
 deltree /y c:\$win_nt$.~bt
 deltree /y c:\$win_nt$.~ls
 deltree /y c:\$LDR$
 deltree /y c:\BOOT.INI
 deltree /y c:\TXTSETUP.SIF
 copy z:\scripts\bats\ntd.ini c:\boot.ini
 if exist c:\boot.ini attrib -r -a -h -s c:\boot.ini
 restart
 Goto End:





:Next
 Goto End:


:Update95
 if exist  %2%3 attrib -r -a -s -h %2%3
 if exist  %2%4 attrib -r -a -s -h  %2%4
 if exist %2%4  del %2%4
 ren %2%3 %4
 Goto End:

:End
@cls

@Echo On
%virtualdrive%:
cd\
if exist %1\*.log goto salvalogs:
  goto formatar:

:salvalogs
 %virtualdrive%:\
 md  %virtualdrive%:\bkplogs
 copy %1\*.log %virtualdrive%:\bkplogs /y /v
 rem Apaga as logs de antigas instalacoes
 if exist %virtualdrive%:\bkplogs\win95.log del %virtualdrive%:\bkplogs\win95.log
 if exist %virtualdrive%:\bkplogs\winnt.log del %virtualdrive%:\bkplogs\winnt.log
 if exist %virtualdrive%:\bkplogs\formatar.log del %virtualdrive%:\bkplogs\formatar.log

 set logsbackup=true

 goto formatar:

 :formatar
 if "%2"=="Rapida"  goto rapida:
 if "%2"=="Normal"  goto normal:

 :rapida
  echo s | format.com %1  /q/u/v:Siemens
  goto end:

 :normal
  echo s | format.com %1  /u/v:Siemens
  goto end:

:end
 if "%logsbackup%"=="true" copy  %virtualdrive%:\bkplogs %1\*.log /y /v

 @cls

Postar um comentário