WinPE 3.0 und VBScript

Hallo,

ich möchte gerne automatisch nach dem Start eines WinPE3 ein VBScript ausführen, welches mir die gesamte Festplatten größe ausließt , daraus die Hälfte ausrechnet und danach mit diskpart o.ä. die Platte in 2 Hälften Partitioniert.

Mein Problem besteht aber jetzt darin, dass ich kein Test-VBScript im WinPE zum laufen bekommen...

folender Aufbau.
WinPE 3.0 mit WAIK Windows 7 gebaut.
folgende Pakete habe ich eingebunden:
WinPE-HTA
WinPE-MDAC
WinPE-Scripting
und jeweils dazu die Language Packs

wenn ich jetzt folgendes script starte:
Option Explicit
Dim objWMIService, objItem, colItems

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive")

For Each objItem in colItems
Wscript.Echo "Size: " & Int(objItem.Size /(1073741824)) & " GB"
Next

bekomme ich die Fehlermeldung, "Ungültige Syntax" in Zeile 4 Zeichen 1.
also genau hier "Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")"

auf allen anderen Hosts lief dieses Script...nur auf der PE Maschine nicht...
fehlen ihn da vielleicht irgendwelche Packages Dateiein oder sonst was?
Kann mir da bitte jemand einen Tipp geben?

Vielen Dank

    Set Fso = CreateObject("Scripting.FileSystemObject")  
    
    Set Drive = Fso.GetDrive("C")  
    
    With Drive
        Drive_DriveType = .DriveType  '2=Festplatte  
        Drive_DriveLetter = .DriveLetter
        Drive_AvaliableSpace = .AvailableSpace
        Drive_FileSystem = .FileSystem
        Drive_FreeSpace = .FreeSpace
        Drive_IsReady = .IsReady
        Drive_Path = .Path
        Drive_SerialNumber = .SerialNumber
        Drive_TotalSize = .TotalSize
        Drive_VolumeName = .VolumeName
    End With