#19410 - 2002-04-10 05:14 PM
Re: Please Help to debug my script
|
Wadoki
Fresh Scripter
Registered: 2002-03-15
Posts: 11
Loc: Atlanta Georgia USA
|
Let me start over. I thought about starting a new thread, but nawww.
Basicly I don't know squat about scripting or programing. I am strictly hardware. So forgive my complete lack of brain power.
I have never run scripts on our network before. I do everyting manually. recently we purchased a inventory package that requires that a script be run and a simple entry added to execute a program and send an inventory. So I am taking the opertunity to try and automate some of the other things I do automaticly.
1. I always map a network drive for everyone to G:\ //w20lan01/groups 2. I map a network drive for everyone's personal files to f:\ //w20lan01/. 3. I install network printers. 4. Run the inventoy program.
One of the problems I have on my network (not the script) is that (I don't know why) I get phontom extra net drives that need to be removed.
I had some other stuff in the script, but I removed it to the bare minimun so it would be easier to troubleshoot.
Several people have mentioned about putting people into groups... well I don't see how that would be possible, (you tell me) because of the individual drive mapping and most persons are in more than one group.
So below is my script. I'm sure it's totaly fubar. Most of the time the drive mapping and printer instalation does not work. Plus the window that pops up stays there and you can only kill it with the task manager.
code:
; ********************************************* ; *** Put message box on screen ; ********************************************* ; CLS
small Color b+/n BOX (0,0,24,79,GRID) ; 'background grid' Color b/n BOX (8,21,18,61,Å) ; 'shadow' of the box Color g+/n BOX (7,20,17,60,FULL)
Color w+/n AT ( 9,25) "Userid : " ; display some text strings AT (10,25) "Full name : " AT (11,25) "Privilege : " AT (12,25) "Workstation : " AT (13,25) "Domain : " AT (14,25) "Logon Server : "
Color y+/n AT ( 9,40) @userid ; ...and some macro's AT (10,40) @fullname AT (11,40) @priv AT (12,40) @wksta AT (13,40) @domain AT (14,40) @lserver
CLS ; ; ********************************************* ; *** Delete network-drives ; ********************************************* ; Use * /Delete /Persistent ; ; ********************************************* ; *** Begin Group Drive Mapping ; *********************************************
USE F: "\\w20lan01\Groups"
; ********************************************* ; *** Begin User Customization ; ********************************************* SELECT CASE @USERID='w20acdnt' ; ...Don Thompson USE G: "\\W20LAN01\Don" $retcode=AddPrinterConnection('\\w20lan04\w20acct') $retcode=SetDefaultPrinter('\\w20lan04\w20acct') CASE @USERID='w20acggm' ; ...Greg Morgan USE G: "\\W20LAN01\Morgan" $retcode=AddPrinterConnection('\\w20lan04\w20acct') $retcode=SetDefaultPrinter('\\w20lan04\w20acct') CASE @USERID='w20aclic' ; ...Lori Chilton USE G: "\\W20LAN01\Chilton" $retcode=AddPrinterConnection('\\w20lan04\w20pay') $retcode=AddPrinterConnection('\\w20lan04\w20acct') $retcode=SetDefaultPrinter('\\w20lan04\w20pay') CASE @USERID='w20acpah' ; ...Patricia Hurst USE G: "\\W20LAN01\Hurst" $retcode=AddPrinterConnection('\\w20lan04\w20acct') $retcode=SetDefaultPrinter('\\w20lan04\w20acct') CASE @USERID='w20acpkm' ; ...Patrick McGlade USE G: "\\W20LAN01\McGlade" $retcode=AddPrinterConnection('\\w20lan04\w20acct') $retcode=SetDefaultPrinter('\\w20lan04\w20acct') CASE @USERID='w20acsne' ; ...Sharon Eller USE G: "\\W20LAN01\Eller" $retcode=AddPrinterConnection('\\w20lan04\w20acct') $retcode=SetDefaultPrinter('\\w20lan04\w20acct') CASE @USERID='w20adayt' ; ...Amy Tollison USE G: "\\W20LAN01\Tollison" $retcode=AddPrinterConnection('\\w20lan04\w20sales') $retcode=AddPrinterConnection('\\w20lan04\w20acct') $retcode=SetDefaultPrinter('\\w20lan04\w20sales') CASE @USERID='w20addjm' ; ...David Mosgrove USE G: "\\W20LAN01\Mosgrove" $retcode=AddPrinterConnection('\\w20lan04\w20east-1') $retcode=AddPrinterConnection('\\w20lan04\w20sales') $retcode=SetDefaultPrinter('\\w20lan04\w20east-1') CASE @USERID='w20adeep' ; ...Emilie Pelfrene USE G: "\\W20LAN01\Pelfrene" $retcode=AddPrinterConnection('\\w20lan04\w20sales') $retcode=AddPrinterConnection('\\w20lan04\w20acct') $retcode=SetDefaultPrinter('\\w20lan04\w20sales') CASE @USERID='w20adkmb' ; ...Kevin Byers USE G: "\\W20LAN01\Byers" $retcode=AddPrinterConnection('\\w20lan04\w20sales') $retcode=AddPrinterConnection('\\w20lan04\w20acct') $retcode=SetDefaultPrinter('\\w20lan04\w20sales') CASE @USERID='w20csans' ; ...Ann Stooksbury USE G: "\\W20LAN01\Users" $retcode=AddPrinterConnection('\\w20lan04\w20cust') $retcode=SetDefaultPrinter('\\w20lan04\w20cust') CASE @USERID='w20emdsp' ; ...Glenda Scruggs USE G: "\\W20LAN01\Scruggs" $retcode=AddPrinterConnection('\\w20lan04\w20west-1') $retcode=SetDefaultPrinter('\\w20lan04\w20west-1') CASE @USERID='w20csilc' ; ...Isobel Charpentier USE G: "\\W20LAN01\Charpentier" $retcode=AddPrinterConnection('\\w20lan04\w20cust') $retcode=SetDefaultPrinter('\\w20lan04\w20cust') CASE @USERID='w20csjns' ; ...John Symank USE G: "\\W20LAN01\Symank" $retcode=AddPrinterConnection('\\w20lan04\w20cust') $retcode=SetDefaultPrinter('\\w20lan04\w20cust') CASE @USERID='w20cskyo' ; ...Kim O'Neal USE G: "\\W20LAN01\O'Neal" $retcode=AddPrinterConnection('\\w20lan04\w20cust') $retcode=SetDefaultPrinter('\\w20lan04\w20cust') CASE @USERID='w20csrar' ; ...Rhonda Rose USE G: "\\W20LAN01\Rose" $retcode=AddPrinterConnection('\\w20lan04\w20cust') $retcode=SetDefaultPrinter('\\w20lan04\w20cust') CASE @USERID='w20cssah' ; ...Shea Hatchett USE G: "\\W20LAN01\Hatchett" $retcode=AddPrinterConnection('\\w20lan04\w20cust') $retcode=SetDefaultPrinter('\\w20lan04\w20cust') CASE @USERID='w20cssnc' ; ...Stan Cox USE G: "\\W20LAN01\Cox" $retcode=AddPrinterConnection('\\w20lan04\w20west-1') $retcode=AddPrinterConnection('\\w20lan04\w20sales') $retcode=SetDefaultPrinter('\\w20lan04\w20west-1') CASE @USERID='w20cstit' ; ...Terri Tubens USE G: "\\W20LAN01\Tubens" $retcode=AddPrinterConnection('\\w20lan04\w20cust') $retcode=SetDefaultPrinter('\\w20lan04\w20cust') CASE @USERID='w20emdsp' ; ...Dennis Pontious USE G: "\\W20LAN01\Pontious" USE E: "\\W20LAN03\MP2ACCESS" $retcode=AddPrinterConnection('\\w20lan04\w20maint-1') $retcode=SetDefaultPrinter('\\w20lan04\w20maint-1') CASE @USERID='w20emmms' ; ...Marcus Stevens USE E: "\\W20LAN03\MP2ACCESS" $retcode=AddPrinterConnection('\\w20lan04\w20maint-1') $retcode=SetDefaultPrinter('\\w20lan04\w20maint-1') CASE @USERID='w20emtdl' ; ...Todd Lupo USE G: "\\W20LAN01\Lupo" USE E: "\\W20LAN03\MP2ACCESS" $retcode=AddPrinterConnection('\\w20lan04\w20maint-1') $retcode=SetDefaultPrinter('\\w20lan04\w20maint-1') CASE @USERID='w20hrjhc' ; ...Judith Carr USE G: "\\W20LAN01\Carr" $retcode=AddPrinterConnection('\\w20lan04\w20hr') $retcode=AddPrinterConnection('\\w20lan04\w20sales') $retcode=SetDefaultPrinter('\\w20lan04\w20hr') CASE @USERID='w20hrlmr' ; ...Lisa Redmon USE G: "\\W20LAN01\Redmon" $retcode=AddPrinterConnection('\\w20lan04\w20hr') $retcode=AddPrinterConnection('\\w20lan04\w20sales') $retcode=SetDefaultPrinter('\\w20lan04\w20hr') CASE @USERID='w20hrpeb' ; ...Paulette Brown USE G: "\\W20LAN01\Brown" $retcode=AddPrinterConnection('\\w20lan04\w20hr') $retcode=AddPrinterConnection('\\w20lan04\w20sales') $retcode=SetDefaultPrinter('\\w20lan04\w20hr') CASE @USERID='w20itstd' ; ...Scott Dacus USE G: "\\W20LAN01\Dacus" $retcode=AddPrinterConnection('\\w20lan04\w20acct') $retcode=AddPrinterConnection('\\w20lan04\w20sales') $retcode=SetDefaultPrinter('\\w20lan04\w20acct') CASE @USERID='w20maint' ; ...Maintenance USE E: "\\W20LAN03\MP2ACCESS" $retcode=AddPrinterConnection('\\w20lan04\w20maint-1') $retcode=SetDefaultPrinter('\\w20lan04\w20maint-1') CASE @USERID='w20mkdds' ; ...David Soper USE G: "\\W20LAN01\Soper" $retcode=AddPrinterConnection('\\w20lan04\w20acct') $retcode=AddPrinterConnection('\\w20lan04\w20sales') $retcode=SetDefaultPrinter('\\w20lan04\w20acct') CASE @USERID='w20mkhfc' ; ...Herman Cameron $retcode=AddPrinterConnection('\\w20lan04\w20cust') $retcode=SetDefaultPrinter('\\w20lan04\w20cust') CASE @USERID='w20mkpjl' ; ...Paul Loftis $retcode=AddPrinterConnection('\\w20lan04\w20cust') $retcode=SetDefaultPrinter('\\w20lan04\w20cust') CASE @USERID='w20mksgk' ; ...Susie Kerce $retcode=AddPrinterConnection('\\w20lan04\w20cust') $retcode=SetDefaultPrinter('\\w20lan04\w20cust') CASE @USERID='w20mktaa' ; ...Tricia Adams $retcode=AddPrinterConnection('\\w20lan04\w20cust') $retcode=SetDefaultPrinter('\\w20lan04\w20cust') CASE @USERID='w20mktac' ; ...Tom Coleman $retcode=AddPrinterConnection('\\w20lan04\w20cust') $retcode=SetDefaultPrinter('\\w20lan04\w20cust') CASE @USERID='w20mktmb' ; ...Tim Bentley $retcode=AddPrinterConnection('\\w20lan04\w20cust') $retcode=SetDefaultPrinter('\\w20lan04\w20cust') CASE @USERID='w20mslyr' ; ...Larry Robertson USE G: "\\W20LAN01\Robertson" $retcode=AddPrinterConnection('\\w20lan04\w20east-1') $retcode=AddPrinterConnection('\\w20lan04\w20east-3') $retcode=SetDefaultPrinter('\\w20lan04\w20east-1') CASE @USERID='w20pacfb' ; ...Cliff Bowles USE G: "\\W20LAN01\Bowles" $retcode=AddPrinterConnection('\\w20lan04\w20west-1') $retcode=AddPrinterConnection('\\w20lan04\w20west-2') $retcode=AddPrinterConnection('\\w20lan04\w20east-1') $retcode=AddPrinterConnection('\\w20lan04\w20east-2') $retcode=SetDefaultPrinter('\\w20lan04\w20west-2') CASE @USERID='w20padeh' ; ...Debbie Haynes USE G: "\\W20LAN01\Haynes" $retcode=AddPrinterConnection('\\w20lan04\w20east-1') $retcode=AddPrinterConnection('\\w20lan04\w20east-2') $retcode=AddPrinterConnection('\\w20lan04\w20west-1') $retcode=AddPrinterConnection('\\w20lan04\w20west-2') $retcode=SetDefaultPrinter('\\w20lan04\w20east-1') CASE @USERID='w20palab' ; ...LeAnne Bright USE G: "\\W20LAN01\Bright" $retcode=AddPrinterConnection('\\w20lan04\w20west-2') $retcode=AddPrinterConnection('\\w20lan04\w20west-1') $retcode=AddPrinterConnection('\\w20lan04\w20east-2') $retcode=AddPrinterConnection('\\w20lan04\w20east-1') $retcode=SetDefaultPrinter('\\w20lan04\w20west-2') CASE @USERID='w20pavns' ; ...Vern Schmitz USE G: "\\W20LAN01\Schmitz" $retcode=AddPrinterConnection('\\w20lan04\w20west-1') $retcode=AddPrinterConnection('\\w20lan04\w20west-2') $retcode=AddPrinterConnection('\\w20lan04\w20east-1') $retcode=AddPrinterConnection('\\w20lan04\w20east-2') $retcode=SetDefaultPrinter('\\w20lan04\w20west-1') CASE @USERID='w20pmanp' ; ...Aaron Pike $retcode=AddPrinterConnection('\\w20lan04\w20west-1') $retcode=AddPrinterConnection('\\w20lan04\w20west-2') $retcode=AddPrinterConnection('\\w20lan04\w20east-1') $retcode=AddPrinterConnection('\\w20lan04\w20east-2') $retcode=SetDefaultPrinter('\\w20lan04\w20east-2') CASE @USERID='w20pmdet' ; ...Doyle Thigpen $retcode=AddPrinterConnection('\\w20lan04\w20west-1') $retcode=AddPrinterConnection('\\w20lan04\w20west-2') $retcode=AddPrinterConnection('\\w20lan04\w20east-1') $retcode=AddPrinterConnection('\\w20lan04\w20east-2') $retcode=SetDefaultPrinter('\\w20lan04\w20west-2') CASE @USERID='w20pmdla' ; ...Daryl Adams USE G: "\\W20LAN01\Daryl" $retcode=AddPrinterConnection('\\w20lan04\w20west-1') $retcode=AddPrinterConnection('\\w20lan04\w20west-2') $retcode=AddPrinterConnection('\\w20lan04\w20east-1') $retcode=AddPrinterConnection('\\w20lan04\w20east-2') $retcode=SetDefaultPrinter('\\w20lan04\w20east-2') CASE @USERID='w20pmjec' ; ...Jesse Childree $retcode=AddPrinterConnection('\\w20lan04\w20west-1') $retcode=AddPrinterConnection('\\w20lan04\w20west-2') $retcode=AddPrinterConnection('\\w20lan04\w20east-1') $retcode=AddPrinterConnection('\\w20lan04\w20east-2') $retcode=SetDefaultPrinter('\\w20lan04\w20west-2') CASE @USERID='w20pmjed' ; ...Jose Della Mora $retcode=AddPrinterConnection('\\w20lan04\w20west-1') $retcode=AddPrinterConnection('\\w20lan04\w20west-2') $retcode=AddPrinterConnection('\\w20lan04\w20east-1') $retcode=AddPrinterConnection('\\w20lan04\w20east-2') $retcode=SetDefaultPrinter('\\w20lan04\w20east-2') CASE @USERID='w20pmjns' ; ...Jonathan Satterfield $retcode=AddPrinterConnection('\\w20lan04\w20west-1') $retcode=AddPrinterConnection('\\w20lan04\w20west-2') $retcode=AddPrinterConnection('\\w20lan04\w20east-1') $retcode=AddPrinterConnection('\\w20lan04\w20east-2') $retcode=SetDefaultPrinter('\\w20lan04\w20west-2') CASE @USERID='w20pmmlr' ; ...Mike Reynolds $retcode=AddPrinterConnection('\\w20lan04\w20west-1') $retcode=AddPrinterConnection('\\w20lan04\w20west-2') $retcode=AddPrinterConnection('\\w20lan04\w20east-1') $retcode=AddPrinterConnection('\\w20lan04\w20east-2') $retcode=SetDefaultPrinter('\\w20lan04\w20east-2') CASE @USERID='w20pmryg' ; ...Rocky Gordy $retcode=AddPrinterConnection('\\w20lan04\w20west-1') $retcode=AddPrinterConnection('\\w20lan04\w20west-2') $retcode=AddPrinterConnection('\\w20lan04\w20east-1') $retcode=AddPrinterConnection('\\w20lan04\w20east-2') $retcode=SetDefaultPrinter('\\w20lan04\w20west-2') CASE @USERID='w20pmsea' ; ...Shane Adams $retcode=AddPrinterConnection('\\w20lan04\w20west-1') $retcode=AddPrinterConnection('\\w20lan04\w20west-2') $retcode=AddPrinterConnection('\\w20lan04\w20east-1') $retcode=AddPrinterConnection('\\w20lan04\w20east-2') $retcode=SetDefaultPrinter('\\w20lan04\w20east-2') CASE @USERID='w20prod' ; ...Production $retcode=AddPrinterConnection('\\w20lan04\w20west-1') $retcode=AddPrinterConnection('\\w20lan04\w20west-2') $retcode=AddPrinterConnection('\\w20lan04\w20east-1') $retcode=AddPrinterConnection('\\w20lan04\w20east-2') $retcode=SetDefaultPrinter('\\w20lan04\w20west-2') CASE @USERID='w20wprod' ; ...West Production $retcode=AddPrinterConnection('\\w20lan04\w20west-1') $retcode=AddPrinterConnection('\\w20lan04\w20west-2') $retcode=AddPrinterConnection('\\w20lan04\w20east-1') $retcode=AddPrinterConnection('\\w20lan04\w20east-2') $retcode=SetDefaultPrinter('\\w20lan04\w20west-2') CASE @USERID='w20eprod' ; ...East Production $retcode=AddPrinterConnection('\\w20lan04\w20west-1') $retcode=AddPrinterConnection('\\w20lan04\w20west-2') $retcode=AddPrinterConnection('\\w20lan04\w20east-1') $retcode=AddPrinterConnection('\\w20lan04\w20east-2') $retcode=SetDefaultPrinter('\\w20lan04\w20east-2') CASE @USERID='w20pubrm' ; ...Billy Mitchem USE G: "\\W20LAN01\Mitchem" $retcode=AddPrinterConnection('\\w20lan04\w20east-1') $retcode=SetDefaultPrinter('\\w20lan04\w20east-1') CASE @USERID='w20puckh' ; ...Chuck Hodges USE E: "\\W20LAN03\MP2ACCESS" USE G: "\\W20LAN01\Hodges" $retcode=AddPrinterConnection('\\w20lan04\w20maint-2') $retcode=SetDefaultPrinter('\\w20lan04\w20maint-2') CASE @USERID='w20pukml' ; ...Kym Livingston USE G: "\\W20LAN01\Livingston" $retcode=AddPrinterConnection('\\w20lan04\w20east-1') $retcode=AddPrinterConnection('\\w20lan04\w20east-3') $retcode=SetDefaultPrinter('\\w20lan04\w20east-1') CASE @USERID='w20qcedh' ; ...Ed Hindy USE G: "\\W20LAN01\Hindy" $retcode=AddPrinterConnection('\\w20lan04\w20tech') $retcode=AddPrinterConnection('\\w20lan04\w20east-1') $retcode=AddPrinterConnection('\\w20lan04\w20east-3') $retcode=SetDefaultPrinter('\\w20lan04\w20tech') CASE @USERID='w20qcjet' ; ...Joe Thrower USE G: "\\W20LAN01\Thrower" $retcode=AddPrinterConnection('\\w20lan04\w20tech') $retcode=AddPrinterConnection('\\w20lan04\w20east-3') $retcode=SetDefaultPrinter('\\w20lan04\w20tech') CASE @USERID='w20qcjnl' ; ...JoAnn Lord USE G: "\\W20LAN01\Lord" $retcode=AddPrinterConnection('\\w20lan04\w20tech') $retcode=AddPrinterConnection('\\w20lan04\w20east-3') $retcode=SetDefaultPrinter('\\w20lan04\w20tech') CASE @USERID='w20qcjqz' ; ...John Zheng USE G: "\\W20LAN01\Thrower" $retcode=AddPrinterConnection('\\w20lan04\w20tech') $retcode=AddPrinterConnection('\\w20lan04\w20east-3') $retcode=SetDefaultPrinter('\\w20lan04\w20tech') CASE @USERID='w20qcknw' ; ...Kevin Watson USE G: "\\W20LAN01\Watson" $retcode=AddPrinterConnection('\\w20lan04\w20tech') $retcode=SetDefaultPrinter('\\w20lan04\w20tech') CASE @USERID='w20qclmk' ; ...Bud Keeler $retcode=AddPrinterConnection('\\w20lan04\w20tech') $retcode=SetDefaultPrinter('\\w20lan04\w20tech') CASE @USERID='w20qcmyn' ; ...Mary Lou Nowatzki USE G: "\\W20LAN01\Nowatzki" $retcode=AddPrinterConnection('\\w20lan04\w20tech') $retcode=AddPrinterConnection('\\w20lan04\w20east-1') $retcode=AddPrinterConnection('\\w20lan04\w20east-3') $retcode=SetDefaultPrinter('\\w20lan04\w20tech') CASE @USERID='w20qcrys' ; ...Ray Shen USE G: "\\W20LAN01\Shen" $retcode=AddPrinterConnection('\\w20lan04\w20tech') $retcode=AddPrinterConnection('\\w20lan04\w20east-3') $retcode=SetDefaultPrinter('\\w20lan04\w20tech') CASE @USERID='w20emdsp' ; ...Steve Brzostowicz USE G: "\\W20LAN01\Brzostowicz" $retcode=AddPrinterConnection('\\w20lan04\w20tech') $retcode=SetDefaultPrinter('\\w20lan04\w20tech') CASE @USERID='w20training'; ...Training USE G: "\\W20LAN01\USERS" $retcode=AddPrinterConnection('\\w20lan04\w20training') $retcode=SetDefaultPrinter('\\w20lan04\w20training') CASE @USERID='w20trbac' ; ...Barbara Crews USE G: "\\W20LAN01\Crews" $retcode=AddPrinterConnection('\\w20lan04\w20cust') $retcode=SetDefaultPrinter('\\w20lan04\w20cust') CASE @USERID='w20trsnc' ; ...Susan Coggin USE G: "\\W20LAN01\Coggin" $retcode=AddPrinterConnection('\\w20lan04\w20ship') $retcode=SetDefaultPrinter('\\w20lan04\w20ship') CASE @USERID='w20trtyt' ; ...Tammy Thompson USE G: "\\W20LAN01\Thompson" $retcode=AddPrinterConnection('\\w20lan04\w20ship') $retcode=SetDefaultPrinter('\\w20lan04\w20ship') CASE @USERID='w20trwest'; ...West Shipping $retcode=AddPrinterConnection('\\w20lan04\w2ship') $retcode=SetDefaultPrinter('\\w20lan04\w20ship') CASE @USERID='w20treast'; ...East Shipping $retcode=AddPrinterConnection('\\w20lan04\w20east-1') $retcode=SetDefaultPrinter('\\w20lan04\w20east-1') ENDSELECT ; ; ********************************************* ; *** To Install ZAC 2001 ; ********************************************* ; Run "\\w20lan03\sys\siteinv\agent\equipldr.exe /noshow" ; EXIT
|
|
Top
|
|
|
|
Moderator: Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart
|
0 registered
and 2630 anonymous users online.
|
|
|