Hallo, das Powershell-Skript soll im Hintergrund ablaufen, die Form mit der ProgressBar im Vordergrund und natürlcih sollte der Balken aktualisiert werden. Ich hab mal den Code angehängt. Kann mir da jemand helfen?
Danke Armin
Private Sub Alle_Server_einlesen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Lines = System.IO.File.ReadAllText("datei").Split(Environment.NewLine)
Dim LineCount As Integer = Lines.Count
LineCount = LineCount - 1
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = LineCount
ProgressBar1.Value = 0
Dim i As Integer Form1.TreeView1.Nodes.Clear()
Form1.ListBox1.Items.Clear()
Form1.ListBox2.Items.Clear()
For Each zeile As String In IO.File.ReadAllLines("datei_2")
Form1.TreeView1.Nodes.Add(zeile)
Dim sFilePathe_n As String = "datei3"
Dim streami_n As FileStream = New FileStream(sFilePathe_n, FileMode.OpenOrCreate)
Dim SWriter_n As StreamWriter = New StreamWriter(streami_n, System.Text.Encoding.Default)
SWriter_n.WriteLine(zeile)
SWriter_n.Close()
If Dir("c:\TS_Tool\Benutzer.txt") <> "" Then
Kill("c:\TS_Tool\Benutzer.txt")
End If
Dim p As Process = Process.Start("C:\WINDOWS\system32\WindowsPowerShell\v1.0\powershell.exe", "c:\skript.ps1")
p.WaitForExit()
Dim benutzer_t As String
For Each benutzer As String In IO.File.ReadAllLines("datei3")
If benutzer.Contains("Active") Or benutzer.Contains("Disconnected") Then
benutzer_t = RTrim(benutzer)
Form1.TreeView1.Nodes(i).Nodes.Add(benutzer_t)
End If
Next
ProgressBar1.Value = ProgressBar1.Value + 1
Next
End Sub
