#19402 - 2002-04-03 04:01 PM
Please Help to debug my script
|
Wadoki
Fresh Scripter
Registered: 2002-03-15
Posts: 11
Loc: Atlanta Georgia USA
|
Below is the script I am using. I am very new to scripting so i'm sure there are much better ways then this, but I have a problem. The script should:
1. Toss up a box with some info (works OK) 2. Run an inventory program (works OK) 3. Adds user info to MS Office (works OK) 4. Checks and copies kixtart files to the local PC (works OK) 5. Removes Network drives (works OK) 6. Maps a G: Drive for all users (works OK) 7. Does individual customization. It should install a printer or two and Map a personal folder. A F: Drive. The printers are going in OK, but the drive mapping for the individuls does not work....What am I doing wrong.
Plus sometimes the info window does not go away or alow you to close it. I have to use the task manager to do it.
code:
; 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
SLEEP 2 ; ; ********************************************* ; *** To Install ZAC 2001 ; ********************************************* ; Run "\\w20lan03\sys\siteinv\agent\equipldr.exe /noshow" ; ; ; * Update MS Office 8.0 or 9.0's Common UserInfo [Begin] * ; The MS Word UserInfo is stored in the registry as Unicode. ; This routine basically interleaves the strings with 00's ; simulating the Unicode equivalent of US-English. ; ** Do not use this routine on localized OS versions other than US-English. ** ; The User's Full Name will be extracted from UMD. ; The User's (3) Initials will be extracted from UMD's Description Field, ; provided they are preceded with a pound symbol somewhere in the Desccription ; field. Example of Description Field in UMD: [Network Administrator #ABC ] ; The User's Company needs to be supplied on the next line. $Company='Winpak Films Inc.' if existkey('$HKCUSM\Office')=0 $x=1 $RegExp='' while $X<len(''+$Company)+1 $RegExp=$RegExp+dectohex(asc(substr($Company,$x,1)))+'00' $x=$x+1 loop $RegExp=$RegExp+'0000' $RegKey='$HKCUSM\Office\9.0\Common\UserInfo' ; Office 2000 if existkey('$RegKey')=0 $result=writevalue('$RegKey','Company','$RegExp','REG_BINARY') endif $RegKey='$HKCUSM\Office\8.0\Common\UserInfo' ; Office 97 if existkey('$RegKey')=0 $result=writevalue('$RegKey','Company','$RegExp','REG_BINARY') endif $x=1 $RegExp='' while $X<len(''+$FullName)+1 $RegExp=$RegExp+dectohex(asc(substr($FullName,$x,1)))+'00' $x=$x+1 loop $RegExp=$RegExp+'0000' $RegKey='$HKCUSM\Office\9.0\Common\UserInfo' ; Office 2000 if existkey('$RegKey')=0 $result=writevalue('$RegKey','UserName','$RegExp','REG_BINARY') endif $RegKey='$HKCUSM\Office\8.0\Common\UserInfo' ; Office 97 if existkey('$RegKey')=0 $result=writevalue('$RegKey','UserName','$RegExp','REG_BINARY') endif if $Initials $x=1 $RegExp='' while $X<len(''+$Initials)+1 $RegExp=$RegExp+dectohex(asc(substr($Initials,$x,1)))+'00' $x=$x+1 loop $RegExp=$RegExp+'0000' $RegKey='$HKCUSM\Office\9.0\Common\UserInfo' ; Office 2000 if existkey('$RegKey')=0 $result=writevalue('$RegKey','UserInitials','$RegExp','REG_BINARY') endif $RegKey='$HKCUSM\Office\8.0\Common\UserInfo' ; Office 97 if existkey('$RegKey')=0 $result=writevalue('$RegKey','UserInitials','$RegExp','REG_BINARY') endif endif endif ; ; * Update MS Office 8.0 or 9.0's Common UserInfo [End] * ; ; ********************************************* ; *** Check for KixTart ; ********************************************* ; If @INWIN=1 If NOT Exist ("c:\winNT\kix32.exe") Copy @lserver+"\netlogon\kix32.exe" "c:\winNT" EndIf If NOT Exist ("c:\winNT\kxrpc.exe") Copy @lserver+"\netlogon\kxrpc.exe" "c:\winNT" EndIf If NOT Exist ("c:\winNT\system32\kx16.dll") Copy @lserver+"\netlogon\kx16.dll" "c:\windows\system32" EndIf If NOT Exist ("c:\winNT\system32\kx32.dll") Copy @lserver+"\netlogon\kx32.dll" "c:\windows\system32" EndIf If NOT Exist ("c:\winNT\system32\kx95.dll") Copy @lserver+"\netlogon\kx95.dll" "c:\windows\system32" EndIf EndIf ; If @INWIN=2 If NOT Exist ("c:\windows\kix32.exe") Copy @lserver+"\netlogon\kix32.exe" "c:\windows\kix32.exe"EndIf If NOT Exist ("c:\windows\kxrpc.exe") Copy @lserver+"\netlogon\kxrpc.exe" "c:\windows" EndIf If NOT Exist ("c:\windows\system\kx16.dll") Copy @lserver+"\netlogon\kx16.dll" "c:\windows\system" EndIf If NOT Exist ("c:\windows\system\kx32.dll") Copy @lserver+"\netlogon\kx32.dll" "c:\windows\system" EndIf If NOT Exist ("c:\windows\system\kx95.dll") Copy @lserver+"\netlogon\kx95.dll" "c:\windows\system" EndIf EndIf ; ; ********************************************* ; *** Delete network-drives ; ********************************************* ; ;Use * /Delete /Persistent ; ; ********************************************* ; *** Begin Group Drive Mapping ; *********************************************
USE F: "\\w20lan01\Groups"
; ********************************************* ; *** Begin User Customization ; *********************************************
IF %USERNAME% = "w20acdnt" ; ...Don Thompson USE G: "\\W20LAN01\Don" ADDPRINTERCONNECTION ("\\w20lan04\w20acct") SetDefaultPrinter ("\\w20lan04\w20acct") =0 ENDIF ; IF %USERNAME% = "w20acggm" ; ...Greg Morgan USE G: "\\W20LAN01\Morgan" ADDPRINTERCONNECTION ("\\w20lan04\w20acct") SetDefaultPrinter ("\\w20lan04\w20acct") =0 ENDIF ; IF %USERNAME% = "w20aclic" ; ...Lori Chilton USE G: "\\W20LAN01\Chilton" ADDPRINTERCONNECTION ("\\w20lan04\w20pay") ADDPRINTERCONNECTION ("\\w20lan04\w20acct") SetDefaultPrinter ("\\w20lan04\w20pay") =0 ENDIF ; IF %USERNAME% = "w20acpah" ; ...Patricia Hurst USE G: "\\W20LAN01\Hurst" ADDPRINTERCONNECTION ("\\w20lan04\w20acct") SetDefaultPrinter ("\\w20lan04\w20acct") =0 ENDIF ; IF %USERNAME% = "w20acpkm" ; ...Patrick McGlade USE G: "\\W20LAN01\McGlade" ADDPRINTERCONNECTION ("\\w20lan04\w20acct") SetDefaultPrinter ("\\w20lan04\w20acct") =0 ENDIF ; IF %USERNAME% = "w20acsne" ; ...Sharon Eller USE G: "\\W20LAN01\Eller" ADDPRINTERCONNECTION ("\\w20lan04\w20acct") SetDefaultPrinter ("\\w20lan04\w20acct") =0 ENDIF ; IF %USERNAME% = "w20adayt" ; ...Amy Tollison USE G: "\\W20LAN01\Tollison" ADDPRINTERCONNECTION ("\\w20lan04\w20sales") ADDPRINTERCONNECTION ("\\w20lan04\w20acct") SetDefaultPrinter ("\\w20lan04\w20sales") =0 ENDIF ; IF %USERNAME% = "w20addjm" ; ...David Mosgrove USE G: "\\W20LAN01\Mosgrove" ADDPRINTERCONNECTION ("\\w20lan04\w20east-1") ADDPRINTERCONNECTION ("\\w20lan04\w20sales") SetDefaultPrinter ("\\w20lan04\w20east-1") =0 ENDIF ; IF %USERNAME% = "w20adeep" ; ...Emilie Pelfrene USE G: "\\W20LAN01\Pelfrene" ADDPRINTERCONNECTION ("\\w20lan04\w20sales") ADDPRINTERCONNECTION ("\\w20lan04\w20acct") SetDefaultPrinter ("\\w20lan04\w20sales") =0 ENDIF ; IF %USERNAME% = "w20adkmb" ; ...Kevin Byers USE G: "\\W20LAN01\Byers" ADDPRINTERCONNECTION ("\\w20lan04\w20sales") ADDPRINTERCONNECTION ("\\w20lan04\w20acct") SetDefaultPrinter ("\\w20lan04\w20sales") =0 ENDIF ; IF %USERNAME% = "w20csans" ; ...Ann Stooksbury USE G: "\\W20LAN01\Users" ADDPRINTERCONNECTION ("\\w20lan04\w20cust") SetDefaultPrinter ("\\w20lan04\w20cust") =0 ENDIF ; IF %USERNAME% = "w20emdsp" ; ...Glenda Scruggs USE G: "\\W20LAN01\Scruggs" ADDPRINTERCONNECTION ("\\w20lan04\w20west-1") SetDefaultPrinter ("\\w20lan04\w20west-1") =0 ENDIF ; IF %USERNAME% = "w20csilc" ; ...Isobel Charpentier USE G: "\\W20LAN01\Charpentier" ADDPRINTERCONNECTION ("\\w20lan04\w20cust") SetDefaultPrinter ("\\w20lan04\w20cust") =0 ENDIF ; IF %USERNAME% = "w20csjns" ; ...John Symank USE G: "\\W20LAN01\Symank" ADDPRINTERCONNECTION ("\\w20lan04\w20cust") SetDefaultPrinter ("\\w20lan04\w20cust") =0 ENDIF ; IF %USERNAME% = "w20cskyo" ; ...Kim O'Neal USE G: "\\W20LAN01\O'Neal" ADDPRINTERCONNECTION ("\\w20lan04\w20cust") SetDefaultPrinter ("\\w20lan04\w20cust") =0 ENDIF ; IF %USERNAME% = "w20csrar" ; ...Rhonda Rose USE G: "\\W20LAN01\Rose" ADDPRINTERCONNECTION ("\\w20lan04\w20cust") SetDefaultPrinter ("\\w20lan04\w20cust") =0 ENDIF ; IF %USERNAME% = "w20cssah" ; ...Shea Hatchett USE G: "\\W20LAN01\Hatchett" ADDPRINTERCONNECTION ("\\w20lan04\w20cust") SetDefaultPrinter ("\\w20lan04\w20cust") =0 ENDIF ; IF %USERNAME% = "w20cssnc" ; ...Stan Cox USE G: "\\W20LAN01\Cox" ADDPRINTERCONNECTION ("\\w20lan04\w20west-1") ADDPRINTERCONNECTION ("\\w20lan04\w20sales") SetDefaultPrinter ("\\w20lan04\w20west-1") =0 ENDIF ; IF %USERNAME% = "w20cstit" ; ...Terri Tubens USE G: "\\W20LAN01\Tubens" ADDPRINTERCONNECTION ("\\w20lan04\w20cust") SetDefaultPrinter ("\\w20lan04\w20cust") =0 ENDIF ; IF %USERNAME% = "w20emdsp" ; ...Dennis Pontious USE G: "\\W20LAN01\Users" USE E: "\\W20LAN03\MP2ACCESS" ADDPRINTERCONNECTION ("\\w20lan04\w20maint-1") SetDefaultPrinter ("\\w20lan04\w20maint-1") =0 ENDIF ; IF %USERNAME% = "w20emmms" ; ...Marcus Stevens USE G: "\\W20LAN01\Users" USE E: "\\W20LAN03\MP2ACCESS" ADDPRINTERCONNECTION ("\\w20lan04\w20maint-1") SetDefaultPrinter ("\\w20lan04\w20maint-1") =0 ENDIF ; IF %USERNAME% = "w20emtdl" ; ...Todd Lupo USE G: "\\W20LAN01\Lupo" USE E: "\\W20LAN03\MP2ACCESS" ADDPRINTERCONNECTION ("\\w20lan04\w20maint-1") SetDefaultPrinter ("\\w20lan04\w20maint-1") =0 ENDIF ; IF %USERNAME% = "w20hrjhc" ; ...Judith Carr USE G: "\\W20LAN01\Carr" ADDPRINTERCONNECTION ("\\w20lan04\w20hr") ADDPRINTERCONNECTION ("\\w20lan04\w20sales") SetDefaultPrinter ("\\w20lan04\w20hr") =0 ENDIF ; IF %USERNAME% = "w20hrlmr" ; ...Lisa Redmon USE G: "\\W20LAN01\Redmon" ADDPRINTERCONNECTION ("\\w20lan04\w20hr") ADDPRINTERCONNECTION ("\\w20lan04\w20sales") SetDefaultPrinter ("\\w20lan04\w20hr") =0 ENDIF ; IF %USERNAME% = "w20hrpeb" ; ...Paulette Brown USE G: "\\W20LAN01\Brown" ADDPRINTERCONNECTION ("\\w20lan04\w20hr") ADDPRINTERCONNECTION ("\\w20lan04\w20sales") SetDefaultPrinter ("\\w20lan04\w20hr") =0 ENDIF ; IF %USERNAME% = "w20itstd" ; ...Scott Dacus USE G: "\\W20LAN01\Dacus" ADDPRINTERCONNECTION ("\\w20lan04\w20acct") ADDPRINTERCONNECTION ("\\w20lan04\w20sales") SetDefaultPrinter ("\\w20lan04\w20acct") =0 ENDIF ; IF %USERNAME% = "w20maint" ; ...Maintenance USE G: "\\W20LAN01\USERS USE E: "\\W20LAN03\MP2ACCESS" ADDPRINTERCONNECTION ("\\w20lan04\w20maint-1") SetDefaultPrinter ("\\w20lan04\w20maint-1") =0 ENDIF ; IF %USERNAME% = "w20mkdds" ; ...David Soper USE G: "\\W20LAN01\Soper" ADDPRINTERCONNECTION ("\\w20lan04\w20cust") ADDPRINTERCONNECTION ("\\w20lan04\w20sales") SetDefaultPrinter ("\\w20lan04\w20cust") =0 ENDIF ; IF %USERNAME% = "w20mkhfc" ; ...Herman Cameron ADDPRINTERCONNECTION ("\\w20lan04\w20cust") SetDefaultPrinter ("\\w20lan04\w20cust") =0 ENDIF ; IF %USERNAME% = "w20mkpjl" ; ...Paul Loftis ADDPRINTERCONNECTION ("\\w20lan04\w20cust") SetDefaultPrinter ("\\w20lan04\w20cust") =0 ENDIF ; IF %USERNAME% = "w20mksgk" ; ...Susie Kerce ADDPRINTERCONNECTION ("\\w20lan04\w20cust") SetDefaultPrinter ("\\w20lan04\w20cust") =0 ENDIF ; IF %USERNAME% = "w20mktaa" ; ...Tricia Adams ADDPRINTERCONNECTION ("\\w20lan04\w20cust") SetDefaultPrinter ("\\w20lan04\w20cust") =0 ENDIF ; IF %USERNAME% = "w20mktac" ; ...Tom Coleman ADDPRINTERCONNECTION ("\\w20lan04\w20cust") SetDefaultPrinter ("\\w20lan04\w20cust") =0 ENDIF ; IF %USERNAME% = "w20mktmb" ; ...Tim Bentley ADDPRINTERCONNECTION ("\\w20lan04\w20cust") SetDefaultPrinter ("\\w20lan04\w20cust") =0 ENDIF ; IF %USERNAME% = "w20mslyr" ; ...Larry Robertson USE G: "\\W20LAN01\Robertson" ADDPRINTERCONNECTION ("\\w20lan04\w20east-1") ADDPRINTERCONNECTION ("\\w20lan04\w20east-3") SetDefaultPrinter ("\\w20lan04\w20east-1") =0 ENDIF ; IF %USERNAME% = "w20pacfb" ; ...Cliff Bowles USE G: "\\W20LAN01\Bowles" ADDPRINTERCONNECTION ("\\w20lan04\w20west-2") SetDefaultPrinter ("\\w20lan04\w20west-2") =0 ENDIF ; IF %USERNAME% = "w20padeh" ; ...Debbie Haynes USE G: "\\W20LAN01\Haynes" ADDPRINTERCONNECTION ("\\w20lan04\w20east-1") ADDPRINTERCONNECTION ("\\w20lan04\w20east-2") SetDefaultPrinter ("\\w20lan04\w20east-1") =0 ENDIF ; IF %USERNAME% = "w20palab" ; ...LeAnne Bright USE G: "\\W20LAN01\Bright" ADDPRINTERCONNECTION ("\\w20lan04\w20west-2") ADDPRINTERCONNECTION ("\\w20lan04\w20east-1") SetDefaultPrinter ("\\w20lan04\w20west-2") =0 ENDIF ; IF %USERNAME% = "w20paprj" ; ...Peter Jeziorski USE G: "\\W20LAN01\Jeziorski" ADDPRINTERCONNECTION ("\\w20lan04\w20tech") ADDPRINTERCONNECTION ("\\w20lan04\w20east-1") SetDefaultPrinter ("\\w20lan04\w20tech") =0 ENDIF ; IF %USERNAME% = "w20pavns" ; ...Vern Schmitz USE G: "\\W20LAN01\Schmitz" ADDPRINTERCONNECTION ("\\w20lan04\w20west-1") SetDefaultPrinter ("\\w20lan04\w20west-1") =0 ENDIF ; IF %USERNAME% = "w20pmanp" ; ...Aaron Pike USE G: "\\W20LAN01\USERS" ADDPRINTERCONNECTION ("\\w20lan04\w20maint-1") SetDefaultPrinter ("\\w20lan04\w20maint-1") =0 ENDIF ; IF %USERNAME% = "w20pmdet" ; ...Doyle Thigpen USE G: "\\W20LAN01\USERS" ADDPRINTERCONNECTION ("\\w20lan04\w20maint-1") SetDefaultPrinter ("\\w20lan04\w20maint-1") =0 ENDIF ; IF %USERNAME% = "w20pmdla" ; ...Daryl Adams USE G: "\\W20LAN01\Daryl" ADDPRINTERCONNECTION ("\\w20lan04\w20east-2") SetDefaultPrinter ("\\w20lan04\w20east-2") =0 ENDIF ; IF %USERNAME% = "w20pmjec" ; ...Jesse Childree USE G: "\\W20LAN01\USERS" ADDPRINTERCONNECTION ("\\w20lan04\w20maint-1") SetDefaultPrinter ("\\w20lan04\w20maint-1") =0 ENDIF ; IF %USERNAME% = "w20pmjed" ; ...Jose Della Mora USE G: "\\W20LAN01\USERS" ADDPRINTERCONNECTION ("\\w20lan04\w20east-2") SetDefaultPrinter ("\\w20lan04\w20east-2") =0 ENDIF ; IF %USERNAME% = "w20pmjns" ; ...Jonathan Satterfield USE G: "\\W20LAN01\USERS" ADDPRINTERCONNECTION ("\\w20lan04\w20maint-1") SetDefaultPrinter ("\\w20lan04\w20maint-1") =0 ENDIF ; IF %USERNAME% = "w20pmmlr" ; ...Mike Reynolds USE G: "\\W20LAN01\USERS" ADDPRINTERCONNECTION ("\\w20lan04\w20maint-1") SetDefaultPrinter ("\\w20lan04\w20maint-1") =0 ENDIF ; IF %USERNAME% = "w20pmryg" ; ...Rocky Gordy USE G: "\\W20LAN01\USERS" ADDPRINTERCONNECTION ("\\w20lan04\w20maint-1") SetDefaultPrinter ("\\w20lan04\w20maint-1") =0 ENDIF ; IF %USERNAME% = "w20pmsea" ; ...Shane Adams USE G: "\\W20LAN01\USERS" ADDPRINTERCONNECTION ("\\w20lan04\w20maint-1") SetDefaultPrinter ("\\w20lan04\w20maint-1") =0 ENDIF ; IF %USERNAME% = "w20prod" ; ...Production ADDPRINTERCONNECTION ("\\w20lan04\w20west-2") SetDefaultPrinter ("\\w20lan04\w20west-2") =0 ENDIF ; IF %USERNAME% = "w20wprod" ; ...West Production ADDPRINTERCONNECTION ("\\w20lan04\w20west-2") SetDefaultPrinter ("\\w20lan04\w20west-2") =0 ENDIF ; IF %USERNAME% = "w20eprod" ; ...East Production ADDPRINTERCONNECTION ("\\w20lan04\w20east-2") SetDefaultPrinter ("\\w20lan04\w20east-2") =0 ENDIF ; IF %USERNAME% = "w20pubrm" ; ...Billy Mitchem USE G: "\\W20LAN01\Mitchem" ADDPRINTERCONNECTION ("\\w20lan04\w20east-1") SetDefaultPrinter ("\\w20lan04\w20east-1") =0 ENDIF ; IF %USERNAME% = "w20puckh" ; ...Chuck Hodges USE G: "\\W20LAN01\Hodges" ADDPRINTERCONNECTION ("\\w20lan04\w20maint-2") SetDefaultPrinter ("\\w20lan04\w20maint-2") =0 ENDIF ; IF %USERNAME% = "w20pukml" ; ...Kym Livingston USE G: "\\W20LAN01\Livingston" ADDPRINTERCONNECTION ("\\w20lan04\w20east-1") ADDPRINTERCONNECTION ("\\w20lan04\w20east-3") SetDefaultPrinter ("\\w20lan04\w20east-1") =0 ENDIF ; IF %USERNAME% = "w20qcedh" ; ...Ed Hindy USE G: "\\W20LAN01\Hindy" ADDPRINTERCONNECTION ("\\w20lan04\w20tech") ADDPRINTERCONNECTION ("\\w20lan04\w20east-1") ADDPRINTERCONNECTION ("\\w20lan04\w20east-3") SetDefaultPrinter ("\\w20lan04\w20tech") =0 ENDIF ; IF %USERNAME% = "w20qcjet" ; ...Joe Thrower USE G: "\\W20LAN01\Thrower" ADDPRINTERCONNECTION ("\\w20lan04\w20tech") SetDefaultPrinter ("\\w20lan04\w20tech") =0 ENDIF ; IF %USERNAME% = "w20qcjnl" ; ...JoAnn Lord USE G: "\\W20LAN01\Lord" ADDPRINTERCONNECTION ("\\w20lan04\w20tech") SetDefaultPrinter ("\\w20lan04\w20tech") =0 ENDIF ; IF %USERNAME% = "w20qcjqz" ; ...John Zheng USE G: "\\W20LAN01\Thrower" ADDPRINTERCONNECTION ("\\w20lan04\w20tech") SetDefaultPrinter ("\\w20lan04\w20tech") =0 ENDIF ; IF %USERNAME% = "w20qcknw" ; ...Kevin Watson USE G: "\\W20LAN01\Watson" ADDPRINTERCONNECTION ("\\w20lan04\w20tech") SetDefaultPrinter ("\\w20lan04\w20tech") =0 ENDIF ; IF %USERNAME% = "w20qclmk" ; ...Bud Keeler ADDPRINTERCONNECTION ("\\w20lan04\w20tech") SetDefaultPrinter ("\\w20lan04\w20tech") =0 ENDIF ; IF %USERNAME% = "w20qcmyn" ; ...Mary Lou Nowatzki USE G: "\\W20LAN01\Nowatzki" ADDPRINTERCONNECTION ("\\w20lan04\w20tech") ADDPRINTERCONNECTION ("\\w20lan04\w20east-1") SetDefaultPrinter ("\\w20lan04\w20tech") =0 ENDIF ; IF %USERNAME% = "w20qcrys" ; ...Ray Shen USE G: "\\W20LAN01\Shen" ADDPRINTERCONNECTION ("\\w20lan04\w20tech") SetDefaultPrinter ("\\w20lan04\w20tech") =0 ENDIF ; IF %USERNAME% = "w20emdsp" ; ...Steve Brzostowicz USE G: "\\W20LAN01\Brzostowicz" ADDPRINTERCONNECTION ("\\w20lan04\w20tech") SetDefaultPrinter ("\\w20lan04\w20tech") =0 ENDIF ; IF %USERNAME% = "w20training" ; ...Training USE G: "\\W20LAN01\USERS" ADDPRINTERCONNECTION ("\\w20lan04\w20training") SetDefaultPrinter ("\\w20lan04\w20training") =0 ENDIF ; IF %USERNAME% = "w20trbac" ; ...Barbara Crews USE G: "\\W20LAN01\Crews" ADDPRINTERCONNECTION ("\\w20lan04\w20cust") SetDefaultPrinter ("\\w20lan04\w20cust") =0 ENDIF ; IF %USERNAME% = "w20trsnc" ; ...Susan Coggin USE G: "\\W20LAN01\Coggin" ADDPRINTERCONNECTION ("\\w20lan04\w20ship") SetDefaultPrinter ("\\w20lan04\w20ship") =0 ENDIF ; IF %USERNAME% = "w20trtyt" ; ...Tammy Thompson USE G: "\\W20LAN01\Thompson" ADDPRINTERCONNECTION ("\\w20lan04\w20ship") SetDefaultPrinter ("\\w20lan04\w20ship") =0 ENDIF ; IF %USERNAME% = "w20trwest" ; ...West Shipping USE G: "\\W20LAN01\USERS" ADDPRINTERCONNECTION ("\\w20lan04\w20maint-1") SetDefaultPrinter ("\\w20lan04\w20ship") =0 ENDIF ; IF %USERNAME% = "w20treast" ; ...East Shipping USE G: "\\W20LAN01\USERS" ADDPRINTERCONNECTION ("\\w20lan04\w20east-1") SetDefaultPrinter ("\\w20lan04\w20east-1") =0 ENDIF ; EXIT
|
|
Top
|
|
|
|
Moderator: Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart
|
0 registered
and 2630 anonymous users online.
|
|
|