Database Search

match allmatch any Look in all areasLook in current areas Check all datesPrevious dayPrevious 3 daysPrevious weekPrevious fortnightPrevious monthPrevious 2 monthsPrevious 3 monthsPrevious half-yearPrevious year

TechHome

	CDO
	Samples from Users

• 1129 OleInitiate Initiate Failed Using an LDAP Path
• Add Domain User to Local Group
• ADSI COM Example - Check User Logons
• ADSI COM Example - Delete a Computer
• ADSI COM Example - Delete a User
• ADSI COM Example - Get User Properties
• ADSI COM Example - List Connected Sessions
• ADSI COM Example - Upload a Photo
• ADSI Create Groups and Users Example
• ADSystemInfo Interface
• CDO Exchange 2000 Requirements
• CDO Collections and Global Address Book
• CDO Collections and Personal Address Book
• CDO Exchange Mailbox size
• CDO IMailBoxStore Interface
• Converting Active Directory Thumbnailphotos to File
• Create an AD User and an Exchange 2k Mailbox
• Create Exchange Distribution List Using CDO
• Create Mailbox - Exchange 2000 - CDO - ADSI
• Get a user certificate
• List Groups a User Belongs To
• List of AD Domains
• List User Paths on Default Domain
• Search Exchange-Outlook Infostores with CDO

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

ADSI COM Example - List Connected Sessions

 Keywords:  ADSI COM Enumerate List Connected User Sessions 

---

Question:

I was wondering if Winbatch has a native function that would allow me to query the ammount of users accessing a shared drive. I making a load balncing script and this is a key component. Currently I am running the following command from within the DOS shell: net session | find /C "\\"

It gives me what I need, but I would prefer a native Winbatch function. Is this possible?

Answer:

Use ADSI COM to enumerate the connected users and how to define the computer from which they are connecting. Reference: http://msdn.microsoft.com/en-us/library/aa746331(VS.85).aspx

;***************************************************************************
;**
;**        Use ADSI COM to enumerate the connected users and
;**        how to define the computer from which they are connecting.
;**
;***************************************************************************

; Replace DOMAIN & SERVER with the appropriate domain and server names
Domain = "www"
SERVER = "serv909"

adsFSOps = ObjectGet("WinNT://":DOMAIN:"/":SERVER:"/lanmanserver")

; Enumerate sessions
adsSessions = adsFSOps.Sessions
ForEach adsSession In adsSessions
  Pause( "Sessions", "User: " : adsSession.User : @LF :"Computer: " : adsSession.Computer )
Next

; Clean up
adsFSOps = 0
Exit

---

Article ID:   W18048

Filename:   ADSI COM Example - List Connected Sessions.txt

File Created: 2009:10:08:09:52:50

Last Updated: 2009:10:08:09:52:50