/ Snippet Library - View Code

Snippet details

ID: 390

Viewed: 1276

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

Gets the server name

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight AllOption Explicit Private Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) Private Declare Function NetGetDCName Lib "Netapi32.dll" (strServer As Any, strDomain As Any, bufptr As Long) As Long Private Declare Function NetApiBufferFree Lib "Netapi32.dll" (ByVal lpBuffer As Long) As Long
Code
Highlight AllPrivate Sub Command1_Click() Dim l As Long Dim dc() As Byte Dim bufptr As Long l = NetGetDCName(ByVal 0&, _ ByVal 0&, _ bufptr) MsgBox Pointer2stringw(bufptr) NetApiBufferFree bufptr End Sub Private Function Pointer2stringw(ByVal l As Long) As String Dim buffer() As Byte Dim nLen As Long nLen = lstrlenW(l) * 2 If nLen Then ReDim buffer(0 To (nLen - 1)) As Byte CopyMemory buffer(0), ByVal l, nLen Pointer2stringw = buffer End If End Function

No Reviews to show