skrive til en txtfil med vbs

[ilpostino]

Jge holder på et vbs-script og har støtt på et lite problem jeg ikk ehar funnet noen løsning på. Jeg vil ha laget en txt-fil hvor versjonsnummeret til Office skal skrives inn. Hvis Access er lagt inn på maskinen vil jeg ha med dette også.

 

Da Word legges inn uansett versjon av Office sjekker jeg hvilken versjon dette er i tilleg til at jeg sjekker hvilken versjon av Acces som er lagt inn (jeg har her tatt høyde for at feltet med Access er tomt hvis dette ikke finnes på maskinen).

 

Problemet jeg har fått er når jeg skal skrive versjonsnummeret til txt-filen jeg har tenkt til å dumpe alt inn i. Scriptet jeg har laget så langt ser slik ut:

 

Option Explicit
Dim objFSO, objFolder, objShell, objTextFile, objFile
Dim strDirectory, strFile, strText, objWord, objAccess
strDirectory = "c:\logs3"
strFile = "\Summer.txt"

strText = "Version Word:  " & objWord.Version
'strText "Version Access: " & objAccess.Version
'strText "Build: " & objWord.Build
'strText "Product Code: " & objWord.ProductCode()

' Create the File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Check that the strDirectory folder exists
If objFSO.FolderExists(strDirectory) Then
  Set objFolder = objFSO.GetFolder(strDirectory)
Else
  Set objFolder = objFSO.CreateFolder(strDirectory)
End If

If objFSO.FileExists(strDirectory & strFile) Then
  Set objFolder = objFSO.GetFolder(strDirectory)
Else
  Set objFile = objFSO.CreateTextFile(strDirectory & strFile)
End If 

set objFile = nothing
set objFolder = nothing
' OpenTextFile Method needs a Const value
' ForAppending = 8 ForReading = 1, ForWriting = 2
Const ForAppending = 8

Set objTextFile = objFSO.OpenTextFile _
(strDirectory & strFile, ForAppending, True)

' Writes strText every time you run this VBScript
objTextFile.WriteLine(strText)
objTextFile.Close

' Bonus or cosmetic section to launch explorer to check file
If err.number = vbEmpty then
  Set objShell = CreateObject("WScript.Shell")
  objShell.run ("Explorer" &" " & strDirectory & "\" )
Else WScript.echo "VBScript Error: " & err.number
End If

WScript.Quit

[backup]

Kan ikke se at du har satt objWord objektet som for eksempel slik:

 

Set objWord = CreateObject("Word.Application")

strText = "Version Word: " & objWord.Version

msgbox(strText)

[ilpostino]

Kan ikke se at du har satt objWord objektet som for eksempel slik:

 

Set objWord = CreateObject("Word.Application")

strText = "Version Word:  " & objWord.Version

msgbox(strText)

 

så det nå

 

 

du vet vel ikke hvordan en viser/finner NetBIOS-navnet også vel?

[backup]

Hva med dette:

 

Set WshNetwork = WScript.CreateObject("WScript.Network")

msgbox "Domenenavn - NetBIOS: " & WshNetwork.UserDomain

[ilpostino]

det viste domenenavnet men det samme meg på riktig spor. takker og bukker