Belarc Advisor |
Besvar | Side 12> |
Forfatter | |
Guests
Guest Group |
Indlæg funktioner
Tak(0)
Sendt: 08 Dec 2017 kl. 18:19 |
Belarc Advisor er et lille smart program, der kan analysere din computer. Alle oplysninger gemmes i programmets mappe, som et HTML-dokument.
Du kan hente det lille program her. Redigeret af Pomse - 08 Dec 2017 kl. 18:29 |
|
AFFI
Entusiastisk Oprettet: 05 Apr 2008 Sted: Danmark Status: Offline Point: 12535 |
Indlæg funktioner
Tak(0)
|
Personligt ville jeg gerne betale en smule ekstra, hvis det var den type programmer, som var præ-installerede. Vi har vel alle en håndfuld programmer, som er de første, vi alligevel lægger på, eller hur? Belarc Advisor er ét af dem - CCleaner et andet og så fremdeles
|
|
Our prime purpose in this life is to help others. And if you can't help them, at least don't hurt them
|
|
El Barsko
Entusiastisk Oprettet: 02 Dec 2007 Sted: Slangerup Status: Offline Point: 34105 |
Indlæg funktioner
Tak(0)
|
Ja, Belarc Advisor er et rigtigt godt program, men jeg
anbefaler, at man sletter programmet igen, når man har fået de oplysninger programmet kan give. Der er jo ingen grund til, at hjælpe en given tyv med,
hvilke licenser der er på maskinen. |
|
Venlig hilsen El Barsko
Optimisten er ofte lige så forkert på den, som pessimisten... men han har det sjovere. |
|
El Barsko
Entusiastisk Oprettet: 02 Dec 2007 Sted: Slangerup Status: Offline Point: 34105 |
Indlæg funktioner
Tak(0)
|
Programmet SIW, som før var gratis, kan også vise, hvad
andre ikke burde kunne se. Kan hentes i en 30 Dages trail. Vær opmærksom på, at flere andre sider tilbyder også programmet
– af velsagtens forståelige grunde. |
|
Venlig hilsen El Barsko
Optimisten er ofte lige så forkert på den, som pessimisten... men han har det sjovere. |
|
Guests
Guest Group |
Indlæg funktioner
Tak(0)
|
Barsko ...
Hvis en tyv (hacker), er klog nok til at trænge igennem sikkerhedsforanstaltningerne på din computer, er han sikkert også klog nok til at finde licens-nøgler. Licens-nøglen/aktiveringskoden til Windows er jo nemt at finde, uden at benytte værktøj til det. |
|
Bindegal
Entusiastisk Oprettet: 17 Okt 2007 Sted: København Status: Offline Point: 27047 |
Indlæg funktioner
Tak(0)
|
Ellers er der en del alternativer. Men igen handler det jo også om, hvordan man ønsker "pakken".
For nogle er simple med de vigtigste informationer, andre med mere avancerede infos.. Alternativt er der ESET SysInspector og Speccy, som også er gratis: https://www.piriform.com/speccy https://www.eset.com/my/support/sysinspector/ - Og så én der ligesom ligger midt imellem: http://www.kiwimonitor.com/kiwi_system_info.php Redigeret af Bindegal - 08 Dec 2017 kl. 19:28 |
|
El Barsko
Entusiastisk Oprettet: 02 Dec 2007 Sted: Slangerup Status: Offline Point: 34105 |
Indlæg funktioner
Tak(0)
|
Sandt nok – men så er der jo ingen grund til, at hjælpe
til. |
|
Venlig hilsen El Barsko
Optimisten er ofte lige så forkert på den, som pessimisten... men han har det sjovere. |
|
El Barsko
Entusiastisk Oprettet: 02 Dec 2007 Sted: Slangerup Status: Offline Point: 34105 |
Indlæg funktioner
Tak(0)
|
Når man åbner Speccy, så vises, øverst oppe, licensen på maskinen. |
|
Venlig hilsen El Barsko
Optimisten er ofte lige så forkert på den, som pessimisten... men han har det sjovere. |
|
Bindegal
Entusiastisk Oprettet: 17 Okt 2007 Sted: København Status: Offline Point: 27047 |
Indlæg funktioner
Tak(0)
|
Jo, vil man have kun have info om licens, så kan man lave en .bat fil:
Set WshShell = CreateObject("WScript.Shell") Key = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" DigitalID = WshShell.RegRead(key & "DigitalProductId") ProductName = "Product Name: " & WshShell.RegRead(Key & "ProductName") & vbNewLine ProductID = "Product ID: " & WshShell.RegRead(Key & "ProductID") & vbNewLine ProductKey = "Installed Key: " & ConvertToKey(DigitalID) ProductID = ProductName & ProductID & ProductKey If vbYes = MsgBox(ProductId & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "Windows Key Information") then Save ProductID End if Function ConvertToKey(Key) Const KeyOffset = 52 isWin8 = (Key(66) \ 6) And 1 Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4) i = 24 Chars = "BCDFGHJKMPQRTVWXY2346789" Do Cur = 0 X = 14 Do Cur = Cur * 256 Cur = Key(X + KeyOffset) + Cur Key(X + KeyOffset) = (Cur \ 24) Cur = Cur Mod 24 X = X -1 Loop While X >= 0 i = i -1 KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput Last = Cur Loop While i >= 0 If (isWin8 = 1) Then keypart1 = Mid(KeyOutput, 2, Last) insert = "N" KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Then KeyOutput = insert & KeyOutput End If a = Mid(KeyOutput, 1, 5) b = Mid(KeyOutput, 6, 5) c = Mid(KeyOutput, 11, 5) d = Mid(KeyOutput, 16, 5) e = Mid(KeyOutput, 21, 5) ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e End Function Function Save(Data) Const ForWRITING = 2 Const asASCII = 0 Dim fso, f, fName, ts fName = "Windows Key.txt" Set fso = CreateObject("Scripting.FileSystemObject") fso.CreateTextFile fName Set f = fso.GetFile(fName) Set f = f.OpenAsTextStream(ForWRITING, asASCII) f.Writeline Data f.Close End Function |
|
AFFI
Entusiastisk Oprettet: 05 Apr 2008 Sted: Danmark Status: Offline Point: 12535 |
Indlæg funktioner
Tak(0)
|
Cool trick, Binde. Den er gemt
|
|
Our prime purpose in this life is to help others. And if you can't help them, at least don't hurt them
|
|
Besvar | Side 12> |
Tweet
|
Skift forum | Forum-tilladelser Du kan ikke oprette nye emner i dette forum Du kan ikke besvare indlæg i dette forum Du kan ikke slette dine indlæg i dette forum Du kan ikke redigere dine indlæg i dette forum Du kan ikke oprette afstemninger i dette forum Du kan ikke stemme i dette forum |