code:

---

;****                                                          ****
;**** Login script for Lorentzen & Stemoco                     ****
;**** Made 21-22 Sep 2002 by Sverre Munthe                     ****
;**** Copyright (c) 2002, Lorentzen & Stemoco                  ****
;**** This script will only work with WinNT or better          ****
;****                                                          ****
;**** MunSve 27.09.2002 Added support for Symantec live update ****
;**** MunSve 29.09.2002 Something wrong with copying ls.bmp    ****
;**** MunSve 29.09.2002 WinXP machines don't get @primarygroup ****
;****                                                          ****

;****
;**** Setting a few variables for the script
;****
setoption("hidecursor", "on")
settitle("Hi " +@fullname + " you are now being logged on to Lornet, please wait this shouldn't take long")
if ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "RunLogonScriptSync") <> 1
	$value = WriteValue ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "RunLogonScriptSync", "1", "REG_DWORD")
endif

;****
;**** Checking if this is the first time this machine
;**** has logged on to the domain, if it is a file is 
;**** created and a line is made about the logon time, 
;**** if it isn't a line is made in the file about time
;****
$firsttime = 0
$file = "%0\..\Users\" + @userid + ".log"
if open(1, $file, 4) <> 0
	if open(1, $file, 5) = 0
		$txt = writeline(1, "First time logged on to domain " + @date + " " + @time + @crlf)
		$firsttime = 1
	endif
else
	$txt = writeline(1, "Logged on to domain from workstation " + @wksta + " " + @date + " " + @time + @crlf)
endif

;****
;**** Making a welcome message if this is the first time
;****
if $firsttime=1
	Small
	Color b+/n
	Box (0,0,24,79,GRID)
	Color g/w+
	Box (0,9,24,70,FULL)
	Color n/w+
	AT (1,11) "              Welcome to the Lornet domain!              "
	AT (3,11) " Since this is the first time you are logging on we will "
	AT (4,11) " take some time informing you about the Lornet domain as "
	AT (5,11) " well as what we in the IT-department can help you with. "
	AT (7,11) "  The domain Lornet consists of 6 servers that all work  "
	AT (8,11) " together to give you the best working solution possible "
	AT (9,11) "The file-server is where you will save your work and also"
	AT (10,11) "       run some of your more special programs from       "
	AT (11,11) "The Exchange-server is where all the e-mail is collected."
	AT (12,11) "The MRS-server collects all the e-mail from the Exchange-"
	AT (13,11) "             server and also receives faxes.             "
	AT (14,11) "  The SQL-server collects, and stores, all the messages  "
	AT (15,11) "     for the Strategic software from the MRS-server.     "
	AT (16,11) " The Terminal-server lets you work from outside the Oslo "
	AT (17,11) " office without having the programs installed on the PC. "
	AT (18,11) "   The Shipnet-server stores all of the post-fixtures.   "
	AT (20,11) "If you have any problems with any of the programs or your"
	AT (21,11) "PC, we at the IT-department will do our best to help you."
	AT (22,11) " You can reach us at 777 during working hours and at 888 "
	AT (23,11) "   after working hours. From outside dial 22 52 78 88.   "
	Color g/w+
	AT (24,28) "Press a key to continue"
	do 
	until kbhit()
endif

;****
;**** Testing for certain specific dates
;****
$array = @mdayno, @monthno
$today = join($array, "/")

if $today = "1/1" $specialday = "Happy New Year!"
endif

if $today = "1/5" $specialday = ""
endif

if $today = "17/5" $specialday = "Gratulerer med dagen Norge!"
endif

if $today = "24/12" $specialday = "Merry Christmas!"
endif

if $today = "25/12" $specialday = "Merry Christmas!"
endif

if $today = "31/1" $specialday = ""
endif

;****
; **** This next string is for testing
;****
;if $today = "22/9" $specialday = "Some type of text"
;endif

if len($specialday) > 0
	Small
	$length = len($specialday)
	$x1 = ((79 - $length) / 2) - 1
	$x2 = 79 - $x1
	Color b+/n
	Box (0,0,24,79,GRID)
	Color b/n
	Box (11,$x1+1,15,$x2+1,Å)
	Color g/w+
	Box (10,$x1,14,$x2,FULL)
	Color n/w+
	AT (12,$x1+2) $specialday
	sleep 3
endif

;****
;**** Adjusting the clock to same as server
;****
SetTime "\\lorfile"

