Créer un txt dans le dossier TEMP

Version imprimable

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:

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.

BONJOUR et Bienvenu sur DVP

Code:

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

14/05/2011, 11h07
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 !!
14/05/2011, 11h14
SfJ5Rpw8

quelle erreur ? sur quelle ligne ?

J'ai fait, entre autres, ça :
Code:

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 !

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

Code:

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)

Citation:
Envoyé par Okapia
J'ai fait, entre autres, ça :
Code:

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 !
:salut:
Code:

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

:salut:
voila inspire-toi aussi de ce script similaire au tien :ccool:

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
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

16/05/2011, 19h12
Okapia

Okay, merci à tous pour vos explications