I have a simple zip extracting vbs which I found on another stackoverflow page and used it
ZipFile="%CD%\file.zip"
ExtractTo="%CD%"
set objShell = CreateObject("Shell.Application")
set FilesInZip=objShell.NameSpace(ZipFile).items
objShell.NameSpace(ExtractTo).CopyHere(FilesInZip)
But I noticed it doesn't work with cyrillic folders which is critical for me. Normally for batch I would just use chcp 1251 in the beginning of a script, but how would someone set a locale for vbs script?

ExpandEnvironmentStringsmethod to work with environment variables. Regardless, you can simply save your VBScript script as Unicode (UTF-16LE) from any text editor in order to work with Unicode characters. That's also what Cmd /u does.