Kix Ver 4.11
What Network type NT4 or Active Directory? :
Windows 2000 (DC is Active directory and File Server is member server)
What client does this happen on 9X/NT/2000/XP ?
NT/2000/XP only

My Code
Logon.bat
----------------------
echo off
VER | find "NT" > nul
IF not errorlevel 1 GOTO Win_NT

VER | find "2000" > nul
IF not errorlevel 1 GOTO Win_NT

VER | find "XP" > nul
IF not errorlevel 1 GOTO Win_NT

VER | find "Millennium" > nul
IF not errorlevel 1 GOTO Win_9X

VER | find "98" > nul
IF not errorlevel 1 GOTO Win_9X

VER | find "95" > nul
IF not errorlevel 1 GOTO Win_9X

GOTO unknown_os

echo on

:win_NT
@TITLE BRIDGESTONE SALES (THAILAND) CO.,LTD. Logon Script
ECHO HELLO %USERNAME%!
Echo Welcome to %USERDOMAIN%, Inc. NT Domain Environment

%LOGONSERVER%\NETLOGON\kix32.exe %LOGONSERVER%\NETLOGON\RunScript.kix
rem \\BSTL_SVR1\NETLOGON\kix32.exe \\BSTL_SVR1\NETLOGON\RunScript.kix
goto end

:win_9X

echo ON

REM %WINDIR%\PUTINENV.EXE L
\\BSTL_SVR1\NETLOGON\winset.exe computername=%COMPUTERNAME%
\\BSTL_SVR1\NETLOGON\winset.exe username=@USERID
\\BSTL_SVR1\NETLOGON\winset.exe LANGROUP=%LANGROUP%
\\BSTL_SVR1\NETLOGON\winset.exe LOGONSERVER=%LOGONSERVER%

ECHO OFF
REM %WINDIR%\winset computername=%COMPUTERNAME%
REM %WINDIR%\winset username=%USERNAME%
REM %WINDIR%\winset LANGROUP=%LANGROUP%
REM %WINDIR%\winset LOGONSERVER=%LOGONSERVER%

echo on
:: --- DISPLAY THE USER NAME/DOMAIN
ECHO HELLO %USERNAME%!
ECHO Welcome to %LANGROUP%, Windows 9x Domain Environment

REM %LOGONSERVER%\NETLOGON\kix32.exe %LOGONSERVER%\NETLOGON\RunScript.kix
\\BSTL_SVR1\NETLOGON\kix32.exe \\BSTL_SVR1\NETLOGON\RunScript.kix

goto end

:unknown_os
:end
exit
-----------------------------------------


RunScript.kix

------------------------------------------
? @kix
? @dos
? @ldrive
;;USE "*" /delete ;-- commented this out as the MapDrive function takes this into account
;;? "delete persistent mappings: "


IF "%OS%" == "Windows_NT"
? "mapping h: to homeshare: "
MapDrive("h:", "bstl_svr3", "%username%$")

ELSE
? "mapping h: to homeshare: "
MapDrive("h:", "bstl_svr3", "@USERID$")

ENDIF


SELECT

CASE Ingroup ("MK00") = 1
MapDrive("i:", "bstl_svr3", "DocMK11$")
MapDrive("j:", "bstl_svr3", "DocMK12$")
MapDrive("k:", "bstl_svr3", "DocMK13$")
MapDrive("l:", "bstl_svr3", "DocMK21$")
MapDrive("m:", "bstl_svr3", "DocMK32$")
MapDrive("n:", "bstl_svr3", "DocOE11$")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("MK10") = 1
MapDrive("i:", "bstl_svr3", "DocMK11$")
MapDrive("j:", "bstl_svr3", "DocMK12$")
MapDrive("k:", "bstl_svr3", "DocMK13$")
MapDrive("l:", "bstl_svr3", "DocMKPublic$")
MapDrive("m:", "bstl_svr3", "DocMK11$")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSMK1")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSMK2")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSMK3")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSMK6")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("MK11") = 1
MapDrive("i:", "bstl_svr3", "DocMK11$")
MapDrive("j:", "bstl_svr3", "Winsurvey")
MapDrive("l:", "bstl_svr3", "DocMKPublic$")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSMK1")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSMK2")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSMK3")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSMK6")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"


