Win2003 server script error: mapping network drives

[Guest samhale]

I'm the Tech Director at a school and we use Windows 2003 Server to pass

scripts to clients on login depending on user and location. Everything

worked well for a year with clients but this year our 4th grade class

has been having sporadic problems. The general 'share' folder that all

users have always works for these users, but around 20% of the time

their individual user mapped-drive does not show up. It is not dependent

on machine or user but seems random. Most times the user can logout and

log back in and it maps their network drive properly.

I'm no script expert (the one we use was created by a consultant)

but I would appreciate any help or suggestions that anyone might

provide.

 

Kixtart Script:

 

;DEBUG "ON"

;MessageBox("Running Logon Script", "ASDS",0, 2)

 

;;;;;;;;;;;;

; Functions

;

 

; this function will delete *all* network printers

function DelPrinterConnections()

dim $c,$bk,$conn

$c=0

$bk="HKEY_CURRENT_USER\Printers\Connections"

$conn=enumkey($bk,$c)

while @error=0

$c=$c+0.5

$conn=delkey($bk+"\"+$conn)

$conn=enumkey($bk,$c)

loop

endfunction

 

; this function will only delete network printers from 2kserv01

/*

function Del2kserv01Printers()

dim $c,$bk,$conn

$c=0

$bk="HKEY_CURRENT_USER\Printers\Connections"

$conn=enumkey($bk,$c)

while @error=0

$c=$c+0.5

if instr($conn, "2kserv01") > 0

$conn=delkey($bk+"\"+$conn)

endif

$conn=enumkey($bk,$c)

loop

endfunction

*/

 

;;;;;;;;;;;;;;;;;;;;;;;;;

; Mapping Network Drives

;

 

; remove all exiting mapped drive letters

USE "*" /DELETE /PERSISTENT

; individually delete s: and v: did not work

;USE s: /delete

;USE v: /delete

 

USE s: "\\saints\share" /persistent

 

IF InGroup("teachers")

USE V: "\\saints\users\teachers\" + @USERID

ENDIF

 

IF InGroup("class2007")

USE V: "\\saints\users\students\class of 2007\" + @USERID

ENDIF

 

IF InGroup("Class of 2008")

USE V: "\\saints\users\students\class of 2008\" + @USERID

ENDIF

 

IF InGroup("Class of 2009")

USE V: "\\saints\users\students\class of 2009\" + @USERID

ENDIF

 

IF InGroup("Class of 2010")

USE V: "\\saints\users\students\class of 2010\" + @USERID

ENDIF

 

IF InGroup("Class of 2011")

USE V: "\\saints\users\students\class of 2011\" + @USERID

ENDIF

 

IF InGroup("Class of 2012")

USE V: "\\saints\users\students\class of 2012\" + @USERID

ENDIF

 

IF InGroup("Class of 2013")

USE V: "\\saints\users\students\class of 2013\" + @USERID

ENDIF

 

IF InGroup("Class of 2014")

USE V: "\\saints\users\students\class of 2014\" + @USERID

ENDIF

 

IF InGroup("Class of 2015")

USE V: "\\saints\users\students\class of 2015\" + @USERID

ENDIF

 

IF InGroup("Class of 2016")

USE V: "\\saints\users\students\class of 2016\" + @USERID

ENDIF

 

IF InGroup("Class of 2017")

USE V: "\\saints\users\students\class of 2017\" + @USERID

ENDIF

 

IF InGroup("Class of 2018")

USE V: "\\saints\users\students\class of 2018\" + @USERID

ENDIF

 

 

 

 

 

;;;;;;;;;;;;;;;;;;;;;

; Printer Assignment

;

 

; delete any network printers connected to theold server, 2kserv01

; Del2kserv01Printers()

 

; determine if a computer in in the lab or in the library

$in_lab = 0

$in_lib = 0

$in_laptop = 0

$err = 0

 

$all_grps = GetObject("WinNT://" + @domain + "/" + @wksta + "$$" )

for each $grp in $all_grps.Groups

;MessageBox($grp.Name,"Groups",0)

if $grp.Name = "labgrp"

$in_lab = 1

endif

if $grp.Name = "libgrp"

$in_lib = 1

endif

if $grp.Name = "laptopgrp"

$in_laptop = 1

endif

next

 

; computer lab

IF $in_lab = 1

;MessageBox("In the lab", @HOSTNAME, 0 )

DelPrinterConnections()

$rv = AddPrinterConnection("\\saints\LabDell3100")

if $rv <> 0

;MessageBox("Could not use the Lab Color Laser 3100:" +

$rv,"Error",0,2)

$err = $err + 1

endif

$rv = AddPrinterConnection("\\saints\LabHP2200")

if $rv <> 0

;MessageBox("Could not connect to printer: Lab HP 2200:" + $rv +

@CRLF + @SError,"Error",0,2)

$err = $err + 1

endif

; kixtart SetDefaultPrinter() does not seem to work

sleep 0.5

Run "c:\windows\system32\cscript.exe //nologo

\\asds1.local\netlogon\default_lab_prtr.vbs"

endif

 

; library

IF $in_lib = 1

;MessageBox("In the library", @HOSTNAME, 0 )

DelPrinterConnections()

$rv = AddPrinterConnection("\\saints\LibraryColor")

if $rv <> 0

;MessageBox("Could not connect to: Library Color Laser Printer 3100:"

+ $rv + @CRLF + @Serror,"Error",0,2)

$err = $err + 1

endif

$rv = AddPrinterConnection("\\saints\LibraryLaser1700")

if $rv <> 0

;MessageBox("Could not connect to: Library Laser Printer 1700:" + $rv

+ @CRLF + @Serror,"Error",0,2)

$err = $err + 1

endif

sleep 0.5

Run "c:\windows\system32\cscript.exe //nologo

\\asds1.local\netlogon\default_lib_prtr.vbs"

endif

 

; laptop computers

if $in_laptop = 1

;MessageBox("Is a laptop", @HOSTNAME, 0 )

DelPrinterConnections()

$rv = AddPrinterConnection("\\saints\LabDell3100")

if $rv <> 0

;MessageBox("Could not use the Lab Color Laser 3100:" + $rv, "Error",

0, 2)

$err = $err + 1

endif

$rv = AddPrinterConnection("\\saints\LabHP2200")

if $rv <> 0

;MessageBox("Could not connect to: Lab HP 2200:" + $rv + @CRLF +

@SError, "Error",0,2)

$err = $err + 1

endif

$rv = AddPrinterConnection("\\saints\LibraryColor")

if $rv <> 0

;MessageBox("Could not connect to: Library Color Laser Printer 3100:"

+ $rv + @CRLF + @Serror,"Error",0,2)

$err = $err + 1

endif

$rv = AddPrinterConnection("\\saints\LibraryLaser1700")

if $rv <> 0

;MessageBox("Could not connect to printer: Library Laser Printer

1700:" + $rv + @CRLF + @Serror,"Error",0,2)

$err = $err + 1

endif

sleep 0.5

Run "c:\windows\system32\cscript.exe //nologo

\\asds1.local\netlogon\default_lib_prtr.vbs"

endif

 

;;;;;;;;;;;;;;;;;;

; Icon Management

;

 

; change out office icons, remove old ones, copy down good ones from

the server

del "c:\Documents and Settings\@USERID\Desktop\New Office

Document.lnk"

del "c:\Documents and Settings\@USERID\Desktop\Microsoft

Publisher.lnk"

del "c:\Documents and Settings\@USERID\Desktop\Microsoft

PowerPoint.lnk"

del "c:\Documents and Settings\@USERID\Desktop\Microsoft Word.lnk"

del "c:\Documents and Settings\@USERID\Desktop\New Microsoft Word

Document.doc"

del "c:\Documents and Settings\@USERID\Desktop\Shortcut to

WINWORD.lnk"

del "c:\Documents and Settings\@USERID\Desktop\Shortcut to ccopac.lnk"

copy "\\saints\netlogon\icons_global\*.lnk" "c:\Documents and

Settings\@USERID\Desktop\"

if $in_lib = 1

copy "\\saints\netlogon\icons_lib\*.lnk" "c:\Documents and

Settings\@USERID\Desktop\"

endif

if $in_lab = 1

copy "\\saints\netlogon\icons_lab\*.lnk" "c:\Documents and

Settings\@USERID\Desktop\"

endif

 

 

--

samhale

------------------------------------------------------------------------

samhale's Profile: http://forums.techarena.in/members/samhale.htm

View this thread: http://forums.techarena.in/windows-server-help/1055521.htm

 

http://forums.techarena.in