Sergey's blog

Birthday Query in VFP

It's a common request to get a list of people whose birthday (or an anniversary date) falls into specified date range w/o regard to the year.

Birthday Query in MS SQL Server

It's a common request to get a list of people whose birthday (or an anniversary date) falls in the specified date range w/o regard to the year.

End-user account info from Active Directory for Windows network login

Relevant links:


loAdUser = ADUserInfo()
? "cn:",
? "department:", loAdUser.department

Ordinal Numbers

Ordinal numbers refer to a position in a series and usually are presented as a number and one of the suffixes -th, -st, -nd and -rd.

Document Properties in Microsoft Office Word and Excel

Document properties, both built-in and custom, are a Microsoft Office-wide feature. The Word 2003 and Microsoft Office Excel expose document properties and provide the same way to work with them. These properties provide a powerful way to add and track specific information for a document.

Who has files open on the network

The WhoHasFileOpen utility displays the list of users who have specific file(s) open on network. Works on Windows NT Platform (Windows NT 4.0, Windows 2000, etc). This code detects only the files opened using a net shared path. It does not return the files opened by a user on the local computer using a local path.

Position Shortcut menu over Toolbar

The code below shows how to position a shortcut menu over a toolbar buttons using GetCursorPos function and ScreenToClient function. The idea was provided by Andrey Davidoff on UT in the message #913121.

Enumerating Environment variables

One of the way to enumerate the Environment Variables is by accessing _environ global variable. The GetEnvironmentStrings function provides another way by returning a pointer to the environment block of the calling process. It can also be done using WMI Win32_Environment Class.

Check for active Internet connection

The InternetCheckConnection function can be used to check for an active connection to the internet. It requires an URL to a fast and reliable web site as the first parameter.


DECLARE Long InternetCheckConnection IN Wininet.dll String Url, Long dwFlags, Long Reserved
* Fast and reliable web site
lcUrl = ""
IF InternetCheckConnection(lcUrl, FLAG_ICC_FORCE_CONNECTION, 0) <> 0


Subscribe to RSS - Sergey's blog