strClusterName = "localhost" 'Change to name of cluster if not run locally.
strCommandLine = "mpiexec batchpi"
strWorkDir = "c:\scripts\"
strUsername = "" 'If empty string, script prompts for username.
strPassword = "" 'If empty string, script prompts for password.
blnIsConsole = True 'True = cmd-line, False = GUI
intHandle = 0
intNodes = 0
intProcs = 0
intJobs = 0

Set objComputeCluster = CreateObject("Microsoft.ComputeCluster.Cluster")
objComputeCluster.Connect(strClusterName)
WScript.Echo "Compute Cluster Name: " & objComputeCluster.Name
WScript.Echo "Compute Cluster Nodes"
Set colNodes = objComputeCluster.ComputeNodes

For Each objNode In colNodes
  WScript.Echo vbCrLf & "Name: " & objNode.Name
  WScript.Echo "  Number of Processors: " & objNode.NumberOfProcessors
  strStatus = ""
  Select Case objNode.Status
    Case 0 strStatus = "Ready"
    Case 1 strStatus = "Paused"
    Case 2 strStatus = "Unreachable"
    Case 3 strStatus = "Pending Approval"
    Case Else strStatus = "Status unobtainable"
  End Select
  WScript.Echo "  Status: " & strStatus
  If objNode.Status = 0 Then
    WScript.Echo "  Node available"
    intNodes = intNodes + 1
    intProcs = intProcs + objNode.NumberOfProcessors
    Set objJob = objComputeCluster.CreateJob
    objJob.Name = "Test-" & Date & "-" & Time
    objJob.AskedNodes = objNode.Name
    objJob.Priority = 2
    objJob.IsExclusive = False
    intJobID = objComputeCluster.AddJob((objJob))
    Set objTask = objComputeCluster.CreateTask
    objTask.Name = "Task1"
    objTask.CommandLine = strCommandLine
    objTask.Stdout = strWorkDir & strNode & "-Task1Out.txt"
    objTask.Stderr = strWorkDir & strNode & "-Task1Err.txt"
    objTask.WorkDirectory = strWorkDir
    intTaskID = objComputeCluster.AddTask(objJob.ID, (objTask))
    WScript.Echo "Task ID: " & objTask.ID
    objComputeCluster.SubmitJob intJobID, strUsername, strPassword, _
     blnIsConsole, intHandle
  Else
    WScript.Echo "  Node not available"
  End If
Next

WScript.Echo vbCrLf & "  Total nodes available: " & intNodes
WScript.Echo "  Total processors available: " & intProcs
WScript.Echo "  Total jobs submitted: " & intJobs