Private Const MAX_PATH = 260Private Type SHFILEINFO hIcon As Long iIcon As Long dwAttributes As Long szDisplayName As String * MAX_PATH szTypeName As String * 80End TypePrivate Declare Function SHGetFileInfo
At times you may need to create a GUID from ASP, for example when assigning unique IDs to users that are visiting your site for the first time. While you
‘ Get the names of all the installed Windows GetServiceNames using Active ‘ Directory” if you pass True, the display names are returned’ otherwise the internal names are returned’ (internal
Const MAX_PATH As Long = 260Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase
Const MAX_MODULE_NAmeInfo = 255Const MAX_PATH = 260Const TH32CS_SNAPMODULE = &H8Private Type MODULEENTRY32 dwSize As Long th32ModuleID As Long th32ProcessID As Long GlblcntUsage As Long ProccntUsage As Long modBaseAddr As Long
Private Enum CommandOpConstants cocStart = 1 cocStop cocPause cocContinueEnd Enum’ Start, Stop, Pause or Continue a service using Active Directory’ Returns True if successful” NOTE: requires a reference to the
‘ Copy a file’s contents into a BLOB field.Sub FileToBlob(fld As ADODB.Field, filename As String, _ Optional ChunkSize As Long = 8192) Dim fnum As Integer, bytesLeft As Long, bytes
‘ Copy a BLOB field’s contents to a binary file.Sub BlobToFile(fld As ADODB.Field, filename As String, _ Optional ChunkSize As Long = 8192) Dim fnum As Integer, bytesLeft As Long,
‘ Copy the field structure of a Recordset to a new Recordset.” The original code has been improved to account for Numeric and Decimal’ fields, that also require the setting