Notifikationer

Markér alle som læst Log ud

fqthjoe Nybegynder

23. maj 2007 - 21:32 Der er 3 kommentarer og
1 løsning

Informationer skrevet ud til fil istedet for messageboxe

Hej,
Jeg kunne godt tænke mig at få mine output-resultater skrevet ud til en fil, f.eks. rtf eller lign. istedet for de kommer ud i "message-bokse".

Kan det lade sig gøre ?

vh thjoe
f.eks. dette:

' List Operating System and Service Pack Information

' Windows Server 2003 : Yes
' Windows XP : Yes
' Windows 2000 : Yes
' Windows NT 4.0 : Yes
' Windows 98 : Yes

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOS in colOSes
Wscript.Echo "Computer Name: " & objOS.CSName
Wscript.Echo "Caption: " & objOS.Caption 'Name
Wscript.Echo "Version: " & objOS.Version 'Version & build
Wscript.Echo "Build Number: " & objOS.BuildNumber 'Build
Wscript.Echo "Build Type: " & objOS.BuildType
Wscript.Echo "OS Type: " & objOS.OSType
Wscript.Echo "Other Type Description: " & objOS.OtherTypeDescription
WScript.Echo "Service Pack: " & objOS.ServicePackMajorVersion & "." & _
objOS.ServicePackMinorVersion
Next

Synes godt om

killerclown Nybegynder

23. maj 2007 - 21:41 #1

Hey !
Dette script fyrer det ind i filen angivet son fil :

' List Operating System and Service Pack Information

' Windows Server 2003 : Yes
' Windows XP : Yes
' Windows 2000 : Yes
' Windows NT 4.0 : Yes
' Windows 98 : Yes

fil = "c:\users\morten\documents\data.txt"

const ForWriting = 2
set fso = createobject("scripting.filesystemobject")

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOS in colOSes
strtekst = strtekst & "Computer Name: " & objOS.CSName & vbcrlf
strtekst = strtekst & "Caption: " & objOS.Caption & vbcrlf 'Name
strtekst = strtekst & "Version: " & objOS.Version & vbcrlf 'Version & build
strtekst = strtekst & "Build Number: " & objOS.BuildNumber & vbcrlf 'Build
strtekst = strtekst & "Build Type: " & objOS.BuildType & vbcrlf
strtekst = strtekst & "OS Type: " & objOS.OSType & vbcrlf
strtekst = strtekst & "Other Type Description: " & objOS.OtherTypeDescription & vbcrlf
strtekst = strtekst & "Service Pack: " & objOS.ServicePackMajorVersion & "." & _
objOS.ServicePackMinorVersion
Next

set ts = fso.opentextfile(fil,ForWriting,1)
ts.write strtekst
ts.close

/killer

Synes godt om

fqthjoe Nybegynder

23. maj 2007 - 21:51 #2

Kanon. Lige det... takker og bukker.
PS. Kan scriptet slutte af med at åbne filen ?

Synes godt om

killerclown Nybegynder

23. maj 2007 - 22:06 #3

Velbekomme, og ja :
(Det er kun sidste linie, der skal tilføjes :o) )

' List Operating System and Service Pack Information

' Windows Server 2003 : Yes
' Windows XP : Yes
' Windows 2000 : Yes
' Windows NT 4.0 : Yes
' Windows 98 : Yes

fil = "c:\users\morten\documents\data.txt"

const ForWriting = 2
set fso = createobject("scripting.filesystemobject")
set shell = wscript.createobject("wscript.shell")
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOS in colOSes
strtekst = strtekst & "Computer Name: " & objOS.CSName & vbcrlf
strtekst = strtekst & "Caption: " & objOS.Caption & vbcrlf 'Name
strtekst = strtekst & "Version: " & objOS.Version & vbcrlf 'Version & build
strtekst = strtekst & "Build Number: " & objOS.BuildNumber & vbcrlf 'Build
strtekst = strtekst & "Build Type: " & objOS.BuildType & vbcrlf
strtekst = strtekst & "OS Type: " & objOS.OSType & vbcrlf
strtekst = strtekst & "Other Type Description: " & objOS.OtherTypeDescription & vbcrlf
strtekst = strtekst & "Service Pack: " & objOS.ServicePackMajorVersion & "." & _
objOS.ServicePackMinorVersion
Next

set ts = fso.opentextfile(fil,ForWriting,1)
ts.write strtekst
ts.close
shell.run fil

Synes godt om

fqthjoe Nybegynder

23. maj 2007 - 22:22 #4

Fedt... Og endnu engang tak.

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra VBscript kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
VBS Af bsn i VBscript	5	16/07/202614:01	18/07/202610:46
Ændre navn på folder Af bsn i VBscript	12	07/07/202312:45	09/07/202307:04
Outlook makro Af Webnoob i VBscript	6	09/02/202313:32	16/02/202315:51
Sti / Filname med mellemrum ??? Af ksor i VBscript	10	07/10/202200:43	07/10/202215:40
GetLastRow - Google spreadsheet Af rickiegrayholm i VBscript	2	22/04/202213:23	22/04/202214:55

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS