Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
;List all servers in the current Domain AddExtender( 'wwads44i.dll' ) sAdsiPath = 'LDAP://rootDSE' sValue=dsGetProperty (sAdsiPath,'defaultNamingContext') sStarPath=StrCat('LDAP://',sValue) sFilter = `(objectCategory=computer)` MyOuPaths = dsFindPath(sStarPath, sFilter) oucount = ItemCount(myoupaths,@TAB) serverlist = '' For x = 1 To oucount ou = ItemExtract(x,myoupaths,@TAB) objServer = ObjectGet(ou) cn = objServer.CN serverlist = serverlist : @TAB : cn objServer = 0 Next AskItemlist( 'Server list', StrTrim( serverlist ), @TAB, @UNSORTED, @SINGLE ) Exit
Article ID: W17550
Filename: List All Servers in the Current Domain.txt
File Created: 2008:11:25:13:46:48
Last Updated: 2008:11:25:13:46:48