Discussion :

[Okapia]

Bonjour,
J'aimerais modifier ce script, qui énumère dans un fichier text les logiciels installés, pour que logiciels.txt soit enregistré dans le dossier TEMP de l'utilisateur. %TEMP%\fichier.txt ne marche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("c:\dossier\logiciels.txt", True)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_Product")
objTextFile.WriteLine "Caption" & vbtab & _
"Description" & vbtab & "Identifying Number" & vbtab & _
"Install Date" & vbtab & "Install Location" & vbtab & _
"Install State" & vbtab & "Name" & vbtab & _
"Package Cache" & vbtab & "SKU Number" & vbtab & "Vendor" & vbtab _
 & "Version"
For Each objSoftware in colSoftware
 objTextFile.WriteLine objSoftware.Caption & vbtab & _
 objSoftware.Description & vbtab & _
 objSoftware.IdentifyingNumber & vbtab & _
 objSoftware.InstallLocation & vbtab & _
 objSoftware.InstallState & vbtab & _
 objSoftware.Name & vbtab & _
 objSoftware.PackageCache & vbtab & _
 objSoftware.SKUNumber & vbtab & _
 objSoftware.Vendor & vbtab & _
 objSoftware.Version
Next
objTextFile.Close

Merci de votre aide.

[l_autodidacte]

BONJOUR et Bienvenu sur DVP

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Const TemporaryFolder=2
Set fso=createObject("Scripting.FileSystemObject")
msgbox fso.GetSpecialFolder(TemporaryFolder)

[Okapia]

Merci mais comme je m'y connais encore rien du tout en VBS, j'ai pas pu adapter ta solution (qui donne un messagebox) pour enregistrer logiciels.txt dans temporary folder, ça me donne toujours une erreur !!

[SfJ5Rpw8]

quelle erreur ? sur quelle ligne ?

[Okapia]

J'ai fait, entre autres, ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Const TemporaryFolder=2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("TemporaryFolder\logiciels.txt", True)

Et le reste est identique que mon code, ça donne erreur en ligne 3, chemin introuvable !

[SfJ5Rpw8]

tu as oublié la fonction que t'as présenté l_autodidacte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 
(...)
Const TemporaryFolder=2
Dim stFichier,objFSO,objTextFile 
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
stFichier =  fso.GetSpecialFolder(TemporaryFolder) & "\logiciels.txt"
 
Msgbox stFichier ' Affiche "temporairement" un message permettant de vérifier le chemin+nom de fichier ..
Set objTextFile = objFSO.CreateTextFile(stFichier, True)

[hackoofr]

J'ai fait, entre autres, ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Const TemporaryFolder=2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("TemporaryFolder\logiciels.txt", True)

Et le reste est identique que mon code, ça donne erreur en ligne 3, chemin introuvable !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Const TemporaryFolder=2
Set fso=createObject("Scripting.FileSystemObject")
Temp = fso.GetSpecialFolder(TemporaryFolder)
MsgBox Temp
file = Temp & "\logiciels.txt"
fso.CreateTextFile file ,1, True

[hackoofr]

voila inspire-toi aussi de ce script similaire au tien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
call Inventaire
Function inventaire
Set WshNetwork = WScript.CreateObject("WScript.Network")
 NomMachine = WshNetwork.ComputerName
 NomUtilisateur = WshNetwork.UserName
 Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
 set objShell=CreateObject("WScript.shell")
tmp = objShell.ExpandEnvironmentStrings("%temp%")& "\"
'NomFichier = NomMachine & "_" & NomUtilisateur
'NomFichier_Date = NomFichier & "_" & Day(Now) & "_" & Month(Now) & "_" & Year(Now)
Set fso = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("wscript.Shell")
Set env = oShell.environment("Process")
strComputer = env.Item("Computername")
Const HKEY_LOCAL_MACHINE = &H80000002
Const UnInstPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
".\root\default:StdRegProv")
oReg.EnumKey HKEY_LOCAL_MACHINE, UnInstPath, arrSubKeys
software = "*******************************" & Now & "*****************************" & vbCrLf
software = software & "*******************************Logiciels installés*******************************" & vbCrLf
For Each subkey In arrSubKeys
        'MsgBox subkey
        If Left (subkey, 1) <> "{" Then
                software = software & subkey & vbCrLf
        End If
Next
software = software & "*********************************************************" & vbCrLf
 
Set fso = CreateObject("Scripting.FileSystemObject")
 
'Détermine si le fichier csv existe déjà ou s'il doit le créer
If Not fso.FileExists("inventaire " & strComputer & ".csv") Then
        set ts = fso.CreateTextFile(tmp & "Inventaire " & strComputer & ".csv", True)
		Explorer(tmp & "inventaire " & strComputer & ".csv")
Else
        set ts = fso.OpenTextFile(tmp & "Inventaire " & strComputer & ".csv", 2, True)
		Explorer(tmp & "inventaire " & strComputer & ".csv")
End If
 
ts.write software
inventaire=software
end function
 
Function Explorer(File)
    Set ws=CreateObject("wscript.shell")
    ws.run "Explorer "& File & "\"
end Function

[Okapia]

Okay, merci à tous pour vos explications