Script works on Win 7 but not on Win 10

[blumi]

Found here in forum this small script to get some info from the local hard disk.

Works fine on Win 7 but not on Win 10

Any ideas?

Dim $sResult
$strComputer = "."
$objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")
$colItems = $objWMIService.ExecQuery("Select * from Win32_DiskDrive")


For $objItem In $colItems
    $HDInfos = $objItem.Caption
    $HDGroesse = Int($objItem.Size / 1024 ^ 3)
Next



MsgBox(64, $ScriptName, "HD Infos: " & $HDInfos)
MsgBox(64, $ScriptName, "Grösse: " & $HDGroesse)

 

 

[AdmiralAlkex]

In which way doesn't it work? Do you get a error message?

[blumi]

Nothing is shown, no msgbox opens.

No error

Edited October 28, 2015 by blumi

[Danp2]

Works for me once I fixed the issue with $ScriptName being undefined. Post the results from the Scite output window.