#30980 - 2002-10-18 07:34 PM
SLOW
|
Kathy
Getting the hang of it
Registered: 2002-09-09
Posts: 96
Loc: Marshall, TX
|
I thought I already posted this, must not have. Win98 users Users run LMSCRIPT - renamed kix32.exe to LMSCRIPT.EXE - suggested by forum
KIX 4.1 Have Dlls on users's local windows\system
Win2K servers
The values are put in the run registry because we have multiple users on the pcs and some delete icons just for the fun of it. We are a 24hr 7 day a week manufacturer.
Script runs just really slow. Is there a way to speed it up or is it just a performance issue between Win98 and Win2k?
[CODE] if ingroup("TX-Everyone") $OS = @producttype
;use h: /delete use g: /delete ;use h: "\\TX-Server\Marshall\home" use g: "\\TX-Server\Marshall\depts" endif
if $OS = "Windows 98"if $OS = "Windows 98" ; Test for virus upgrade
;Macola
; MACOLA Section
if ingroup("TX-Macola Access") Use M: /delete USE M: "\\Tx-Server\Apps" endif
if ingroup("TX-Mapcon") Use O: /delete USE O: "\\Tx-Server\Apps" $regkey='HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run' $regentry='MapconIcon' $regvalue='\\tx-control\netlogon\short2.bat' $rc=writevalue($regkey,$regentry,$regvalue,'REG_SZ') if @ERROR ? 'Error writing to registry: '+@ERROR+' - '+@SERROR
endif ; "Creating Mapcon icon" sleep 1 ? endif
; LIMS if ingroup("TX-LIMS") $regkey='HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run' $regentry='LIMSIcon' $regvalue='\\tx-control\netlogon\Lims.bat' $rc=writevalue($regkey,$regentry,$regvalue,'REG_SZ') if @ERROR ? 'Error writing to registry: '+@ERROR+' - '+@SERROR endif ; "Creating Lims icon" sleep 1 ? endif
if ingroup("TX-Orders") $regkey='HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run' $regentry='OrdersIcon' $regvalue='\\tx-control\netlogon\orders.bat' $rc=writevalue($regkey,$regentry,$regvalue,'REG_SZ') if @ERROR ? 'Error writing to registry: '+@ERROR+' - '+@SERROR
endif ; "Creating Orders Icon" sleep 1 ? endif
if ingroup("TX-Quality") regkey='HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run' $regentry='QualityIcon' $regvalue='\\tx-control\netlogon\Quality.bat' $rc=writevalue($regkey,$regentry,$regvalue,'REG_SZ') if @ERROR ? 'Error writing to registry: '+@ERROR+' - '+@SERROR
endif ; "Creating Quality icon" sleep 1 ? endif
endif ;OK SECTION ; Code for OK user on laptop to map depts and home if ingroup("OK-Laptops") use h: /delete use g: /delete use h: "\\tx-Data\pryor\home" use g: "\\tx-Data\pryor\depts" endif COOKIE1 exit [CODE]
_________________________
Stupid is forever - Ignorance can be fixed.
|
|
Top
|
|
|
|
#30982 - 2002-10-18 07:45 PM
Re: SLOW
|
Howard Bullock
KiX Supporter
   
Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA
|
I could determine from your posting if the script run slowly on Win9x, W2K, or both.
If you incorporate WriteLog() or WriteLog2() in your code, where does the log file Time/Date stamp show delays? [ 18. October 2002, 19:50: Message edited by: Howard Bullock ]
|
|
Top
|
|
|
|
#30986 - 2002-10-18 09:20 PM
Re: SLOW
|
Kathy
Getting the hang of it
Registered: 2002-09-09
Posts: 96
Loc: Marshall, TX
|
Never used WriteLog how does it work? Syntax?
_________________________
Stupid is forever - Ignorance can be fixed.
|
|
Top
|
|
|
|
#30987 - 2002-10-18 09:25 PM
Re: SLOW
|
Howard Bullock
KiX Supporter
   
Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA
|
Follow the link in my previous post. The code is a UDF in the UDF Library. The header of the UDF contains examples.
Are you familiar with including a UDF in your code? If not, see this link: How to use UDFs
|
|
Top
|
|
|
|
#30988 - 2002-10-18 09:47 PM
Re: SLOW
|
Kathy
Getting the hang of it
Registered: 2002-09-09
Posts: 96
Loc: Marshall, TX
|
Nope - new to all of this. Just trying to keep my head above water. Moving all Netware Data over to Win2K servers and needed new login script. I will read up when I get the chance. This weekend I am moving data and apps.
_________________________
Stupid is forever - Ignorance can be fixed.
|
|
Top
|
|
|
|
#30989 - 2002-10-18 09:50 PM
Re: SLOW
|
Kathy
Getting the hang of it
Registered: 2002-09-09
Posts: 96
Loc: Marshall, TX
|
Why would the mapping G: code work sometimes but not all the time. I have some users that get G: one time and not the next.
_________________________
Stupid is forever - Ignorance can be fixed.
|
|
Top
|
|
|
|
#30992 - 2002-10-18 10:38 PM
Re: SLOW
|
Kathy
Getting the hang of it
Registered: 2002-09-09
Posts: 96
Loc: Marshall, TX
|
Yes on Protocol preferences.
The mapping is just to a shared folder on the win2k server. \\server\marshall(shared)\depts(shared)
_________________________
Stupid is forever - Ignorance can be fixed.
|
|
Top
|
|
|
|
#30994 - 2002-10-18 10:49 PM
Re: SLOW
|
Kathy
Getting the hang of it
Registered: 2002-09-09
Posts: 96
Loc: Marshall, TX
|
I thougt I read somewhere that win98 could not do a root mapping but just to the level of a shared folder.
_________________________
Stupid is forever - Ignorance can be fixed.
|
|
Top
|
|
|
|
#30996 - 2002-10-19 08:27 AM
Re: SLOW
|
Anupam Agarwal
Fresh Scripter
Registered: 2002-09-25
Posts: 17
Loc: Austin, TX
|
The idea of the log file is still a good one. Here is a sample of how:
$Ret = RedirectOutput("filename.txt, 1) "@Time Connecting L: drive to share \\TX-Something..." ?
You can place these text strings before and after pieces of code. See if that helps.
|
|
Top
|
|
|
|
#30997 - 2002-10-19 08:31 AM
Re: SLOW
|
Anupam Agarwal
Fresh Scripter
Registered: 2002-09-25
Posts: 17
Loc: Austin, TX
|
Forgot to mention that in Win98, you can only map \\servername\sharename to drive letter. I see in your code that you are trying to map \\servername\sharename\foldername. This is probably why it is taking a long time because it is timing out. The functionality of mapping folders inside shares to a drive letter directly only exists in Windows 2000 and above.
|
|
Top
|
|
|
|
#30999 - 2002-10-19 08:11 PM
Re: SLOW
|
Kathy
Getting the hang of it
Registered: 2002-09-09
Posts: 96
Loc: Marshall, TX
|
It is \\servername\sharename\sharename. Guess that won't work and EXCUSE me if I am new to this and I am in a HUNK of stress right now. A few of you could be a little more understanding. Feels like a chat room in here at times. Most of you are really nice and I do appreciate all of the help you have given me. There are two of us moving 18 servers and oh well forget it.
_________________________
Stupid is forever - Ignorance can be fixed.
|
|
Top
|
|
|
|
Moderator: Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart
|
0 registered
and 491 anonymous users online.
|
|
|