PDA

Vollständige Version anzeigen : Wie ermittele ich den Computernamen?


Stefan Kulpa
27.01.2003, 19:25
Wie ermittele ich den Computernamen?

Um den Computernamen zu ermitteln, kann man auf verschiedene Art und Weise vorgehen:

Lösung 1: Nutzung des Windows Scripting Host

<div><link href="http://www.ms-office-forum.de/ubb/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Function</span> GetComputerName() <span class="TOKEN">As</span> <span class="TOKEN">String</span>
<span class="REM">'// ------------------------------------------------------------------------</span>
<span class="REM">'// Objekt f&uuml;r den Zugirff erstellen</span>
<span class="REM">'// ------------------------------------------------------------------------</span>
<span class="TOKEN">Dim</span> objWSN <span class="TOKEN">As</span> Object
<span class="TOKEN">Set</span> objWSN = CreateObject(&quot;WScript.Network&quot;)
<span class="REM">'// ------------------------------------------------------------------------</span>
GetComputerName = objWSN.ComputerName
&nbsp;
<span class="TOKEN">End</span> <span class="TOKEN">Function</span></pre></div>
Code eingefügt mit dem MOF Code Converter (http://www.ms-office-forum.net/forum/codeconverter.php)

Lösung 2: Nutzung des Win32-API

<div><link href="http://www.ms-office-forum.de/ubb/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Declare</span> <span class="TOKEN">Function</span> GetComputerName <span class="TOKEN">Lib</span> &quot;kernel32&quot; <span class="TOKEN">Alias</span> _
&quot;GetComputerNameA&quot; _
(<span class="TOKEN">ByVal</span> lpBuffer <span class="TOKEN">As</span> String, _
nSize <span class="TOKEN">As</span> <span class="TOKEN">Long</span>) <span class="TOKEN">As</span> <span class="TOKEN">Long</span>
&nbsp;
<span class="TOKEN">Function</span> APIGetComputerName() <span class="TOKEN">As</span> <span class="TOKEN">String</span>
<span class="REM">'// -----------------------------------------------------------------</span>
<span class="REM">'// Methode: | Ermittelt den Computernamen</span>
<span class="REM">'// -----------------------------------------------------------------</span>
<span class="TOKEN">Dim</span> sBuffer <span class="TOKEN">As</span> <span class="TOKEN">String</span>
sBuffer = <span class="TOKEN">String</span>(1024, 0)
<span class="TOKEN">If</span> GetComputerName(sBuffer, Len(sBuffer)) <span class="TOKEN">Then</span>
APIGetComputerName = _
VBA.Left(sBuffer, VBA.InStr(sBuffer, vbNullChar) - 1)
<span class="TOKEN">End</span> <span class="TOKEN">If</span>
&nbsp;
<span class="TOKEN">End</span> <span class="TOKEN">Function</span></pre></div>
Code eingefügt mit dem MOF Code Converter (http://www.ms-office-forum.net/forum/codeconverter.php)

In beiden Fällen wird der Computername durch die jeweilige Funktion zurückgegeben.

saraline
27.08.2012, 11:34
Könntest du eventuell folgendes verwenden:
Environ("computername")

Milka
26.10.2012, 09:44
Den Computernamen findet man aber doch auch im Arbeitsplatz. Bei den Interneteinstellungen zum Beispiel, oder wenn man ihn mit Bluetooth verbindet.