Hur får jag tag i datorns serienr utan att gå in i bios?


detta tips funkar inte för mig, jag saknar det man ska sätta reference till.
http://www.pellesoft.nu/login/tips/t_view4.asp?tid=639

/B

Hej!

Konstigt, gick in och tittade hos mig och jag hade det.
Har VB 6.0 och SP5. Har inte tagit hem någonting annat.
Har du kollat rätt?
Borde finnas om det är Microsofts eget tycker jag.

/Håkan

Jag har kollat flera ggr...hur vet jag vilket SP jag har?

Jag var tvungen att bläddra efter filen o lägga till den i listan, så nu har jag en reference, MEN det tipset funkar inte för mig iaf, jag kör xp.


jag har lagt koden i en "sub main"

Gå in på "Help" eller "Hjälp" och välj "About Microsoft Visual Basic" eller "Om Microsoft Visual Basic", beroende vilket språk. Högst upp i dialogrutan står det vilken version av VB du har, och inom parentes vilken SP du har.

/Håkan

Hej hej!

Näru, det gjorde det inte här heller (XP).
Bara att jobba vidare....!

/Håkan

Hej
Vet ej om det här är det du söker, men du kan väl kolla.

http://www.mentalis.org/tips/tip030.shtml

// Per Arne

Hej, nä jag söker datorns serienr som står i bios, inte diskens, men tack iaf:)

http://www.pellesoft.nu/login/tips/t_view4.asp?tid=639

Djä... slarvigt tips, där får Pelle skärpa sig.

Fick det att funka efter lite detektivjobb.

Detektivjobb - vill du dela med dig av vad du gjorde till oss mindre vetande?

/Lissu

Ja, det vore ju fint o få veta vad du gjort liksom...

Ok jag var lite orättvis mot Pelle,så här skriver han.

"Kommentarer
Sätt en referens i VB till Microsoft WMI Scripting Library "

Ja han skriver väl så? Har så gjort men inte funkar det?

Det har du förmodligen inte gjort för då hade det funkat.
Vad står det i ditt VB ReferenceRegister,vilka är förbockade.?

Sen skall du ge fae... i att SKRIKA Vi förstår ändå.

Svens taskiga inlägg i inlägget ignoreras!!!


Jag har bockat i "microsoft WMI Scripting v1.2 library", den hittade jag i en mapp som jag just nu inte minns men som jag la till. Är det fel?

vad heter filen jag ska leta efter i så fall?

Jag har gjort precis som det står, men msgbox visar inget värde...

Vari låg detektivarbetet? Undertecknad erkänner att hon inte förstår...

Jag har förresten inte märkt att någon har skrikit här och nu...

/Lissu

Lissu: Jag råkade använda stora bokstäver i rubriken så att alla skulle se att detta inte va löst, Sven tog det personligt:-)

Jag tycker mig ha gjort som det står o får inget värde jag heller, heter din ibockade reference som den jag skrev=?


SVEN: Vilket OS kör du med?

Ok....

Jag har i o f s inte VB här, men jag har gjort precis likadant i Excel och lagt till referensen - i min lista hette den exakt som Pelle hade skrivit. Men när jag försöker få ut ett värde så blir meddelande alldeles blankt - men jag får inte larm om fel eller så...

Jag kör just nu Office XP på Win XP.

/Lissu

Ok bara för att jag är så djä.... snäll.

Option Explicit
'Under meny Project välj References,
'Bocka för Microsoft Scripting Runtime
'som hänvisar till System scrrun.dll

Private Sub Command1_Click()
Dim objs As Variant
Dim obj As Variant
Dim WMI As Variant
Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_BaseBoard")
For Each obj In objs
MsgBox obj.SerialNumber
Next
End Sub

Verkar inte fungera för Microsoft XP!!
Vi är ju 3 st. som försökt och inte fått det att fungera.

/Håkan

Tack för tipset Sven, det var snällt!!
Har prövat att bocka för Microsoft WMI Scripting Library som det skrivs i tipset och att bocka för Microsoft Scripting Runtime,
samt båda två samtidigt.
MEN ICKE!!!
Som sagt, verkar inte vara "kompatibelt/körbart" med XP.

