[VB.Net] Comment gérer les fichiers ?

Version imprimable

25/05/2006, 12h54
JPV_MJ

[VB.Net] Comment gérer les fichiers ?

Bonjour,

J'ai une application en vb.net, celle ci a pour but de mettre a jour de facon automatique un parc informatique. Pour le moment, j'arrive à récuperer la liste des programmes installés ainsi que le nom de la machine. Je met ça dans un fichier et ce fichier, je l'envoie par socket. Mon problème est que je souhaiterai ouvrir et exploiter ce fichier par un serveur afin de l'enregistrer dans une base de donnée.

Comment gere t-on les fichiers en vb.net ?

Je vous en remercie par avance,
25/05/2006, 12h57
StormimOn

La question étant très vague, regarde du côté de l'espace de noms System.IO ;)
25/05/2006, 13h05
neguib

En effet ta question est très vague, que veux-tu faire précisement que tu n'arrive pas à faire ?
22/08/2006, 23h31
exclusif

Bonsoir,

comment fais-tu pour récupérer la liste des programmes installés sur une machine stp ?

Merci

Ludo
23/08/2006, 12h10
ouam81

Citation:

Envoyé par exclusif

Bonsoir,

comment fais-tu pour récupérer la liste des programmes installés sur une machine stp ?

Merci

Ludo

via WMI est une solution ...
24/08/2006, 16h31
exclusif

Oui mais comment ?

Avec les WMI on ne peut pas avoir que des infos sur le matériel ?

Bonsoir,

Pour répondre à la question de JPV_MJ (si je l'ai bien comprise)
Il faut que tu utilises la classe StreamReader.
Petit exemple d'utilisation :
Code:

1 2 3 4 5 Dim StreamRead As StreamReader = File.OpenText("c:\test\test.txt") Dim Contenu As String = StreamRead.ReadToEnd StreamRead.Close() RichTextBox1.Text = Contenu
Cependant j'imagine que tu traiteras ton fichier ligne par ligne pour les "inserts" dans ta base de données et par conséquent il serait préférable de faire ainsi :
Code:

1 2 3 4 5 6 7 8 9 Dim StreamRead As StreamReader = File.OpenText("c:\test\test.txt") Dim Contenu As String Do Until StreamRead.Peek = -1 'Ici ta procédure qui insert chaque ligne dans ta base de données Contenu = StreamRead.ReadLine Loop StreamRead.Close()
En ce qui concerne la question de exclusif, je t'ai fais un bout de code que tu pourras améliorer qui te retourne la liste des programmes installés sur ton PC.
J'ai redirigé la sortie standard vers un string. Tu devras néanmoins retravailler un peu la chaîne pour améliorer la présentation. Il existe peut-être une méthode plus simple mais je ne la connais pas ;-)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Dim ListerProgrammes As New Process() ListerProgrammes.StartInfo.FileName = "wmic" ListerProgrammes.StartInfo.Arguments = "product get" ListerProgrammes.StartInfo.UseShellExecute = False ListerProgrammes.StartInfo.RedirectStandardOutput = True ListerProgrammes.Start() Dim MonStream As StreamReader Dim MaChaine As String = Nothing While Not ListerProgrammes.StandardOutput.EndOfStream MonStream = ListerProgrammes.StandardOutput MaChaine += MonStream.ReadLine() End While ListerProgrammes.Close() 'Ne prend pas peur à l'affichage ;-) ' il faudra faire une petite retouche RichTextBox1.Text = MaChaine
J'espère que même si ce ne sont pas les solutions optimales, cela vous aidera.

M@t

24/08/2006, 23h53
exclusif

En effet ca affiche la liste des programmes installés. Va falloir que je regarde ça de plus près pour essayer de filtrer les infos et surtout pour pas gérer dans un nouveau process mais dans mon appli.

Merci :)

Bonsoir Exclusif,

