title image


Smiley Ein abgekupferter Tipp:
Private 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 FunctionViel Erfolg!Pitzi

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: