Nopea listaus esim elokuvista kansiosta

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

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")
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

Klikkaa -> tiedosto -> tallenna nimellä

Tämän jälkeen kirjoita tiedostonimeksi:

productkey.vbs

Ja  muodoksi Kaikki tiedostot

Tiedostoa klikkaamalla eteesi aukeaa tuotetunnus eli productkey

Voila.