Archief - VBA 2003 ADSystemInfo

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
R

Recipe4hate

Legacy Member
Hoi allemaal,

Online kwam ik volgend blokje code tegen:

Code: 
Public Function OSInfo() As String
    Dim ADSI As Object, CN As Object
    Set ADSI = CreateObject("ADSystemInfo")
    Set CN = GetObject("LDAP://" & ADSI.ComputerName)
    OSInfo = CN.OperatingSystem & vbCrLf & CN.OperatingSystemVersion
    Set CN = Nothing
    Set ADSI = Nothing
End Function

Dit systeem werkt perfect, maar ik zou graag uitleg krijgen over de verschillende componenten die hierin gebruikt worden?
Zo ben ik geïnteresseerd in het 'ADSystemInfo' object en de CN die hier gebruik (moet?) wordt.

Alsook, ik heb een referentie gelegd naar de 'Active DS Type' library. Wat houdt deze precies in en wat kan ik hier nog zoal mee doen?

Alvast bedankt!
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan