|
OKay here's my script.
;****************************************************************
;*****Last modified 6.07.2004 at 11.30 by Thomas
;******
;***********************************************************;*****
;* Filnavn: login.kix *
;* Lokasjon: \\hoftun\netlogon\kix *
;* Formål: Kjøres under innlogging *
;****************************************************************
; Welcome screen
CLS
Small
Color b+/n
Box (0,0,24,79,GRID) ; bakgrunn
Color b/n
Box (8,21,18,65,Å) ; skygge
Color c+/n
Box (7,20,18,64,FULL)
Color r+/n
AT (9,25) "Velkommen, @fullname"
AT (10,25)"Du er nå pålogget med en stasjonær pc"
Color w+/n
AT (11,25) "Privilegier : "
AT (12,25) "Maskin : "
AT (13,25) "Domene : "
AT (14,25) "Logon Server : "
AT (15,25) "Kommentar : "
Color r+/n
AT (17,22) " Vennligst vent mens logon valideres"
Color y+/n
AT (11,40) @priv
AT (12,40) @wksta
AT (13,40) @domain
AT (14,40) @lserver
AT (15,40) @comment
Color g+/n
Sleep(5)
; - Blanker skjermbildet
CLS
; - Synkroniserer klokken med Tekstil og Design server
SETTIME "\\hoftun"
; - Mapper opp forskjellige kataloger for forskjellige grupper
If InGroup( "Lærere" )
USE F: "\\hoftun\ansatte$"
USE K: "\\hoftun\klasser$"
USE X: "\\hoftun\felles_alle$"
SetWallpaper("wolf.bmp",1)
ENDIF
If InGroup( "GK_TEKSTIL" )
USE K: \\hoftun\klasser$\GK
USE X: \\hoftun\felles_alle$
ENDIF
If InGroup("VK1_TEKSTIL")
USE K: "\\hoftun\klasser$\VK1"
USE X: "\\hoftun\felles_alle$"
ENDIF
If InGroup("VK2_TEKSTIL")
USE K: "\\hoftun\klasser$\VK2"
USE X: "\\hoftun\felles_alle$"
ENDIF
;Prosedyre for å legge til printer
$ReturnCode = AddPrinterConnection ("\\hoftun\HP_Tekstil_Design")
If $ReturnCode = 0
? "Legger til skriver ved Tekstil og Design avdeling....."
Endif
IF NOT EXIST('%USERPROFILE%\newemployee.doc')
COPY @ldrive+ '\newemployee.doc' '%userprofile%'
SHELL '%compsec% /c print %userprofile%\newemployee.txt'
ENDIF
;**************
Everything else is working, except the wallpappers and the document won't print nor start...? I'm desperat!
Please help me!
Thomas
| 