/Håkan

Hej.

Vad jag förstår är inte VMI kompatibel med WinXP.
MS lämnar ingen support på det iaf.

Detta kanske kan intressera?

http://www.microsoft.com/downloads/details.aspx?familyid=720f0cae-64a7-457f-bb95-e4f33e0cbc55&languageid=f49e8428-7071-4979-8a67-3cffcb0c2524&displaylang=en

//fredda

Jag kör XP det fungerar på min maskin.
Kan nog ligga i moderkortets design.

Har gjort som Håkan- funkar inte.

/Lissu

Godmorgon alla, ja jag har gjort som de övriga men det går inte.

Undras vad felet är då, kan det va som Sven skriver ang moderkort?

Compaq har en detalj på sin hemsida där man kan fånga upp datornamnet, det funkar via webben och klockrent på både xp o NT, kan man ju undra hur DOM gjort...


/B

Inga fler tips? Vart e Pelle? Han besvarade inte mitt mail ang hans tips.

Har gjort en google-söknng på

serial number visual basic

och fick 227 000 träffar :-)

Bl a dessa - kanske kan vara något... (har testat några i Excel och funkar alldeles utmärkt - fast det är kanske inte riktigt samma sätt som i Pelles exempel)

http://abstractvb.com/
http://www.vbthunder.com/default.asp?srcget=25
http://www.freevbcode.com/ShowMessage.asp?ID=28704

/Lissu

Nu är det missförstånd igen, jag menar inte diskens nr, inte C:,D: osv utan DATORNS serienr.

Det står i bios, ofta på framsidan.

Det som Pelle tipsar om är rätt tips, bara att det inte funkar här.

/B

However, most (if not all) BIOS manufacturers have placed the information
somewhere in the last 8 Kb of the first Mb of memory,
i.e. in the address space from $000FE000 to $000FFFFF.

Intressant om någon kan skruva ihop ett prog som via DLPORTIO.dll
scannar detta adresspektrum och där vaskar fram serienummert.

Där ser man - avslöjad i min tekniska okunskap... sorry... :-)

/Lissu

Edit : Snabbt och fel.

Inte alls för snabbt. Jag erkänner att jag inte kan - men det är ju därför jag gärna kommer hit - för att lära? Det är väl inget fel med det?

/Lissu

Det är det absolut inget fel på:)

Om ni går in på denna sida:
http://www3.compaq.com/support/sndetect/CSND_AX.asp?SendURL=www3.compaq.com/support/parts/hwlookup.asp

Så kommer det först upp en ruta ni svarar ja på (inget farligt alls) sen klickar ni på knappen som sedan dyker upp, ni kan inte missa den.

Det är en sådan applikation jag vill ha. Det verkar som jag får anv mig av denna då det verkar knepigt o få ut det via vb.


Tjing

Berra - du behöver inte försvara SvenPon! :-)

Jag gick in på länken och testade - jag fick inte heller nu något serienr - kan det bero på att jag dels kör XP och dels är det inte vare sig HP eller Compaq? :-)

För att ytterligare avslöja hur lite tekniker jag är :-) så kan jag fortsätta med att fråga om någon känner till vad som används av olika program (bl a e-books) för att identifiera en dator och som gör, att en kod måste köpas för varje dator programmet ska köras på. D v s en form av kopieringsskydd som jag tycker verkar ganska smart... eller har jag fel där också...

Andra förslag på hur man kan lösa att ett program bara kan köras på en dator med ett visst lösenord?

/Lissu
"non-technician"

Jag testade din länk men den kunde inte hitta mitt serienummer.

Till Lissu det var inte dig jag kommenterade "Snabbt och fel" det var
mig själv ,hade skrivit en lösning som jag kom på inte fungerade.

Ok nu skall Vi knäcka den här soppan.

Vad händer Berra när du kör mitt uppskick Programarkivet:Bios Information Delphi ? BiosInfo

Hos mig Win XP funkar det inte , på Win ME funkar det.

SvenPon: OK... :-)

Fast jag ska nog vara tyst tills ni har hittat lösningen - jag hoppas att jag ändå får vara med och dela... :-)

/Lissu

