Below is my student login script.
Problem 1.
The users see the three lines of text in the initital display section.. But they see them one at a time instead of all at the same time. How can I change this?
Problem 2
After the last line of text "...will be written on your desktop" two zero's are added (or perhaps it's the letter o?). Any idea why this is happening?
Thanks for any help. Jeremy
Code:
; ллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл
; лл Calgary Catholic School Board лл
; лл Bishop Grandin High School лл
; лл Windows Server 2003 лл
; лл Aug 03, 2006 00
; лл 12:00 noon 00
; 00 Jeremy Schubert 00
; ллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл
Break OFF
;Set Variables
$S1 = "\\s047-s0371-01"
;$S1 = The Grandin Student Server
;@@@@@@@@@ Main Display@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Gosub MDISPLAY
$line = 6
Color g+/n
At ( $line ,5) "Welcome to the Bishop Grandin High School Computer Network"
Color g+/n
At ( $LINE ,5) "Please be patient while we connect your network drives and printers"
Color g+/n
At ( $LINE ,5) "The printers and drives available to you will be written on your desktop"
;@@@@@@@@ End Main Display @@@@@@@@@@@@@@@@@@@@@@@@
;Home Share Mapping
use h: /delete
use H: @HOMESHR
;CD ROM Mappings
use o: /delete
use O: $S1 + "\O-CDROM$"
use p: /delete
use P: $S1 + "\P-CDROM$"
use q: /delete
use Q: $S1 + "\Q-CDROM$"
use r: /delete
use R: $S1 + "\R-CDROM$"
use s: /delete
use S: $S1 + "\S-CDROM$"
use t: /delete
use T: $S1 + "\T-CDROM$"
use u: /delete
use U: $S1 + "\U-CDROM$"
use v: /delete
use V: $S1 + "\V-CDROM$"
use w: /delete
use W: $S1 + "\safe-t-disc$"
;Mapping for the Year Book Staff
If InGroup ("047-Yearbook")
use y: /delete
use Y: $s1 + "\Yearbk$"
EndIf
;Mapping for Mitchell OnDemand (the Automotive Program)
If InGroup ("047-Automotives") AND Instr (@wksta, "047-lib)
use i: /delete
use i: $S1 + "\mitchell$"
use j: /delete
use j: $S1 + "\SHARED-DVD1"
use k: /delete
use k: $S1 + "\SHARED-DVD2"
EndIf
;Cases to determine available printers and which printer is default
SELECT
case Instr (@wksta,"047-lib")=1
addprinterconnection ($s1 + "\library")
setdefaultprinter ($s1 + "\library")
Case InStr (@wksta,"047-C303")=1
addprinterconnection ($s1 + "\c303")
setdefaultprinter ($s1 + "\c303")
Case InStr (@wksta,"047-C309")=1
addprinterconnection ($s1 + "\C309")
setdefaultprinter ($s1 + "\c309")
Case InStr (@wksta,"047-C310")=1
addprinterconnection ($s1 + "\C310")
setdefaultprinter ($s1 + "\c310")
Case InStr (@wksta,"047-Guid")=1
addprinterconnection ($s1 + "\CAREER")
setdefaultprinter ($s1 + "\CAREER")
Case InStr (@wksta,"047-C312")=1
addprinterconnection ($s1 + "\C312")
setdefaultprinter ($s1 + "\c312")
Case InStr (@wksta,"047-C111")=1
addprinterconnection ($s1 + "\Epson")
addprinterconnection ($s1 + "\c111")
setdefaultprinter ($s1 + "\c111")
;Case InStr (@wksta,"047-MAX")=1
; addprinterconnection ($s1 + "\Library")
; setdefaultprinter ($s1 + "\
Case InStr (@wksta,"047-YEAR")=1
addprinterconnection ("\\047-YEARBOOK-2\Yearbook")
setdefaultprinter ("\\047-yearbook-2\yearbook")
Case InStr (@wksta,"047-DRAF")=1
addprinterconnection ($s1 + "\HP-GL/2 Plotter")
setdefaultprinter ($s1 + "\plotter")
Case InStr ("@wksta","047-GOLDIE")=1
addprinterconnection ($s1 + "\GOLDIE")
setdefaultprinter ($s1 + "\goldie")
Case InStr (@wksta,"047-C206")=1
addprinterconnection ($s1 + "\C206")
setdefaultprinter ($s1 + "\c206")
ENDSELECT
;Invoke bginfo.exe to stamp drive and printer information on the user's desktop
Shell "\\s096-s0101-01\netlogon\bginfo.exe \\s096-s0101-01\netlogon\047bginfo.bgi /timer:0"
;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
:MDISPLAY
CLS
Color b/n
Box(0,0,25,79,grid)
Color w+/n
Return
; @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
:end
Sleep 7
Exit 0
