Fetch domain name with vba in Excel

CatherineH

New Member
Joined
Aug 6, 2013
Messages
17
Goal: Prevent exited employees from using certain company spreadsheets.

I've searched for this question, but most of the questions refer to allowing only a specific list of users access. I have another workbook that only a few people need access to, so I put their ID numbers on a hidden sheet and used a vlookup to check if the ID they typed matched the list and that today() returns a date before the expiry date, it works perfectly. Thank you to the forum posters that generously shared the different pieces of vba script that made it work.

In this case, I can't maintain a list of authorized users as many employees will need to be able to use copies of this workbook. Our Windows logon credentials are our email addresses and network passwords: "Name.Surname@companyname.co.za". As the company name is the domain name I wanted to fetch either in order to confirm that the Excel user is logged onto the domain (therefore a current employee).

I've tried various macros from this and other forums, but they all just give me different versions of the user's name. I've put only the lines of the macros that seem relevant.

Code:
 Range("A1:D5").Value = Application.UserName
gives me: Jennifer Smith

Code:
 UserName = Environ("username")
gives me: JenniferS (Environ$ was the same)

Code:
 ComputerName = Environ("computername")
gives me: LT-JennySmith

Code:
  MsgBox CreateObject("Outlook.Application").GetNamespace("MAPI") _                    .CurrentUser.AddressEntry.GetExchangeUser
gives me: Jennifer Smith

Code:
 Set objInfo = CreateObject("ADSystemInfo")
strLDAP = objInfo.UserName
Set objInfo = Nothing
strFullName = GetUserName(strLDAP)
gives me: Jennifer Smith ('originally coded as VB script by A.Vials, converted to VBA by Sly)

Can someone please assist me with vba that will allow Excel to fetch either the domain name or email address of the currently logged on user. If I can just get this info into a cell I can manage the rest.
 

Some videos you may like

Excel Facts

Excel Wisdom
Using a mouse in Excel is the work equivalent of wearing a lanyard when you first get to college

steve the fish

Well-known Member
Joined
Oct 20, 2009
Messages
8,281
Office Version
  1. 365
Platform
  1. Windows
See if this produces what you would expect:

Code:
myDomain = CreateObject("WScript.Network").UserDomain
 

CatherineH

New Member
Joined
Aug 6, 2013
Messages
17
Thank you Steve,

I got a result that seems to be the abbreviation of our company name two mergers ago. I'm off to IT to find out how many different results I'm likely to get, an OR formula will do the rest. Thanks again.
 

Watch MrExcel Video

Forum statistics

Threads
1,123,240
Messages
5,600,491
Members
414,383
Latest member
konmtu

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top