Check for dial-in users

Check to see if a user has connected via dial up networking. Uses a Windows call so it checks to see if the user is a Windows client first.

'Declaration: Declare Function FindWindow Lib "user32" Alias "FindWindowA" (Byval ClassName As Any, Byval WindowName As Any) As Long

'Function: Function GetDialUpHandle As String

    Const ClassName = "#32770"     Const WindowName = "Connected to Dial MyCompany"     GetDialUpHandle = Cstr(FindWindow(ClassName, WindowName) )

End Function

'Script Code to check if a Windows user is dialed in: 'Check if it's a Windows user first; this won't work on a Mac     Dim ClientPlatform As String     ClientPlatform = Session.Platform

   

If Left$(ClientPlatform, 3) = "Win" Then         Dim Handle As String         Handle = GetDialUpHandle()

       

If Not Handle = "0" Then                 'The user is dialed in, do something...            ...         End If     End If

This was first published in May 2001

Dig deeper on Domino Resources - Part 3

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchDataCenter

SearchExchange

SearchContentManagement

Close