Update:
I have found the following script on this forum.
************************************************************
'on error resume next
'Option explicit
Dim strOutfile, strSDesk, strDisOu, oshell, strUserName, strChange
Dim objRootDSE, DNSDomain, objConnection, objCommand, objRecordset...