Olen tuossa jonkin aikaa rakentanut pientä projektia, ja eteeni tuli ongelma johon kuumeisesti etsin vastausta.
Eli kuinka listata nopeasti esim elokuvat, pelit, tai tiedostot kansiosta. Niin, että jokaista ei tarvitsisi erikseen kirjoittaa.
Toiminto on yksinkertainen, karkea, mutta ajaa asiansa helposti.
Ohje:
Mene kansioon jonka tiedot haluat saada selville.
Paina pohjaan shift -> hiiren oikea -> avaa komentoikkuna tähän
Kirjoita komentoikkunaan seuraavaa:
dir > listatuttiedostot.txt
****
Kyseiseen kansioon tulee tekstitiedosto: listatututiedostot
Joka luettelee jokaisessa kansiossa olevan tiedoston nimen.
Kätevää, rumaa, mutta nopeaa.
Jack
torstai 16. maaliskuuta 2017
Kuinka saada Windowsin tuotetunnus esille helposti
Aina silloin tällöin esiin tulee laitteita, joiden tuotetunnusta tai productkey pitäisi saada esille.
Itselleni asia tulee eteen etenkin korjatessa koneita, joiden tuotetunnus koneen pohjasta on niin kulunut, että siitä ei saa mitään selkoa.Seuraavalla helpolla kikalla pitäisi homma toimia testatusti ainakin Windows 7 ja 10 koneissa.
Ohje:
Klikkaa hiiren oikealla -> Uusi -> Tekstitiedosto
Lisää tekstitiedostoon seuraava:
Set WshShell = CreateObject("WScript.Shell")Klikkaa -> tiedosto -> tallenna nimellä
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))
Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
Tämän jälkeen kirjoita tiedostonimeksi:
productkey.vbs
Ja muodoksi Kaikki tiedostot
Tiedostoa klikkaamalla eteesi aukeaa tuotetunnus eli productkey
Voila.
Tilaa:
Blogitekstit (Atom)