| Platform SDK: Active Directory, ADSI, and Directory Services |
The property methods of the IADsWinNTSystemInfo interface get or set the properties described in the following table. For more information, see Interface Property Methods.
| Property | Description |
|---|---|
| UserName
[Visual Basic] [C++] |
Name of the user account under which the WinNTSystemInfo object is created. |
| ComputerName
[Visual Basic] [C++] |
Name of the host computer where the application is running. |
| DomainName
[Visual Basic] [C++] |
Name of the domain to which the user belongs. |
| PDC
[Visual Basic] [C++] |
Name of the primary domain controller to which the host computer belongs. |
The following C++ code snippet retrieves the Windows NTŪ 4.0 system information. For brevity, error checking is omitted.
#include <activeds.h>
#include <stdio.h>
int main()
{
HRESULT hr;
hr = CoInitialize(NULL);
IADsWinNTSystemInfo *pNtSys;
hr = CoCreateInstance(CLSID_WinNTSystemInfo,
NULL,
CLSCTX_INPROC_SERVER,
IID_IADsWinNTSystemInfo,
(void**)&pNTsys);
BSTR bstr;
hr = pNtSys->get_UserName(&bstr);
if (SUCCEEDED(hr)) {
printf("User: %S\n", bstr);
SysFreeString(bstr);
}
hr = pNtSys->get_ComputerName(&bstr);
if (SUCCEEDED(hr)) {
printf("Computer: %S\n", bstr);
SysFreeString(bstr);
}
hr = pNtSys->get_DomainName(&bstr);
if (SUCCEEDED(hr)) {
printf("Domain: %S\n", bstr);
SysFreeString(bstr);
}
hr = pNtSys->get_PDC(&bstr);
if (SUCCEEDED(hr)) {
printf("PDC: %S\n", bstr);
SysFreeString(bstr);
}
if(pNtSys) {
pNtSys->Release();
}
CoUninitialize();
return 0;
}
The following Visual BasicŪ code snippet retrieves the Windows NT 4.0 system information.
Dim ntsys As New WinNTSystemInfo Debug.print "User: " & ntsys.UserName Debug.print "Computer: " & ntsys.ComputerName Debug.print "Domain: " & ntsys.DomainName Debug.print "PDC: " & ntsys.PDC
The following Visual BasicŪ Scripting Edition/Active Server Pages code snippet retrieves the Windows NT 4.0 system information.
<%
Dim ntsys
Set ntsys = CreateObject("WinNTSystemInfo")
Response.Write "User: " & ntsys.UserName
Response.Write "Computer: " & ntsys.ComputerName
Response.Write "Domain: " & ntsys.DomainName
Response.Write "PDC: " & ntsys.PDC
%>