User ID/Network Logon

lucky · Apr 3rd, 2002, 01:36 AM

Hi All
Is it possible to have a function that runs with Auto_open of a workbook that can return the users ID or Network Logon to a cell in that work book??

Thanks in anticipation.

Colo · Apr 3rd, 2002, 02:15 AM

Hi! Please copy this into a standard module

Sub Auto_Open()
Dim objWSH As Object
Set objWSH = CreateObject("WScript.Network")
Cells(1, 1).Value = "UserDomain " & objWSH.UserDomain
Cells(2, 1).Value = "ComputerName " & objWSH.ComputerName
Cells(3, 1).Value = "UserName " & objWSH.UserName
End Sub

lucky · Apr 3rd, 2002, 02:20 AM

Thanks Colo!!

May the luck be with you......

Lucky

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 3rd, 2002, 01:36 AM	#1
lucky New Member Join Date: Feb 2002 Posts: 18	Hi All Is it possible to have a function that runs with Auto_open of a workbook that can return the users ID or Network Logon to a cell in that work book?? Thanks in anticipation.

Apr 3rd, 2002, 02:15 AM	#2
Colo MrExcel MVP Join Date: Mar 2002 Location: Kobe, Japan Posts: 1,420	Hi! Please copy this into a standard module Sub Auto_Open() Dim objWSH As Object Set objWSH = CreateObject("WScript.Network") Cells(1, 1).Value = "UserDomain " & objWSH.UserDomain Cells(2, 1).Value = "ComputerName " & objWSH.ComputerName Cells(3, 1).Value = "UserName " & objWSH.UserName End Sub

Apr 3rd, 2002, 02:20 AM	#3
lucky New Member Join Date: Feb 2002 Posts: 18	Thanks Colo!! May the luck be with you...... Lucky