Comments on: Detect Windows Version with VB Script

By: Alexey

Alexey — Wed, 20 May 2009 15:08:05 +0000

Thanks for idea! I have decided to use it for that definition that at me OS has version Windows XP SP2 or above. Here so has copied on javascript:

var _fso = new ActiveXObject(“Scripting.FileSystemObject”);
var _shell = new ActiveXObject(“WScript.Shell”);

WScript.Echo(IsWindowsXPSP2OrAbove() ? “Yes” : “No”);

function IsWindowsXPSP2OrAbove()
{
var fileName = _shell.ExpandEnvironmentStrings(“%USERPROFILE%”) + “\\Local Settings\\Temp\\winversion.txt”;
ExecCmd(“ver > \”" + fileName + “\”");

var fileReader = _fso.OpenTextFile(fileName, 1, true);
var str;
var isXP = false;

while (!fileReader.AtEndOfStream)
{
str = fileReader.ReadLine();
if (str == “”)
continue;

var res = str.match(/\s(\d+\.\d+).\d+]$/)[1];
if (res >= “05.1″)
isXP = true;

break;
}
fileReader.Close();

if (_fso.FileExists(fileName))
_fso.DeleteFile(fileName);

return isXP;
}

function ExecCmd(cmdLine)
{
if (_shell.Run(“cmd /c \”" + cmdLine + “\”", 1, true) == 0)
return true;

return false;
}

By: asadsiddiqi

asadsiddiqi — Fri, 20 Feb 2009 14:03:11 +0000

Dude,
I know that this might be the most crappy way. Please understand that certain times you have to integrate some shit with an existing legacy application “where things are done a certain way” As far as OS goes the regiestry hierarchy is different for NT based systems too but thats not the point. The point is to detect it with VB Script” ….
Appreciate your comment though. I hope it helps some1 stuck sometime trying to figure it out with vbs.
Take care

By: 0xdeadc0de

0xdeadc0de — Fri, 20 Feb 2009 10:38:05 +0000

That piece of code deserves a place in Daily WTF.

Have you heard of registry ? Have you heard of WMI ? You have tons of right ways to get the information needed and you choose the worse of them.

kkthxb