Jag försvarade inte Sven, jag sa att det inte är fel i att inte kunna:)

den länken jag skicka med är en länk som för mig fungerar utmärkt på alla datorer jag hittils testat på. oavsett OS.

Jag ska kolla lite snabbt sven.

Nej Sven, den gubben funka inte på XP, det e bara på xp jag kan testa nu, har NT på annat håll i morgon som jag ska testa på.

Nu ska jag sova lite. Godnatt.

Tjena.

Jag har testat din Biosinfo Sven, på en NT4, det blir samma fel som med xp.
Jag kör enbart exe-filen utan andra tillägg antar jag?!

/benny

Ja det är så du skall göra,Det funkar inte på NT OS,man måste ha en driver
som tillåter tillgång till det lägre adressområdet.
Jobbar vidare under veckan på problemmet. DLPortIO.dll är lösningen
sen gäller det bara att hitta adressen där det göms.

Aha, det går visst att använda den dll:en till mycket:)

Ser fram emot ditt resultat:) tala gärna om hur du får reda på addressen, jag förstår inte det där.

/B

Har någon kommit på någon bra lösning?

Är fortfarande nyfiken...

VB script, cut ´n paste från microsoft.com

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colBIOS = objWMIService.ExecQuery _
("Select * from Win32_BIOS")
For each objBIOS in colBIOS
Wscript.Echo "Build Number: " & objBIOS.BuildNumber
Wscript.Echo "Current Language: " & objBIOS.CurrentLanguage
Wscript.Echo "Installable Languages: " & objBIOS.InstallableLanguages
Wscript.Echo "Manufacturer: " & objBIOS.Manufacturer
Wscript.Echo "Name: " & objBIOS.Name
Wscript.Echo "Primary BIOS: " & objBIOS.PrimaryBIOS
Wscript.Echo "Release Date: " & objBIOS.ReleaseDate
Wscript.Echo "Serial Number: " & objBIOS.SerialNumber
Wscript.Echo "SMBIOS Version: " & objBIOS.SMBIOSBIOSVersion
Wscript.Echo "SMBIOS Major Version: " & objBIOS.SMBIOSMajorVersion
Wscript.Echo "SMBIOS Minor Version: " & objBIOS.SMBIOSMinorVersion
Wscript.Echo "SMBIOS Present: " & objBIOS.SMBIOSPresent
Wscript.Echo "Status: " & objBIOS.Status
Wscript.Echo "Version: " & objBIOS.Version
For i = 0 to Ubound(objBIOS.BiosCharacteristics)
Wscript.Echo "BIOS Characteristics: " & _
objBIOS.BiosCharacteristics(i)
Next
Next

Jag har inte lagt ner något kol på problemmet.
Lösningingen ligger i som jag skrivit innan DLPortIO.dll
och minnesarean den första MB, där finns alla dessa data gömda.
Normalt bör dom ligg i dom sista 8 kb av det första Mb, men det stämmer inte
när jag kollat XP. Förmodligen samma som NT och 2000. I Win95 > ME stämmer det.

Någon duktig minnesguru som kan hjälpa till med adresser.
Vi kommer åt alla adresser , men det gäller att hitta rätt.
Till Berra , samma som att tex ditt termoprog hämtar data från 889.

olöst står det fortfarande,
men den senaste kodlösningen
löser väl problemet, eller ?

jag får i alla fall ut något serienummer via den, men inte via den första koden,
jag kör xp

Har inte kollat men !! kolla så det blir samma 10 gg irad.
Dvs det händer saker i minnesarean.
Berra:
By the way: skulle vilja se din Mandelbrotlösning.

Lissu erkänner att hon nu har noll koll - detta har överskridit min inkompetensnivå så jag lägger ner... :-)

Hej, jag har inte sett detta förens nu, har liksom modem hemma o familj o sånt som hindrar från att sitta här:)


Sven:

"By the way: skulle vilja se din Mandelbrotlösning."

Jag har ju ingen, det e ju därför jag ställde frågan...

MEN, jag är nöjd med den sista lösningen med scriptet, den löste allt.

Tack tack.

/B

Ja det kan ju inte vara nåt problem att anpassa det till VB sen.