;****
;**** Making a box that shows some data about
;**** his/her machine and the network
;****
$mhz = ""
$mhz = $mhz + @mhz + "MHz"
$diskspace = getdiskspace("c:\")
$diskspace = int($diskspace/1000)
if len($diskspace) > 3
	$length = len($diskspace) - 3
	$diskspace = left($diskspace, $length) + "." + right($diskspace,3) + "MB"
else
	if len($diskspace) < 2
		$diskspace = "Harddisk full!"
	else
		$diskspace = $diskspace + "MB"
	endif
endif
Small
Color b+/n
Box (0,0,24,79,GRID)
Color b+/n
Box (6,21,19,61,Å)
Color g/w+
Box (5,20,18,60,FULL)

Color b/w+
AT ( 7,25) "Userid       : "
AT ( 8,25) "Full name    : "
AT ( 9,25) "Group        : "
AT (10,25) "Privilege    : "
AT (11,25) "Workstation  : "
AT (12,25) "CPU speed    : "
AT (13,25) "C-drive      : "
AT (14,25) "Domain       : "
AT (15,25) "Logon Server : "
AT (16,25) "Current Time : "

Color n/w+
AT ( 7,40) @userid
AT ( 8,40) @fullname
AT ( 9,40) @primarygroup
AT (10,40) @priv
AT (11,40) @wksta
AT (12,40) $mhz
AT (13,40) $diskspace
AT (14,40) @domain
AT (15,40) @lserver
AT (16,40) @time
color w+/w+
;AT (0,0)
Sleep 5

;****
;**** Deleting all nettwork drives and setting
;**** up new ones
;****
Use "*" /delete 
$f = "\\lorsql\visma"
$g = "\\lorfile\programs"
$h = "\\lorfile\software"
$i = "\\lorfile\c$"
$j = "\\lorfile\d$"
$k = "\\lorfile\download"
$l = "\\lorfile\drivers"
$m = "\\lorfile\kixtart"
$n = "\\lorfile\netlogon"
$o = "\\lorfile\z"
$s = "\\lorfile\shared"
$u = "\\lorfile\@userid"
$v = "\\lorfile\@primarygroup"
$w = "\\lorfile\departments"

	Use f: $f
	Use g: $g
	Use h: $h
	Use s: $s
	Use u: $u
	Use v: $v
	Use w: $w

;****
;**** If you are a domain admin it also sets
;**** up a few more network drives
;****
:Domain_admins
If InGroup ("Domain admins") 
	Use i: $i
	Use j: $j
	Use k: $k
	Use l: $l
	Use m: $m
	Use n: $n
	Use o: $o
EndIf


;****
;**** Everyone in the Oslo office has access to
;**** these printers
;****
:Printers_for_OSLO
If InGroup ("l_gr_all")
	AddPrinterConnection ("\\lorfile\admin")
	AddPrinterConnection ("\\lorfile\colorlaser")
EndIf

;****
;**** One group for each printer (default printer)
;**** Each person can only be in one group so
;**** additional printers must be defined here
;****
:Printers_for_IKT
If InGroup ("p_gr_ikt")
	AddPrinterConnection ("\\lorfile\ikt")
	If SetDefaultPrinter ("\\lorfile\admin")=0 
	EndIf
EndIf

:Printers_for_OPS
If InGroup ("p_gr_ops1")
	AddPrinterConnection ("\\lorfile\ops1")
	If SetDefaultPrinter ("\\lorfile\ops1")=0 
	EndIf
EndIf

If InGroup ("p_gr_ops2")
	AddPrinterConnection ("\\lorfile\ops2")
	If SetDefaultPrinter ("\\lorfile\ops2")=0 
	EndIf
EndIf

If InGroup ("p_gr_ops3")
	AddPrinterConnection ("\\lorfile\ops3")
	If SetDefaultPrinter ("\\lorfile\ops3")=0 
	EndIf
EndIf

If InGroup ("p_gr_ops4")
	AddPrinterConnection ("\\lorfile\ops4")
	If SetDefaultPrinter ("\\lorfile\ops4")=0 
	EndIf
EndIf

:Printers_for_DRY
If InGroup ("p_gr_dry1")
	AddPrinterConnection ("\\lorfile\dry1")
	If SetDefaultPrinter ("\\lorfile\dry1")=0 
	EndIf
EndIf

If InGroup ("p_gr_dry2")
	AddPrinterConnection ("\\lorfile\dry2")
	If SetDefaultPrinter ("\\lorfile\dry2")=0 
	EndIf
EndIf

If InGroup ("p_gr_dry3")
	AddPrinterConnection ("\\lorfile\dry3")
	If SetDefaultPrinter ("\\lorfile\dry3")=0 
	EndIf
EndIf

If InGroup ("p_gr_dry4")
	AddPrinterConnection ("\\lorfile\dry4")
	If SetDefaultPrinter ("\\lorfile\dry4")=0 
	EndIf
EndIf

:Printers_for_SandP
If InGroup ("p_gr_sandp1")
	AddPrinterConnection ("\\lorfile\sandp1")
	If SetDefaultPrinter ("\\lorfile\sandp1")=0 
	EndIf
EndIf

If InGroup ("p_gr_sandp2")
	AddPrinterConnection ("\\lorfile\sandp2")
	If SetDefaultPrinter ("\\lorfile\sandp2")=0 
	EndIf
EndIf

:Printers_for_NBOff
If InGroup ("p_gr_nboff")
	AddPrinterConnection ("\\lorfile\nboff")
	If SetDefaultPrinter ("\\lorfile\nboff")=0 
	EndIf
EndIf

:Printers_for_TANK
If InGroup ("p_gr_tank")
	AddPrinterConnection ("\\lorfile\tank")
	If SetDefaultPrinter ("\\lorfile\tank")=0 
	EndIf
EndIf

:Printers_for_GAS
If InGroup ("p_gr_gas")
	AddPrinterConnection ("\\lorfile\gas")
	If SetDefaultPrinter ("\\lorfile\gas")=0 
	EndIf
EndIf

:Printers_for_ADMIN
If InGroup ("p_gr_admin2")
	AddPrinterConnection ("\\lorfile\admin2")
	If SetDefaultPrinter ("\\lorfile\admin2")=0 
	EndIf
EndIf

If InGroup ("p_gr_admin3")
	AddPrinterConnection ("\\lorfile\admin3")
	If SetDefaultPrinter ("\\lorfile\admin3")=0 
	EndIf
EndIf

:Printers_for_ACCOUNT
If InGroup ("p_gr_account")
	AddPrinterConnection ("\\lorfile\account")
	If SetDefaultPrinter ("\\lorfile\account")=0 
	EndIf
EndIf

:Printers_for_RESEARCH
If InGroup ("p_gr_research")
	AddPrinterConnection ("\\lorfile\research")
	If SetDefaultPrinter ("\\lorfile\research")=0 
	EndIf
EndIf

;****
;**** Copying necessary files for Symantec Live Update
;**** And setting necessary registry key
;****
Copy "%0\..\liveupdt.hst" "c:\program files\symantec\liveupdate\"
Copy "%0\..\s32luhl1.dll" "c:\program files\symantec\liveupdate\"
WriteValue("HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\LiveUpdate\Preferences","All Transports Available","0","REG_DWORD")

;****
;**** Checking if screensaver is active
;**** If not, new screensaver is set
;****
$dir = ReadValue("HKEY_LOCAL_MACHINE\software\microsoft\windows NT\currentversion", "SystemRoot")
Copy "%0\..\ls.bmp" $dir
$scrsvr = $dir + "\ls.bmp"
WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop","ScreenSaveActive","1","REG_SZ")
WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop","ScreenSaveTimeOut","600","REG_SZ")
WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop","SCRNSAVE.EXE",$dir + "\system32\ss3dfo.SCR","REG_SZ")
WriteValue("HKEY_CURRENT_USER\Control Panel\Screen Saver.3DFlyingObj","Texture",$scrsvr,"REG_SZ")
WriteValue("HKEY_CURRENT_USER\Control Panel\Screen Saver.3DFlyingObj","Size","100","REG_SZ")
WriteValue("HKEY_CURRENT_USER\Control Panel\Screen Saver.3DFlyingObj","Tesselation","200","REG_SZ")
WriteValue("HKEY_CURRENT_USER\Control Panel\Screen Saver.3DFlyingObj","Type","6","REG_SZ")

;****
;**** Checking if the homepage on IE is our official
;**** If not, http://www.lorstem.com is set
;****
:IE_Start_Page		
$home=ReadValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main","Start Page")
If $home<>"http://www.lorstem.com"
Goto Set_Home_Page
Else
Goto end
EndIf
:Set_Home_Page
WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main","Start Page","http://www.lorstem.com","REG_SZ")

;****
;**** Flushing all keystrokes
;****
flushkb

:END
Exit

---

code:

---

 @echo off
copy %0\..\ls.bmp %windir% > null
kix32 login.kix

 

---

code:

---

 echo %0\..% this is what you get in a batch file
kix32 test.txt
exit 

---

code:

---

 break on
"%0\.." + '  <= This is what "%0\.." gives you in KiX' ?
"%0\..%"  + '  <= This is what %"' + '0\..%" gives you in KiX' ?
ExpandEnvironmentVars("%0\..%")  + '  <= This is what ExpandEnvironmentVars(%"' + '"0\..%) gives you in KiX' ?
"%0\..\ls.bmp"  + '  <= This is what %"' + '0\..\ls.bmp" gives you in KiX' ?
get $
 

---

code:

---

$copyfrom='\\server\share\fiel.txt'
$copyto='%WINNT%'
if exist($copyfrom)
  if exist($copyto)
    copy $copyfrom $copyto
    if @ERROR
      ? 'Error copying file: '+@ERROR+' - '+@SERROR
    endif
  else
    ? 'Cannot find folder '+$copyto
  endif
else
  ? 'Cannot find file '+$copyfrom
endif

---