Hi
I have tried it out, it works quite well
except a part which is used to retrive the process , I am not quite sure how to convert it properly on VB.NET
for (int i = 0; i < split.Length; i++)
{
if (split
.Split('=').Length > 1)
{
// Extract the right name of the process
string []procDetails = split.Split('=');
procDetails[1] = procDetails[1].Replace(@"""", "");
procDetails[1] = procDetails[1].Replace(';', ' ');
switch (procDetails[0].Trim().ToLower())
{
case "caption":
dr[dc[0]] = procDetails[1];
break;
case "csname":
dr[dc[1]] = procDetails[1];
break;
case "description":
dr[dc[2]] = procDetails[1];
break;
case "name":
dr[dc[3]] = procDetails[1];
break;
case "priority":
dr[dc[4]] = procDetails[1];
break;
case "processid":
dr[dc[5]] = procDetails[1];
break;
case "sessionid":
dr[dc
] = procDetails[1];
break;
}
}
}
dt.Rows.Add(dr);
}
Instead of retrieving a value "Caption" after the Split method, i receive
" instance of Win32_Process{ Caption"
is there any way I could work around it?
here it is my version of the code above in VB.NET
For Each managementObj As ManagementObject In objSearcher.Get
Dim caption As String = managementObj.GetText(TextFormat.Mof)
Dim split() As String = caption.Split(separator, StringSplitOptions.RemoveEmptyEntries)
Dim dRow = tbl_Process.NewRow
For i As Int32 = 0 To split.Length - 1
If split(i).Split("=").Length > 1 Then
'Extract the right name of the process
Dim processDetails() As String = split(i).Split("="c)
processDetails(1) = processDetails(1).Replace("""", "")
processDetails(1) = processDetails(1).Replace(";"c, " "c)
Select Case (processDetails(0).Trim().ToLower)
Case "caption"
dRow(dc_Process(0)) = processDetails(1)
Case "csname"
dRow(dc_Process(1)) = processDetails(1)
Case "description"
dRow(dc_Process(2)) = processDetails(1)
Case "name"
dRow(dc_Process(3)) = processDetails(1)
Case "priority"
dRow(dc_Process(4)) = processDetails(1)
Case "processid"
dRow(dc_Process(5)) = processDetails(1)
Case "sessionid"
dRow(dc_Process(6)) = processDetails(1)
End Select
End If
Next
Could your please give me some advice about what have i done wrong, so that i can make it works on my VB application
Thanks in advance.
Problem on using "Process.Response" cannot retrieve the Response result on Remote VB6 Application.
