Set WshShell = CreateObject("WScript.Shell")

If Not CheckBlitzConfig Then ConfigBlitz

WshShell.Run Join(ToArray(WScript.Arguments)), 1, True


Function ToArray(args)
   ReDim arr(args.Count-1)
   For i = 0 To args.Count-1
      arr(i) = args(i)
   Next
   ToArray = arr
End Function

Function CheckBlitzConfig
   Const op = "%Temp%\blitzCoreFtChk"
   cmd = "powershell -Command ""(Get-WmiObject -query \""select * from Win32_OptionalFeature where name = 'DirectPlay'\"").InstallState"" > " & op
   
   Call WshShell.Run(cmd, 0, true)

   Set fso  = CreateObject("Scripting.FileSystemObject")
   Set file = fso.OpenTextFile(WshShell.ExpandEnvironmentStrings(op), 1, False, -1)
   
   CheckBlitzConfig = (cInt(file.ReadLine) = 1)
   file.Close
End Function

Sub ConfigBlitz
   Const cmd0 = "dism"
   Const cmd2 = "/online /enable-feature /featurename:directplay"
   
   Call WshShell.Run(cmd0 & " " & cmd2, 0, True) 'Requires administrative privileges - but ShellEx won't wait for completion
End Sub

bbHelper.vbs meinBlitzProg.exe