Antal partitioner

Hmm... Jeg ved ikke om WMI kan bruges i forbindelse med unattended installation, men det er da et forsøg værd.

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskPartition",,48)

iNumParts = 0
For Each objItem in colItems
    iNumParts = iNumParts + 1
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "Size: " & objItem.Size
    Wscript.Echo "Type: " & objItem.Type
    Wscript.Echo "PrimaryPartition: " & objItem.PrimaryPartition
Next

Wscript.Echo "Found " & iNumParts & " partitions."

Jeg mener (desværre) ikke at jeg kan benytte WMI i Windows PE. Men jeg vil forsøge... takker. Jeg vender tilbage.

Desværre... WMI kan ikke bruges i WinPE. Ærgeligt, gad vide om man kan "udenom" WMI??

WSH's objektmodel giver ikke mulighed for det. Måske du kan finde et COM-objekt der kan, men jeg ved ikke om det lader sig gøre med WinPE.

Jeg har nu fået hjælp og spm. lukkes. WMI kunne ikke bruges men nedenstående virker (hvis en anden skulle få brug for det):

  Dim fso, d, dc, s, n,taeller
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set dc = fso.Drives
  taeller=0
  For Each d in dc
           
      If d.DriveType = 2 Then
      s = s & d.DriveLetter & " - "
        taeller=taeller+1
      Else       
      End If
      s = s & " "
  Next
  ShowDriveList = s

Mvh
Systemnissen