Site Name for the Local Computer

[avaz]

In

http://www.microsoft.com/technet/treeview/default.asp?

url=/technet/scriptcenter/network/scrnet18.asp
microsoft says that the script will run in a NT4 with
Active Directory Clients Extensions installed.
I already installed the client in several NT4 with sp6a
and I.E. is greater then 4.01 and I still have the same
error after the instalation:
"ActiveX component can't create object 'ADSystemInfo'
Code: 800A01AD"

 

[avaz]

After this message I realized that some scripts didn't run in NT4 even with the latest AD client ext. installed. So, I used another script based on the operating system:

If WindowsID = "4.0" then
Set objRootDSE = GetObject("LDAP://RootDSE&quot
strServer = objRootDSE.Get("ServerName&quot
SITE = Mid(strServer, InStr(strServer, "CN=Servers,&quot + 14)
SITE = Mid(SITE, 1, InStr(SITE, "CN=Sites,&quot - 2)
end if

If the OS is "4.0" I use this script. If not I use ADSI.