Stefan blogs IT

Lockpicker to the Resque

Today I have quite a story. I was driving Gintare her sister’s car to pick Gintare up from the center. Gintare met with Doville who had my business cards. So they were waiting in the center on the side of the road. I parked and jumped out the car, and started to chat. And that is when the trouble started. I always let my car keys on the car when I am just standing next to it. And I am not used driving this car. This Ford Focus closes automatically after 2 minutes. So the car keys got locked in the car. Good thing there are such things as spare keys. The only problem was that Gintare’s sister had the spare keys, and she is now in Rome….

On rear window of the car was a security label with a telephone number. Gintare called that number and we had to call back in 10 minutes. So we called again and the man on the phone would arrange something. He called us back and told that he sent someone who’ll be there in 20 minutes. And 20 minutes later a silver, dirty, BMW without any prints stopped and came to the resque. He took a fine piece of flexible metal bar out of the trunk and asked us kindly to step away from the car and not to look at him. Only 20 seconds later the door was open. This guy was good! It did cost us 100LTL which is around 30 euros. But if we’d call him directly it would’ve been 50LTL, that’s only 15euros… The funny thing is that he did not check if we were the owners of the car. In the end all was good. It only took about 45 minutes from getting the keys locked in the car to driving off to the center.

Bloody Ear

A week ago my father descided to sell one of our sheep. He knew a turkish person living a few streets from here, which wanted to buy the sheep.

So far so good. Today was sheep-D-Day. The person came to pick up the sheep with a brand new van, payed, and went. He told he will bring back the rope later. 15 minutes later the turkish man was back, with a small bag. Inside the bag was the rope and the registration number (like so). But the registration number was still in the ear! So he cutted the ear and just gave it to us with the rope…

I knew he bought the sheep to kill and eat, but this was just a lil sick…

Batch Extracting RAR packages recursively

Ever had a download consisting of multiple rarred parts? I guess  you have. Nowadays everything is packed in winrar. Extracting something in winrar is very easy. Just right click -> extract here. but what if you have ALOT of RAR files? what if these RAR files are split? Then you need hours of waiting and clicking to keep everything nicely in its original folder.

I was tired of this one day. So i came up with the idea to write a script that will do it for me.

I wrote a VB script, which is controlling winrar.

The code:

Dim objFSO
Dim ofolder
Dim objStream
Dim folder

Set objFSO = CreateObject("scripting.filesystemobject")

folder = InputBox("Enter folder to unpack","UnRarer", "E:\Series\")

CheckFolder (objFSO.getfolder(folder))

MsgBox "File Search Completed."

Sub CheckFolder(objCurrentFolder)

    Dim strTemp
    Dim strSearch
    Dim strOutput
    Dim objNewFolder
    Dim objFile
    Dim objStream

    strSearch = ".rar"

       For Each objFile In objCurrentFolder.Files
           strTemp = Right(objFile.Name, 4)
                If UCase(strTemp) = UCase(strSearch) Then
                    'Got one
                        Dim rar
                        rar = objCurrentFolder.Path & "\" & objFile.Name
                        'MsgBox rar

            Dim oShell
            Set oShell = WScript.CreateObject ("WSCript.shell")
            Return = oShell.run ("""F:\Program Files\WinRAR\unrar.exe"" e -o- """ & rar & """ """ & objCurrentFolder.Path & """", 1, true)
            Set oShell = Nothing
        End If
       Next

       'Recurse through all of the folders
       For Each objNewFolder In objCurrentFolder.subFolders
               CheckFolder objNewFolder
       Next

End Sub

A small explantion of how it works: first we declare the objects which we will use and we ask what the folder is in which we will be looking for RAR files. Next we call the function which will search recursively for all RAR files. Basically the function looks for all files in the folder, and checks if their extension is .rar . If there is a RAR file found, a shell (windows CMD) will open and start a command that winrar understands. This command extracts the package. If the file already exists (when it was extracted before) the script will NOT overwrite the original file but just skip this package. When the extraction is finished, it will look for more rars. If there aren’t any, then it will check the subfolders for any RAR files.

This simple script will save you alot of time. You can copy the code in Notepad and save it as rarextractor.vbs or you can download it here.

please leave a comment if you found this post usefull

Tomorrow is the day

Tomorrow is the day! After 25 days of being alone, i will finally meet her again, my love, mano gintaryte. I will fly to lithuania for a short time, only from sunday evening till thursday very early in the morning, so 3 full days. I’ve been waiting for this for a long time and it wasn’t easy, but i’m ready and counting the hours now. The last few days were very silly, since she couldnt recieve my sms’es anymore and she can’t send messages to me too, something wrong with her operator i guess. I hope everything will go well to get there. i’ll write when i get back

New life, new blog

This is the new blog I created. In this blog i will write about my life and IT. Things I am working on, things that happen, …

If you came here for my Erasmus blog: http://erasmus.blog.stefanvds.com