Aprés un peu de recherche j'arrive au résultat suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim Registre As String =
 "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
Dim ClefRegistre As RegistryKey =
 Registry.LocalMachine.OpenSubKey(Registre)
 
For Each clef As String In ClefRegistre.GetSubKeyNames
  Dim SousClef As RegistryKey = ClefRegistre.OpenSubKey(clef)
  If SousClef.GetValue("DisplayName") <> "" Then
     ListBox1.Items.Add(SousClef.GetValue("DisplayName"))
  End If
Next

J'espère que cela te convient.

Math

CA me convient amplement, merci beaucoup :) C'est supe sympa d'avoir passé autant de temps sur mon problème.

De mon côté j'ai trouvé ça pour utiliser les wmi :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Imports System
Imports System.Management
Imports System.Windows.Forms
 
Namespace WMISample
 
  Public Class MyWMIQuery
 
    Public Overloads Shared Function Main() As Integer
 
      Try
         Dim searcher As New ManagementObjectSearcher( _
           "root\CIMV2", _
           "SELECT * FROM Win32_Product") 
 
         For Each queryObj As ManagementObject in searcher.Get()
            Console.WriteLine("-----------------------------------")
            Console.WriteLine("Win32_Product instance")
            Console.WriteLine("-----------------------------------")
            Console.WriteLine("InstallDate: {0}", queryObj("InstallDate"))
            Console.WriteLine("Name: {0}", queryObj("Name"))
          Next
       Catch err As ManagementException
         MessageBox.Show("An error occurred while querying " 
 + "for WMI data: " + err.Message)
        End Try
     End Function
  End Class
End Namespace

Il reste plus qu'à virer les console.writeline et à faire en sorte que cela s'affiche dans une listview mais ça je sais faire ;)

++

Ludo

Citation:
Envoyé par Mathieu Francesch
Bonsoir Exclusif,

Aprés un peu de recherche j'arrive au résultat suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim Registre As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" Dim ClefRegistre As RegistryKey = Registry.LocalMachine.OpenSubKey(Registre) For Each clef As String In ClefRegistre.GetSubKeyNames Dim SousClef As RegistryKey = ClefRegistre.OpenSubKey(clef) If SousClef.GetValue("DisplayName") <> "" Then ListBox1.Items.Add(SousClef.GetValue("DisplayName")) End If Next
J'espère que cela te convient.

Math
Bonsoir Mathieu

J'ai essayé ton code ici dessus pour récupérer la liste des programmes installés mais j'obtiens l'erreur suivante : Une erreur est survenue :

La référence d'objet n'est pas définie à une instance d'un objet.

Et je peux pas utiliser les WMI car certains logiciels ne sont pas détectés.

Merci

Ludo

Bonjour Ludo,

Chez moi cela fonctionne mais bon ... Il doit y avoir une raison alors pour commencer :

Lorsque tu regardes dans ta base de registres est ce que tu trouves la clef : SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall dans LocalMachine

Sinon j'ai apporté une petite modification au code mais je ne pense pas que
cela arrange quelque chose concernant ton problème :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 'Au préalable imports Windows.W32 Dim Registre As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" Dim ClefRegistre As RegistryKey = Registry.LocalMachine.OpenSubKey(Registre) For Each clef As String In ClefRegistre.GetSubKeyNames Dim SousClef As RegistryKey = ClefRegistre.OpenSubKey(clef) Try ListBox1.Items.Add(SousClef.GetValue("DisplayName")) Catch ex As Exception End Try Next
Tiens moi au courant,

Math

27/08/2006, 21h59
exclusif

Parfait ca fonctionne très bien maintenant.

En fait il me manquait la référence (Imports Microsoft.W32) donc j'avais corriger les erreurs en appliquant ce que VS2005 m'avait proposé mais ca me générait l'erreur cité plus haut.

En tout cas maintenant tout baigne ! Merci bcp :)

Ludo