The WinOps Blog

'Check_windows_partition with bcdedit
'On error Resume Next
Dim BOOTTABLE, oWsh, sCmd, iRetVal
Dim gethomepath, oOsdV4, ProgressUI, Line, objTextFile
Dim objFSO, oCheck, Blocks, GoodBlock, demiblock, OSDRIVE, OSDbdepartition
Dim sCmd2,iRetVal2
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")

set oShell = CreateObject("WScript.Shell")

Set oOsdV4 = CreateObject("Microsoft.SMS.TSEnvironment")

gethomepath=left(WScript.ScriptFullName,len(WScript.ScriptFullName)-len(WScript.ScriptName)-1)

check_maintenancefile()

sCmd = "%comspec% /c diskpart /s " & gethomepath & "\check_maintenance.txt"
set iRetVal = oShell.Exec(sCmd)
oCheck = iRetVal.StdOut.ReadAll

Set ProgressUI = CreateObject("Microsoft.SMS.TsProgressUI")
ProgressUI.CloseProgressDialog

    For Each Line In Split(oCheck,vbCrLf)
        if trim(Line)="" _
        or ubound(split(Line,"Partition")) < 1 then
        else
            If instr(Line,"1000 M")>0 then
            oOsdV4("bdepartition")=Trim(mid(Line,3,11))
            OSDbdepartition=Trim(mid(Line,3,11))
            end if
        end if
    Next

letterpartitionmaintenance()
sCmd2 = "%comspec% /c diskpart /s " & gethomepath & "\ZDiskPart3.txt.txt"
set iRetVal2 = oShell.Exec(sCmd2)

   
sub check_maintenancefile()
Set objTextFile = objFSO.OpenTextFile(gethomepath & "\check_maintenance.txt", ForWriting, True)
        objTextFile.WriteLine("Select Disk 0")
        objTextFile.WriteLine("Detail Disk")
        objTextFile.Close
end sub

sub letterpartitionmaintenance()
'OSDbdepartition = oOsdV4("bdepartition")
Set objTextFile = objFSO.OpenTextFile(gethomepath & "\ZDiskPart3.txt", ForWriting, True)
        objTextFile.WriteLine("Select Disk 0")
        objTextFile.WriteLine("Detail Disk")
        objTextFile.WriteLine("Select " & OSDbdepartition)
        objTextFile.WriteLine("Assign Letter=S")
        objTextFile.WriteLine("Detail Disk")
        objTextFile.WriteLine("Exit")
        objTextFile.Close   
end sub