For you method to work it seems to me you must delete userid.txt at the end of each session. Can you guarantee this? Doesn't this clutter up your netlogon share?

Also this has been discussed in a previous post. I tried to search for it but the search engine only gives 2000 results. I believe that it was posted in late 1999.

My idea is the following:

Log the Workstation name of the computer the users logs on to into a textfile on the users homeshare with WRITEPROFILESTRING.

WRITEPROFILESTRING ("Filename", "Network", "LoggedOnTo", @WKSTA)

During logon, read that value with READPROFILESTRING

$LoggedOnTo = READPROFILESTRING ("file name", "Network", "LoggedOnTo")

Do an "NBTSTAT -a $LoggedOnTo" and check the output for the users username.
If that username is inthere, the user is still logged on to that workstation, so do NOT update the file on the usershare and force a logoff.
If the username is NOT found in the output of that NBTSTAT, update the textfile on the usershare and continue logon.

This way, a user can also normally logon if he/she was logged off abnormally.

PLease give me feedback about this!

Regards,

Marc

------------------
M.A.C. Duiker (Marc)
Migration Specialist (MCSE)
Marc.AC.Duiker@ici.com
[img]https://partnering.one.microsoft.com/SecureImages/mcp_c.gif[/img]

175 » Prevent users from logging on more than once. http://www.jsiinc.com/TIP0100/rh0175.htm

For further info see Tip 120 which is an introduction to writing a kixtart logon script.

120 » Solve those logon script problems. http://www.jsiinc.com/TIP0100/rh0120.htm

Here is an alternative solution that uses a freeware utility. I believe that this solution is NT specific. You would have to shellout to execute this script. This might be an alternative to the NT solution that is offered above.

0296 » A better way to prevent a user from logging on more than once. http://www.jsiinc.com/TIP0200/rh0296.htm

This a freeware utility to help with logging off any user who trys to logon twice.

184 » Logout is Freeware and works on WinNT and W95. http://www.jsiinc.com/TIP0100/rh0184.htm

------------------
http://www.sanderwinkel.com

------------------
http://www.sanderwinkel.com

The trick will be pulling the info for entry '03' from your output file and using it. CJ or Bryce - any good ideas?

Bill

------------------
http://www.sanderwinkel.com

:end

------------------
http://www.sanderwinkel.com

code:

---

IF INGROUP("MULTIPLE") GOTO NANTNAME ENDIF
SHELL '%comspec% /c @LDRIVE\tools\ntname\ntname.exe @userid > c:\ntname.txt'
$null = OPEN (4,c:\ntname.txt)
$result=READLINE(4)
$null = CLOSE(4)
DEL "c:\ntname.txt"
IF $result
	$error="Multiple logons not allowed, according to our information you are already logged on to $result"
	$tijd=""
	$actie="U wordt nu automatisch uitgelogd"
	CALL (@LDRIVE + "\errorscript.kix")
ENDIF
:NANTNAME

---

------------------
http://www.sanderwinkel.com

shell "%comspec% /c NBTSTAT -a $LoggedOnTo > h:\nbt.txt"

It refuses to use the var $LoggedOnTo ... my output of nbtstat is always 'host not found'.

To my findings I don't have a special setup .. I'm using:

NT4 with SP6a as clients
NT4 PDC logon server

Johan. www.htsautotechniek.nl

code:

---

:BlockConcurrent
;
;block concurrent logons
;

If (InGroup("2002group") or InGroup("2003group"))
gosub ConcurrentLogoff
else
  If (InGroup("2004group") or InGroup("2005group"))
    gosub ConcurrentLogoff
  else
      ? "you are not a HHS student"
  endif
endif
RETURN

;Rem ConcurrentLogoff is not called by main, rather from the BlockConcurrent subroutine
:ConcurrentLogoff
	shell @ldrive + "\gotcha.bat"	;run ntname and capture the output to a text file in 
				;the user's %temp% dir
	If open( 3, "%temp%\otherpc.txt" ) = 0
	   $y = ReadLine(3)
	   If $y = ""			;they're ok
		? "It appears that this is the only PC you're currently logged on to."
	     else
		$logoff = 1		;log 'em off!
		? "It appears as though you are already logged on to $y"
		? "bummer!"
		gosub ForceLogoffLog
		messagebox ("You appear to be logged on to '$y'. You are not authorized 
		to log on to more than one workstation at a time. You must first log off 
		'$y'.", "Warning! Concurrent Logons Prohibited", 16, 7)
		gosub ForceLogoff
		LogOff(1)
	   EndIf
	   Close (3)
	else
	  If Open( 2 ,"\\server\LogonLogs$\" + "ErrorLog.TXT", 5 )  = 0
	   $x = WriteLine( 2 ,@userid + ", " + @FullName + ", " +  @Comment + ", could not 
		open otherpc.txt locally from " +  @Wksta + ", " + "at " + @time + " " + 
		@date + ", " + $IPAddress + ", " + @address + ", " + @LServer 
		+ ", " + $ConnectionType +  ", " + $Ver  + Chr(13) + Chr(10) )
	   $l = Close(1)
	  endif
	EndIf
RETURN


:ForceLogoffLog
If Open( 1 ,"\\server\LogonLogs$\" + @year + "_" + @MonthNo + "_DuplicateLogon" + 
	".TXT", 5 )  = 0
   $x = WriteLine( 1 ,@userid + ", " + @FullName + ", " +  @Comment + ", tried to log 
	on to " + @Wksta + ", but was already on " + $y + " at " + @time + " " + 
	@date + ", " + $IPAddress + ", " + @address + ", " + @LServer + ", " + 
	$ConnectionType +  ", "  + $Ver  + Chr(13) + Chr(10) ) $l = Close(1)
Endif
RETURN

---

code:

---

@echo off
%0\..\NTNAME.EXE %USERNAME% >%TEMP%\OTHERPC.TXT
exit

---