Pech
Getting the hang of it
Registered: 2002-10-16
Posts: 61
Loc: Thailand
|
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
|