[erledigt] Arbeitsgruppe/Workgroup ermitteln?

Windowsspezifisches Forum , API ,..
Beiträge, die plattformübergreifend sind, gehören ins 'Allgemein'-Forum.
Benutzeravatar
scholly
Beiträge: 793
Registriert: 04.11.2005 21:30
Wohnort: Düsseldorf

[erledigt] Arbeitsgruppe/Workgroup ermitteln?

Beitrag von scholly »

moin, moin...

Wie kann ich die Arbeitsgruppe(Workgroup) (m)eines Rechners ermitteln?

Ich habe hier, im Archiv und im Englischen Forum gesucht, aber nix gefunden, aus dem ich ableiten kann, zu welcher Arbeitsgruppe/Workgroup (m)ein Rechner gehört.

tia...
scholly
Zuletzt geändert von scholly am 07.12.2008 17:24, insgesamt 1-mal geändert.
Ich bin blutiger PB-Anfänger.
seit 17.12.08: PB 4.3 unter XP Home(SP3)
Andreas
ToolbarKönig
Beiträge: 142
Registriert: 08.09.2004 08:33

Beitrag von Andreas »

Code: Alles auswählen

Debug GetEnvironmentVariable("USERDOMAIN")
Gruss Andreas
Benutzeravatar
scholly
Beiträge: 793
Registriert: 04.11.2005 21:30
Wohnort: Düsseldorf

Beitrag von scholly »

Das gibt mir die Userdomain (=Rechnernamen), aber nicht die Arbeitsgruppe wieder.

Laut Systemeigenschaften/Computername habe ich:

Vollständiger Computername: SEMPRON
Arbeitsgruppe: WARZ

"WARZ" brauch ich als Ergebnis.
Ich bin blutiger PB-Anfänger.
seit 17.12.08: PB 4.3 unter XP Home(SP3)
- chris -
Beiträge: 195
Registriert: 24.08.2005 19:52
Wohnort: Stadtallendorf

Beitrag von - chris - »

http://entwickler-forum.de/archive/inde ... 27970.html

Code: Alles auswählen

pBuffer.l = 0

NetWkstaGetInfo_(0,100,@pBuffer)

Debug "Computername: " + PeekS(PeekL(pBuffer+4),-1,#PB_Unicode)
Debug "Arbeitsgruppe: " + PeekS(PeekL(pBuffer+8),-1,#PB_Unicode)

NetApiBufferFree_(pBuffer)
Benutzeravatar
Fluid Byte
Beiträge: 3110
Registriert: 27.09.2006 22:06
Wohnort: Berlin, Mitte

Beitrag von Fluid Byte »

Versuch mal das hier:

Code: Alles auswählen

Structure WKSTA_INFO_100
	wki100_platform_id.l
	wki100_computername.l
	wki100_langroup.l
	wki100_ver_major.l
	wki100_ver_minor.l
EndStructure

NetWkstaGetInfo_(0,100,@*wkgi.WKSTA_INFO_100)

Debug *wkgi\wki100_platform_id
Debug PeekS(*wkgi\wki100_computername,-1,#PB_Unicode)
Debug PeekS(*wkgi\wki100_langroup,-1,#PB_Unicode)
Debug *wkgi\wki100_ver_major
Debug *wkgi\wki100_ver_minor
Windows 10 Pro, 64-Bit / Outtakes | Derek
Benutzeravatar
scholly
Beiträge: 793
Registriert: 04.11.2005 21:30
Wohnort: Düsseldorf

Beitrag von scholly »

@chris
Yep funktionuckelt :D

Da ich auf der MSDN-Seite für NetWkstaGetInfo nirgendwo workgroup finde, frag ich mich, wo die herkommt.
Ist das die langroup?

//edit
Frage Dank Fluid Byte erledigt :lol:

:allright: an Euch beide
Ich bin blutiger PB-Anfänger.
seit 17.12.08: PB 4.3 unter XP Home(SP3)
Benutzeravatar
jpd
Beiträge: 380
Registriert: 14.02.2005 10:33

Beitrag von jpd »

und hier noch eine methode....

http://www.purebasic.fr/german/viewtopi ... highlight=

Ciao
jpd
PB 5.10 Windows 7 x64
Antworten