Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Scripting Microsoft [HELP] Ecrire un résultat dans un fichier

[HELP] Ecrire un résultat dans un fichier

2 réponses
Avatar
m
Bonjour,

je suis novice en vbscript, j'aimerai écrire le resultat de mes variables
dans un fichier sur un serveur ex :\\SRV\memory.txt
Actuellement j'ai trouvé la fonction qui me permet de les afficher a l'ecran
dans une fenetre, mais impossible de trouver la fonction qui me permette de
l'écrire dans un fichier.
Le probleme c'est que je ne sais pas trop comment faire..

Merci de votre aide....




Option Explicit
Dim objWMIService, objComputer, colComputer
Dim strLogonUser, strComputer

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")

For Each objComputer in colComputer
Wscript.Echo "System Name: " & objComputer.Name _
& vbCr & "Total RAM " & objComputer.TotalPhysicalMemory
Next

WScript.Quit
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
m
J'essai ceci depuis tout a l'heure mais sans success.

Merci de m'éclairer.



Option Explicit

Dim objWMIService, objComputer, colComputer

Dim strLogonUser, strComputer

Dim objFSO, objFSOText, objFolder, objFile

Dim strDirectory, strFile

strDirectory = "c:logsguy1"

strFile = "Summer.txt"

strComputer = "."

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.CreateFolder(strDirectory)



Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!" _

& strComputer & "rootcimv2")

Set colComputer = objWMIService.ExecQuery _

("Select * from Win32_ComputerSystem")

For Each objComputer in colComputer

Wscript.Echo "System Name: " & objComputer.Name _

& vbCr & "Total RAM " & objComputer.TotalPhysicalMemory

Set objFile = objFSO.CreateTextFile(strDirectory & strFile)

Wscript.Echo "System Name: " & objComputer.Name _

& vbCr & "Total RAM " & objComputer.TotalPhysicalMemory

Next

WScript.Quit
Avatar
Gilles LAURENT
"m" a écrit dans le message de
news:

Bonjour,

| J'essai ceci depuis tout a l'heure mais sans success.
|
| Merci de m'éclairer.

Ecrire d'une ligne de texte dans le fichier 'File.log' :

Set oFs = CreateObject ("Scripting.FileSystemObject")
Set oFile = oFs.CreateTextFile ("File.log")
oFile.WriteLine "Hello from VBScript !"

--
Gilles LAURENT
http://glsft.free.fr