Discussion Locked

User Information

0 helpful
7 replies
Closed to new repliesThis discussion is closed. It stays readable, but it takes no new replies.

On a Win 95, 98 or ME machine, how does one tell who is logged on? For example, on an NT machine you can press Ctrl+Alt+Delete and it will tell you who is logged on.

How do you do it for a Win 95/98/Me machine?

Thanks
Kutty

7 replies

by kesamoviche

If you click on the Start button, the Log Off option will always display who is logged in. It will either display "Default" or the current user name.

by Member 35711908

Windows 95 doesn't have a log off option - you have to choose 'Close all programs...' from the shutdown window, and don't get to see who's logged on.

In 95 or 98, run regedit and drill down to HKEY_LOCAL_MACHINE\Network\Logon, it will give you the username logged on at the time.

by chrandrob

If you have Windows Scripting Host installed(it can be downloaded for free at http://msdn.microsoft.com/scripting/scriptlets/serverdown.htm), here is a little (virus free) script that will show you the computer name, the user domain, user name, network drives and network printers in a little popup when you run it. Save it as a text file with a .vbs file extension:

Dim objNet : Set objNet = WScript.CreateObject("WScript.Network")
Dim objDrives : Set objDrives = objNet.EnumNetworkDrives
DimobjPrinters : Set objPrinters = objNet.EnumPrinterConnections
Dim strEchoText
Dim intCounter

strEchoText = "Computer Name: " + objNet.ComputerName + vbCrLf
strEchoText = strEchoText + "User Domain: " + objNet.UserDomain + vbCrLf
strEchoText =strEchoText + "User Name: " + objNet.UserName + vbCrLf + vbCrLf
strEchoText = strEchoText + "Network drive mappings: " + vbCrLf

For intCounter = 0 to objDrives.Count - 1 Step 2
strEchoText = strEchoText + "Drive " & objDrives.Item(i) & " = " &objDrives.Item(i+1) + vbCrLf + vbCrLf
Next

strEchoText = strEchoText + "Network printer mappings: " + vbCrLf

For intCounter = 0 to objPrinters.Count - 1 Step 2
strEchoText = strEchoText + "Port " & objPrinters.Item(i) & " = " & objPrinters.Item(i+1) + vbCrLf + vbCrLf
Next

WScript.Echo strEchoText

This discussion is closed to new replies.