Login | Register   
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: beginner
Mar 3, 2003

GetDomainName - Retrieving the domain name

' Returns the domain name
' Requires a reference to System.Management and the respective Imports
Function GetDomainName() As String
    Dim mos As New ManagementObjectSearcher _
        ("SELECT * FROM Win32_ComputerSystem")
    Dim mo As ManagementObject
    For Each mo In mos.Get()
        Return mo("Domain")
    Next
End Function
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap