Comments for Hican.net

Comment on VBScript: Auto Create SCCM Software Metering Rules by Tim Jonson

Tim Jonson — Wed, 01 Feb 2012 08:57:00 +0000

It's quite hard to find a good site. And I think I am lucky enough to have come here. The posts are doing great and full of good insights. I would be glad to keep on coming back here to check for updates! free government cell phones

Comment on Contact by VBScript: Install Oracle Webclient (Kill Predeploy.htm) | Hican.net | IT Blog about all that is interesting.

Tue, 17 Jan 2012 11:27:45 +0000

[...] About Tech Contact [...]

Comment on Contact by PowerShell: Create Active Directory Users Based On Excel Input | Hican.net | IT Blog about all that is interesting.

Fri, 23 Dec 2011 09:42:48 +0000

[...] About Tech Contact [...]

Comment on VBScript: Output Active Directory User Information To Excel by Duplication

Duplication — Mon, 19 Dec 2011 12:52:00 +0000

This active excel format is really appreciated by users which result to be best.

Comment on VBScript: Count Active Directory Users by Hican

Hican — Fri, 09 Dec 2011 23:25:00 +0000

Hi Willem-Jan,

first of all, thanks for posting on the website No problem that you changed the code! You can always change it to your needs and likes, it is here to help you.

Stop by more often!

Comment on VBScript: Count Active Directory Users by Willem-Jan Vroom

Willem-Jan Vroom — Fri, 09 Dec 2011 21:51:00 +0000

Hello Marius,

I have slightly modified your code.

Const ADS_SCOPE = 2

Set objConnection = CreateObject(“ADODB.Connection”)
Set objCommand = CreateObject(“ADODB.Command”)

objConnection.Provider = “ADsDSOObject”
objConnection.Open “Active Directory Provider”
Set objCommand.ActiveConnection = objConnection

‘– Added code –

Set objRootDSE = GetObject(“LDAP://RootDSE”)
strDNSDomain = objRootDSE.Get(“defaultNamingContext”)

‘– End added code –

objCommand.Properties(“Page Size”) = 10000
objCommand.Properties(“Searchscope”) = ADS_SCOPE

‘– Modified line:

objCommand.CommandText = _
“Select Name From ‘LDAP://” & strDNSDomain & “‘ Where objectCategory = ‘Person’”

Set objRecordSet = objCommand.Execute
MsgBox “Total Number Of Users Found : ” & objRecordSet.RecordCount & ” in domain : ” & strDNSDomain