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 %>