Wilson WindowWare Tech Support

WinBatch WinBatch+Compiler WebBatch
Home | Tech Database | Tech BBS | White Papers | Purchase

Script to Shutdown Windows and Backup INI Files First 

Keywords:     shutdown

; Script to shutdown windows. This script will copy all the necessary ini files to the H: drive
; and will shut down windows. It will prompt the user to close all files before shutting down.

;bug(@ON)

sounds(0)

;Define Vars

drive = "H:"

;Define the dialog format

shdnFormat="WWWDLGED,5.0"
shdnCaption="Windows 95 Shutdown"
shdnx=110
shdny=100
shdnwidth=205
shdnheight=90
shdnnumcontrols=6
shdn01='15,15,170,DEFAULT,RADIOBUTTON,state,"&Shutdown the Computer?",1'
shdn02='15,27,170,DEFAULT,RADIOBUTTON,state,"&Restart the Computer?",2'
shdn03='15,39,170,DEFAULT,RADIOBUTTON,state,"&Close all programs and logon as a different user?",3'
shdn04='30,60,40,DEFAULT,PUSHBUTTON,Default,"&Yes",1'
shdn05='80,60,40,DEFAULT,PUSHBUTTON,Default,"&No",2'
shdn06='130,60,40,DEFAULT,PUSHBUTTON,Default,"&Help",3'
retval = 1

; list of files to be copied up to network (c:\windows to h:\windows)
; session.ini,msmail.ini,trs.ini,odbc.ini,shlt*.ini,msacc20.ini,winproj4.ini
; pww.ini;"c:\Program Files\faxsrcli\faxsrwin.ini";c:\exchange\mailbox.pab



While @TRUE
  retval = Dialog("shdn")
  switch retval
    case 1
      switch state
	case 1
	  if DiskExist(drive)
	    ErrorMode(@OFF)
	    if FileExist ("h:\exchange\mailbox.pab") != 2
	      if FileExist ("c:\exchange\mailbox.pab") then FileCopy ("C:\EXCHANGE\MAILBOX.PAB", "H:\EXCHANGE\MAILBOX.PAB",@FALSE)
	    endif
	    if FileExist ("h:\windows\session.ini") != 2 
	      if FileExist ("c:\windows\session.ini") then FileCopy ("C:\WINDOWS\SESSION.INI", "H:\WINDOWS\SESSION.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\windows\msmail.ini") != 2 
	      if FileExist ("c:\windows\msmail.ini") then FileCopy ("C:\WINDOWS\MSMAIL.INI", "H:\WINDOWS\MSMAIL.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\windows\trs.ini") != 2 
	      if FileExist ("c:\windows\trs.ini") then FileCopy ("C:\WINDOWS\TRS.INI", "H:\WINDOWS\TRS.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\faxsrcli\faxsrwin.ini") != 2 
	      if FileExist ("c:\Program Files\faxsrcli\faxsrwin.ini") then FileCopy ("C:\PROGRAM FILES\FAXSRCLI\FAXSRWIN.INI", "H:\FAXSRCLI\FAXSRWIN.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\windows\odbc.ini") != 2 
	      if FileExist ("c:\windows\odbc.ini") then FileCopy ("C:\WINDOWS\ODBC.INI", "H:\WINDOWS\ODBC.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\windows\ers.ini") != 2 
	      if FileExist ("c:\windows\ers.ini") then FileCopy ("C:\WINDOWS\ERS.INI", "H:\WINDOWS\ERS.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\windows\shltrans.ini") != 2 
	      if FileExist ("c:\windows\shltrans.ini") then FileCopy ("C:\WINDOWS\SHLT*.INI", "H:\WINDOWS\SHLT*.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\windows\msacc20.ini") != 2 
	      if FileExist ("c:\windows\msacc20.ini") then FileCopy ("C:\WINDOWS\MSACC20.INI", "H:\WINDOWS\MSACC20.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\windows\winproj4.ini") != 2 
	      if FileExist ("c:\windows\winproj4.ini") then FileCopy ("C:\WINDOWS\WINPROJ4.INI", "H:\WINDOWS\WINPROJ4.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\windows\pww.ini") != 2 
	      if FileExist ("c:\windows\pww.ini") then FileCopy ("C:\WINDOWS\PWW.INI", "H:\WINDOWS\PWW.INI",@FALSE)
	    endif	  
	    ErrorMode(@CANCEL)
	  endif
	  IntControl(68,0,0,0,0)
	  exit
	case 2
	  if DiskExist(drive) 
	    ErrorMode(@OFF)
	    if FileExist ("h:\exchange\mailbox.pab") != 2
	      if FileExist ("c:\exchange\mailbox.pab") then FileCopy ("C:\EXCHANGE\MAILBOX.PAB", "H:\EXCHANGE\MAILBOX.PAB",@FALSE)
	    endif
	    if FileExist ("h:\windows\session.ini") != 2 
	      if FileExist ("c:\windows\session.ini") then FileCopy ("C:\WINDOWS\SESSION.INI", "H:\WINDOWS\SESSION.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\windows\msmail.ini") != 2 
	      if FileExist ("c:\windows\msmail.ini") then FileCopy ("C:\WINDOWS\MSMAIL.INI", "H:\WINDOWS\MSMAIL.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\windows\trs.ini") != 2 
	      if FileExist ("c:\windows\trs.ini") then FileCopy ("C:\WINDOWS\TRS.INI", "H:\WINDOWS\TRS.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\faxsrcli\faxsrwin.ini") != 2 
	      if FileExist ("c:\Program Files\faxsrcli\faxsrwin.ini") then FileCopy ("C:\PROGRAM FILES\FAXSRCLI\FAXSRWIN.INI", "H:\FAXSRCLI\FAXSRWIN.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\windows\odbc.ini") != 2 
	      if FileExist ("c:\windows\odbc.ini") then FileCopy ("C:\WINDOWS\ODBC.INI", "H:\WINDOWS\ODBC.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\windows\ers.ini") != 2 
	      if FileExist ("c:\windows\ers.ini") then FileCopy ("C:\WINDOWS\ERS.INI", "H:\WINDOWS\ERS.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\windows\shltrans.ini") != 2 
	      if FileExist ("c:\windows\shltrans.ini") then FileCopy ("C:\WINDOWS\SHLT*.INI", "H:\WINDOWS\SHLT*.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\windows\msacc20.ini") != 2 
	      if FileExist ("c:\windows\msacc20.ini") then FileCopy ("C:\WINDOWS\MSACC20.INI", "H:\WINDOWS\MSACC20.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\windows\winproj4.ini") != 2 
	      if FileExist ("c:\windows\winproj4.ini") then FileCopy ("C:\WINDOWS\WINPROJ4.INI", "H:\WINDOWS\WINPROJ4.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\windows\pww.ini") != 2 
	      if FileExist ("c:\windows\pww.ini") then FileCopy ("C:\WINDOWS\PWW.INI", "H:\WINDOWS\PWW.INI",@FALSE)
	    endif
	    ErrorMode(@CANCEL)
	  endif
	  IntControl(67,0,0,0,0)
	  exit
	case 3
	  if DiskExist(drive) 
	    ErrorMode(@OFF)
	    if FileExist ("h:\exchange\mailbox.pab") != 2
	      if FileExist ("c:\exchange\mailbox.pab") then FileCopy ("C:\EXCHANGE\MAILBOX.PAB", "H:\EXCHANGE\MAILBOX.PAB",@FALSE)
	    endif
	    if FileExist ("h:\windows\session.ini") != 2 
	      if FileExist ("c:\windows\session.ini") then FileCopy ("C:\WINDOWS\SESSION.INI", "H:\WINDOWS\SESSION.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\windows\msmail.ini") != 2 
	      if FileExist ("c:\windows\msmail.ini") then FileCopy ("C:\WINDOWS\MSMAIL.INI", "H:\WINDOWS\MSMAIL.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\windows\trs.ini") != 2 
	      if FileExist ("c:\windows\trs.ini") then FileCopy ("C:\WINDOWS\TRS.INI", "H:\WINDOWS\TRS.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\faxsrcli\faxsrwin.ini") != 2 
	      if FileExist ("c:\Program Files\faxsrcli\faxsrwin.ini") then FileCopy ("C:\PROGRAM FILES\FAXSRCLI\FAXSRWIN.INI", "H:\FAXSRCLI\FAXSRWIN.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\windows\odbc.ini") != 2 
	      if FileExist ("c:\windows\odbc.ini") then FileCopy ("C:\WINDOWS\ODBC.INI", "H:\WINDOWS\ODBC.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\windows\ers.ini") != 2 
	      if FileExist ("c:\windows\ers.ini") then FileCopy ("C:\WINDOWS\ERS.INI", "H:\WINDOWS\ERS.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\windows\shltrans.ini") != 2 
	      if FileExist ("c:\windows\shltrans.ini") then FileCopy ("C:\WINDOWS\SHLT*.INI", "H:\WINDOWS\SHLT*.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\windows\msacc20.ini") != 2 
	      if FileExist ("c:\windows\msacc20.ini") then FileCopy ("C:\WINDOWS\MSACC20.INI", "H:\WINDOWS\MSACC20.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\windows\winproj4.ini") != 2 
	      if FileExist ("c:\windows\winproj4.ini") then FileCopy ("C:\WINDOWS\WINPROJ4.INI", "H:\WINDOWS\WINPROJ4.INI",@FALSE)
	    endif	  
	    if FileExist ("h:\windows\pww.ini") != 2 
	      if FileExist ("c:\windows\pww.ini") then FileCopy ("C:\WINDOWS\PWW.INI", "H:\WINDOWS\PWW.INI",@FALSE)
	    endif
	    ErrorMode(@CANCEL)
	  endif
	  IntControl(66,0,0,0,0)
	  exit
      endswitch
      break
    case 2
      exit
    case 3
      RunShell("c:\windows\help\overview.hlp", "", "C:\Windows\help", @NORMAL, @NOWAIT)
      break
  endswitch
endwhile


Article ID:   W13321

Filename:   Script to Shutdown Window after Backing up INI Files.txt