Trying to find a line and conditionally replace it

[slartie]

I have a script that gathers BIOS and registry information for the PC's in my company network, writes the information to a text file. Now I'd like to expand the script, so it maintains the list of records, but updates a line of information with new data if that happens to be the case.

In this case I'd like to update the records to reflect that a new user is using a given machine.

I've found _FileWriteToLine which would seem to be the way to go, but it's been a bit too long since I last messed with AutoIt, so I'm actually not sure how to go about it. Any help/tips would be greatly appreciated.

expandcollapse popup

$servicetag = ""
$manufacturer = ""
$cpuspeed = ""
$cpu = ""
$model = ""
$modeldell = ""
servicetag()
registryinfo()
writemachineinfo()

Func servicetag()
$objshell = ObjCreate("WScript.Shell")
$objfs = ObjCreate("Scripting.FileSystemObject")
$strcomputer = "."
$owmi = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & $strcomputer & "\root\cimv2")
$colsmbios = $owmi.execquery("Select * from Win32_SystemEnclosure")
For $objsmbios In $colsmbios
$servicetag = $objsmbios.serialnumber
$manufacturer = $objsmbios.manufacturer
Next
EndFunc

Func registryinfo()
$cpuspeed = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "~MHz")
$cpu = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString")
$model = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "SystemFamily")
$modeldell = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "SystemProductName")
EndFunc

Func writemachineinfo()
$filetoopen = FileOpen("\\srv11\MachineInfo\records.txt", 0)
$textfilename = FileRead($filetoopen)
FileClose($filetoopen)
$texttofile = @ComputerName & "," & @UserName & "," & $servicetag & "," & $manufacturer & "," & $model & "," & $modeldell & "," & @OSVersion & "," & $cpu & @CRLF
If StringInStr($textfilename, @ComputerName, 0) Then
Else
$filetoopen = FileOpen("\\srv11\MachineInfo\records.txt", 2)
$temp = $textfilename & $texttofile
FileWrite($filetoopen, $temp)
FileClose($filetoopen)
EndIf
EndFunc

[PhoenixXL]

i think u should try Ini's

using them if the keyname is the same then the data of the key is overwritten

This should be the simplest way [ in accordance to me]

Try IniWrite and IniRead in place of FileWrite and FileRead respectively

Regards

Phoenix XL

[slartie]

While I can see how the .Ini approach would work, it would make the records a slight nightmare to import into a database elsewhere.

So for now I'll have to find a way to manipulate the records.txt file "as is" rather than changing the format.

[JLogan3o13]

While I can see how the .Ini approach would work, it would make the records a slight nightmare to import into a database elsewhere.

So why not look into AutoIt's SQLite options in the help file, and use a database to begin with? Then you won't have to worry about correctly importing from a flat text file later on

[slartie]

So why not look into AutoIt's SQLite options in the help file, and use a database to begin with? Then you won't have to worry about correctly importing from a flat text file later on

Now there's something I didn't know about. I'll be looking into that immediately!

Thanks for the heads up!