Získání informací o počítači

Získání informací o počítači zodpovězená otázka

před 18 lety

0 1

Mohl by mi někdo poradit jakým způsobem získám informaci o ID počítače, resp. IP adrese nebo přihlašovací jméno do Windows?

Předem děkuji.

nahlásit spam

odpovědět

před 18 lety

Jan Novák

237 783

K tomu přihlašovacím jménu: nepomůže toto:

1	`My.Computer.Users.CurrentUser`

Vážně nevím zda to tak je, protože mi stávkuje VS. Snad je to správně.

nahlásit spam 0 odpovědět

před 18 lety

Tomáš Herceg

1847 3847

Ne, to funguje jen ve VB.NET, ne ve staré verzi 6.

nahlásit spam

odpovědět

DotNETcollege: Mohlo by vás zajímat

MAUI - multiplatformní aplikace v .NETu

Úvod do XAML

Vyvíjíme univerzální aplikace pro Windows

Kontejnery, Docker a Azure Kubernetes Service (AKS)

TypeScript

Testování v prostředí .NET - unit testy a integrační testy

Kontinuální integrace pomocí TeamCity

Entity Framework pro pokročilé

Xamarin - vývoj multiplatformních mobilních aplikací

Javascript pro mírně pokročilé

Omlouvám se, nevšiml jsem si, že se jedná o VB6.

nahlásit spam

odpovědět

před 17 lety

Mr Mich

1 5

Jméno uživatele lze zjistit třeba pomocí API :

1	`Private` `Declare` `Function` `GetUserName` `Lib` `"advapi32.dll"` `Alias` `"GetUserNameA"` `(ByVal` `lpBuffer` `As` `String,` `ByRef` `nSize` `As` `Long)` `As` `Long`

'Jméno přihlášeného uživatele
Public Function getCurrWinUserName() As String
Dim strNameOfCurUser As String
strNameOfCurUser = Space(255)
GetUserName strNameOfCurUser, 255
getCurrWinUserName = Mid(strNameOfCurUser, 1, InStr(1, strNameOfCurUser, Chr(0), vbTextCompare) - 1)
End Function

nahlásit spam 0 odpovědět

před 17 lety

Vratislav Renner

90 243

IP lze zjistit pomocí Winsock

' nutno přidat do projektu knihovnu
' postup: CTRL-T - najít a zatrhnout: "Microsoft WinSock Control"
' přidat na formulář
 
Private Sub Form_Load()
  MsgBox "IP: " & Winsock1.LocalIP & vbCrLf & vbCrLf & _
         "PC: " & Winsock1.LocalHostName
End Sub

nahlásit spam 0 odpovědět

před 17 lety

Ondřej Linhart

-553 3274

Problém je v tom, že každý nemusí mít komponentu WinSock v počítači nainstalovanou. COM komponenty totiž nestačí zkopírovat jako .NET komponenty, ale musí se také zaregistrovat pomocí regsvr32... V čisté instalaci Windows XP Professional například tato komponenta není.

nahlásit spam

odpovědět