CASE Ingroup ("MK12") = 1
MapDrive("i:", "bstl_svr3", "DocMK12$")
MapDrive("j:", "bstl_svr3", "Winsurvey")
MapDrive("k:", "bstl_svr3", "DocMKPublic$")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSMK1")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSMK2")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSMK3")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSMK6")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("MK13") = 1
MapDrive("i:", "bstl_svr3", "DocMK13$")
MapDrive("j:", "bstl_svr3", "Winsurvey")
MapDrive("k:", "bstl_svr3", "DocRD11$")
MapDrive("l:", "bstl_svr3", "Lindav$")
MapDrive("m:", "bstl_svr3", "DocMKPublic$")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSMK1")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSMK2")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSMK3")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSMK6")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("MK21") = 1
MapDrive("i:", "bstl_svr3", "DocMK21$")
MapDrive("j:", "bstl_svr3", "Winsurvey")
MapDrive("k:", "bstl_svr3", "DocMKPublic$")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSMK1")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSMK2")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSMK3")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSMK6")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("MK32") = 1
MapDrive("i:", "bstl_svr3", "DocMK32$")
MapDrive("j:", "bstl_svr3", "Winsurvey")
MapDrive("k:", "bstl_svr3", "DocMKPublic$")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSMK1")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSMK2")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSMK3")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSMK6")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("S01") = 1
MapDrive("i:", "bstl_svr3", "DocOE11$")
MapDrive("j:", "bstl_svr3", "DocMK21$")

CASE Ingroup ("OE11") = 1
MapDrive("i:", "bstl_svr3", "DocOE11$")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSMK4")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSSL01")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("SL00") = 1
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSSL4")
ADDPRINTERCONNECTION("\\BSTL_SVR1\Deskjet5550")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("SL11") = 1
MapDrive("i:", "bstl_svr3", "DocSL11$")
MapDrive("j:", "bstl_svr3", "Winsurvey")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSSL4")
ADDPRINTERCONNECTION("\\BSTL_SVR1\Deskjet5550")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("SL12") = 1
MapDrive("i:", "bstl_svr3", "DocSL12$")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSSL4")
ADDPRINTERCONNECTION("\\BSTL_SVR1\Deskjet5550")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("SL13") = 1
MapDrive("i:", "bstl_svr3", "DocSL13$")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSSL4")
ADDPRINTERCONNECTION("\\BSTL_SVR1\Deskjet5550")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("SL14") = 1
MapDrive("i:", "bstl_svr3", "DocSL14$")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSSL4")
ADDPRINTERCONNECTION("\\BSTL_SVR1\Deskjet5550")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("SL15") = 1
MapDrive("i:", "bstl_svr3", "DocSL15$")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSSL4")
ADDPRINTERCONNECTION("\\BSTL_SVR1\Deskjet5550")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("SL16") = 1
MapDrive("i:", "bstl_svr3", "DocSL16$")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSSL4")
ADDPRINTERCONNECTION("\\BSTL_SVR1\Deskjet5550")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("SL17") = 1
MapDrive("i:", "bstl_svr3", "DocSL17$")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSSL4")
ADDPRINTERCONNECTION("\\BSTL_SVR1\Deskjet5550")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("SL18") = 1
MapDrive("i:", "bstl_svr3", "DocSL18$")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSSL4")
ADDPRINTERCONNECTION("\\BSTL_SVR1\Deskjet5550")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("SL41") = 1
MapDrive("i:", "bstl_svr3", "DocSL41$")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSSL4")
ADDPRINTERCONNECTION("\\BSTL_SVR1\Deskjet5550")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("XA11") = 1
MapDrive("i:", "bstl_svr3", "DocXA11A$")
MapDrive("j:", "bstl_svr3", "DocXA11B$")
MapDrive("k:", "bstl_svr3", "DocXA11C$")
MapDrive("l:", "bstl_svr3", "DocXA11D$")
MapDrive("M:", "bstl_svr3", "DocXA11$")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSAC2")
MapDrive("n:", "bstl_svr3", "SAP_BSTLAC$")
MapDrive("o:", "bstl_svr3", "SAP$")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("XA11A") = 1
MapDrive("i:", "bstl_svr3", "DocXA11A$")
MapDrive("j:", "bstl_svr3", "DocXA11$")
MapDrive("k:", "bstl_svr3", "SAP_BSTLAC$")
MapDrive("l:", "bstl_svr3", "SAP$")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSAC2")
ADDPRINTERCONNECTION("\\BSTL_SVR1\Deskjet5550")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("XA11B") = 1
MapDrive("i:", "bstl_svr3", "DocXA11B$")
MapDrive("j:", "bstl_svr3", "DocXA11$")
MapDrive("k:", "bstl_svr3", "SAP_BSTLAC$")
MapDrive("l:", "bstl_svr3", "SAP$")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSAC2")
ADDPRINTERCONNECTION("\\BSTL_SVR1\Deskjet5550")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("XA11C") = 1
MapDrive("i:", "bstl_svr3", "DocXA11C$")
MapDrive("j:", "bstl_svr3", "DocXA11$")
MapDrive("k:", "bstl_svr3", "SAP_BSTLAC$")
MapDrive("l:", "bstl_svr3", "SAP$")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSAC2")
ADDPRINTERCONNECTION("\\BSTL_SVR1\Deskjet5550")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("XA11D") = 1
MapDrive("i:", "bstl_svr3", "DocXA11D$")
MapDrive("j:", "bstl_svr3", "DocXA11$")
MapDrive("k:", "bstl_svr3", "SAP_BSTLAC$")
MapDrive("l:", "bstl_svr3", "SAP$")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSAC2")
ADDPRINTERCONNECTION("\\BSTL_SVR1\Deskjet5550")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("XA12") = 1
MapDrive("i:", "bstl_svr3", "DocXA12$")
ADDPRINTERCONNECTION("\\BSTL_SVR1\Deskjet5550")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("EDP") = 1
MapDrive("i:", "bstl_svr3", "DocEDP$")
MapDrive("j:", "bstl_svr3", "Software$")
MapDrive("k:", "bstl_svr3", "DocXA12$")
MapDrive("l:", "bstl_svr3", "SAP$")
MapDrive("m:", "bstl_svr3", "TRASDoc$")
ADDPRINTERCONNECTION("\\BSTL_SVR1\Deskjet5550")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("EDP1") = 1
MapDrive("i:", "bstl_svr3", "DocEDP$")
MapDrive("j:", "bstl_svr3", "dept$")
MapDrive("k:", "bstl_svr3", "users$")
MapDrive("l:", "bstl_svr3", "Software$")
MapDrive("m:", "bstl_svr3", "SAP$")
MapDrive("n:", "bstl_svr3", "TRASDoc$")
ADDPRINTERCONNECTION("\\BSTL_SVR1\Deskjet5550")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("EDPADMIN") = 1
MapDrive("i:", "bstl_svr3", "DocEDP$")
MapDrive("j:", "bstl_svr3", "dept$")
MapDrive("k:", "bstl_svr3", "users$")
MapDrive("l:", "bstl_svr3", "Software$")
MapDrive("m:", "bstl_svr3", "SAP$")
MapDrive("n:", "bstl_svr3", "TRASDoc$")
ADDPRINTERCONNECTION("\\BSTL_SVR1\Deskjet5550")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("RD11") = 1
MapDrive("i:", "bstl_svr3", "DocRD11$")
MapDrive("j:", "bstl_svr3", "Lindav$")
ADDPRINTERCONNECTION("\\BSTL_SVR1\PRTLSSL4")
ADDPRINTERCONNECTION("\\BSTL_SVR1\Deskjet5550")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("TS") = 1
MapDrive("i:", "bstl_svr3", "DocTS$")
SHELL "\\bstl_svr1\ofcscan\autopcc.exe"

CASE Ingroup ("SALESDEPT") = 1
MapDrive("m:", "bstl_svr3", "ShareDoc")

CASE Ingroup ("SAPGROUP") = 1
MapDrive("i:", "bstl_svr3", "SAP$")
MapDrive("j:", "bstl_svr3", "TRASDoc$")

ENDSELECT

REM GET $


FUNCTION MapDrive($drive, $server, $share)
DIM $drive, $server, $share
COLOR c+/n
IF $drive<>"" AND $server<>"" AND $share<>""
$logtext="Connecting $Drive to \\$Server\$Share"
? $logtext
USE $drive /delete /persistent
USE $drive "\\$Server\$Share"
IF @error=0
COLOR g+/n
$x=" - Success"
"$x"
ELSE
COLOR r+/n
$x=" - Failed: Error @error"
"$x"
$errorstate=1
ENDIF
WriteLog ($logtext + $x)
COLOR w+/n
ELSE
WriteLog ("Function 'MapDrive' called with invalid parameters: '$Drive', '$Server', '$Share'")
ENDIF
ENDFUNCTION


FUNCTION WriteLog($text)
DIM $rc, $text, $logfile, $filehandle
$filehandle = 1
$logfile = "%temp%\logon.log"
$rc=Writeline ($filehandle, "@Date @Time - $Text" + Chr(13) + Chr(10))
IF $rc<0
$rc=Close ($filehandle)
$rc=Open ($filehandle, "$LogFile", 5)
SELECT
CASE
$rc=-1
$rc=MessageBox ("Invalid file name ($LogFile) specified for log file.","Logon Script Error",48)
CASE
$rc=0
WriteLog ($text)
CASE
$rc=>0
$rc=MessageBox ("Error($RC) while attempting to open log file ($LogFile).","Logon Script Error",48)
ENDSELECT
ENDIF

ENDFUNCTION

EXIT
---------------------------------------------------------
In User Property/Profile
Logon Script : logon.bat


Please check for me.
Thanks for your help
Pech