title image

Smiley Re: Computernamen auslesen
Hallo!Z.B. so:---Posted by Dev Ashish-------------------------------------------------API: Current Computer Name----------------------------------------------(Q) How do I retrieve the current ComputerName ?(A) Paste the following code in a new module and call the function fOSMachineName.'******************** Code Start **************************'This code was originally written by Dev Ashish. 'It is not to be altered or distributed, 'except as part of an application. 'You are free to use it in any application, 'provided the copyright notice is left unchanged.''Code courtesy of 'Dev AshishPrivate Declare Function apiGetComputerName Lib "kernel32" Alias _ "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As LongFunction fOSMachineName() As String'Returns the computernameDim lngLen As Long, lngX As LongDim strCompName As String lngLen = 16 strCompName = String$(lngLen, 0) lngX = apiGetComputerName(strCompName, lngLen) If lngX 0 Then fOSMachineName = Left$(strCompName, lngLen) Else fOSMachineName = "" End IfEnd Function'******************** Code End **************************GrussManuela
VBA & Acces Tipps & Tricks - Tutorials - Downloads uvm.
Mathematische Definition des allgemeinen Dringlichkeitsaxioms:
D = (PZ/K) * (C + A + N) - Fazit: Alle Dinge werden unter Druck schlimmer

geschrieben von




Beitrag anfügen