Dumping variables to text file

[sept06]

I am anew beginner in Autoit ....

i found th following script on this forum which displays inormations about computer .

I tried to write the rsults to a text file .

Biy i am not getting the whole thing ....

I think the script loops when displaying meesages .....

Any ideas .. Out there ? Thanks !

; Generated by AutoIt Scriptomatic

$wbemFlagReturnImmediately = 0x10

$wbemFlagForwardOnly = 0x20

$colItems = ""

$strComputer = "localhost"

$Output=""

$Output = $Output & "Computer: " & $strComputer & @CRLF

$Output = $Output & "==========================================" & @CRLF

$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")

$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive", "WQL", _

$wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) then

For $objItem In $colItems

;~ $Output = $Output & "Availability: " & $objItem.Availability & @CRLF

$Output = $Output & "BytesPerSector: " & $objItem.BytesPerSector & @CRLF

$strCapabilities = $objItem.Capabilities(0)

$Output = $Output & "Capabilities: " & $strCapabilities & @CRLF

$strCapabilityDescriptions = $objItem.CapabilityDescriptions(0)

$Output = $Output & "CapabilityDescriptions: " & $strCapabilityDescriptions & @CRLF

$Output = $Output & "Caption: " & $objItem.Caption & @CRLF

;~ $Output = $Output & "CompressionMethod: " & $objItem.CompressionMethod & @CRLF

;~ $Output = $Output & "ConfigManagerErrorCode: " & $objItem.ConfigManagerErrorCode & @CRLF

;~ $Output = $Output & "ConfigManagerUserConfig: " & $objItem.ConfigManagerUserConfig & @CRLF

;~ $Output = $Output & "CreationClassName: " & $objItem.CreationClassName & @CRLF

;~ $Output = $Output & "DefaultBlockSize: " & $objItem.DefaultBlockSize & @CRLF

$Output = $Output & "Description: " & $objItem.Description & @CRLF

$Output = $Output & "DeviceID: " & $objItem.DeviceID & @CRLF

;~ $Output = $Output & "ErrorCleared: " & $objItem.ErrorCleared & @CRLF

;~ $Output = $Output & "ErrorDescription: " & $objItem.ErrorDescription & @CRLF

;~ $Output = $Output & "ErrorMethodology: " & $objItem.ErrorMethodology & @CRLF

;~ $Output = $Output & "Index: " & $objItem.Index & @CRLF

;~ $Output = $Output & "InstallDate: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF

$Output = $Output & "InterfaceType: " & $objItem.InterfaceType & @CRLF

;~ $Output = $Output & "LastErrorCode: " & $objItem.LastErrorCode & @CRLF

$Output = $Output & "Manufacturer: " & $objItem.Manufacturer & @CRLF

;~ $Output = $Output & "MaxBlockSize: " & $objItem.MaxBlockSize & @CRLF

;~ $Output = $Output & "MaxMediaSize: " & $objItem.MaxMediaSize & @CRLF

$Output = $Output & "MediaLoaded: " & $objItem.MediaLoaded & @CRLF

$Output = $Output & "MediaType: " & $objItem.MediaType & @CRLF

;~ $Output = $Output & "MinBlockSize: " & $objItem.MinBlockSize & @CRLF

$Output = $Output & "Model: " & $objItem.Model & @CRLF

$Output = $Output & "Name: " & $objItem.Name & @CRLF

;~ $Output = $Output & "NeedsCleaning: " & $objItem.NeedsCleaning & @CRLF

;~ $Output = $Output & "NumberOfMediaSupported: " & $objItem.NumberOfMediaSupported & @CRLF

$Output = $Output & "Partitions: " & $objItem.Partitions & @CRLF

;~ $Output = $Output & "PNPDeviceID: " & $objItem.PNPDeviceID & @CRLF

;~ $strPowerManagementCapabilities = $objItem.PowerManagementCapabilities(0)

;~ $Output = $Output & "PowerManagementCapabilities: " & $strPowerManagementCapabilities & @CRLF

;~ $Output = $Output & "PowerManagementSupported: " & $objItem.PowerManagementSupported & @CRLF

;~ $Output = $Output & "SCSIBus: " & $objItem.SCSIBus & @CRLF

;~ $Output = $Output & "SCSILogicalUnit: " & $objItem.SCSILogicalUnit & @CRLF

;~ $Output = $Output & "SCSIPort: " & $objItem.SCSIPort & @CRLF

;~ $Output = $Output & "SCSITargetId: " & $objItem.SCSITargetId & @CRLF

$Output = $Output & "SectorsPerTrack: " & $objItem.SectorsPerTrack & @CRLF

$Output = $Output & "Signature: " & $objItem.Signature & @CRLF

$Output = $Output & "Size: " & $objItem.Size & @CRLF

$Output = $Output & "Status: " & $objItem.Status & @CRLF

;~ $Output = $Output & "StatusInfo: " & $objItem.StatusInfo & @CRLF

;~ $Output = $Output & "SystemCreationClassName: " & $objItem.SystemCreationClassName & @CRLF

$Output = $Output & "SystemName: " & $objItem.SystemName & @CRLF

$Output = $Output & "TotalCylinders: " & $objItem.TotalCylinders & @CRLF

$Output = $Output & "TotalHeads: " & $objItem.TotalHeads & @CRLF

$Output = $Output & "TotalSectors: " & $objItem.TotalSectors & @CRLF

$Output = $Output & "TotalTracks: " & $objItem.TotalTracks & @CRLF

$Output = $Output & "TracksPerCylinder: " & $objItem.TracksPerCylinder & @CRLF

if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop

$Output=""

Next

Else

Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_DiskDrive" )

Endif

; >> here comes my attempt ..

$file = FileOpen("info5.txt", 1)

FileWrite($file,"Computer="& $strComputer & @crlf);

FileWrite($file,""& @crlf);

FileWrite($file,"BytesPerSector="& $objItem.BytesPerSector & @crlf);

FileWrite($file,"Capabilities="& $strCapabilities & @crlf);

FileWrite($file,"CapabilityDescriptions="& $strCapabilityDescriptions & @crlf);

FileWrite($file,"Caption="& $objItem.Caption & @crlf);

FileWrite($file,"Description="& $objItem.Description & @crlf);

FileWrite($file,"DeviceID="& $objItem.DeviceID & @crlf);

FileWrite($file,"InterfaceType="& $objItem.InterfaceType & @crlf);

FileWrite($file,"size="& $objItem.Size & @crlf);

FileClose($file)

; here ends my

;~ Func WMIDateStringToDate($dtmDate)

;~ Return (StringMid($dtmDate, 5, 2) & "/" & _

;~ StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _

;~ & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2))

;~ EndFunc

[Paulie]

I think the For...Next loop is whats repeating, just move your stuff right before the "if msgbox..." line

Instead of filewrite

Your job'll be much easier with 'filewriteline'

Good attempt though

[rbhkamal]

try to replace this:

$Output=""oÝ÷ Û­Øb±«­¢+ØÀÌØí=ÕÑÁÕÐôÀÌØí=ÕÑÁÕеÀí±oÝ÷ Ù§íz»ay«­¢+Ù¥5ͽà Ä°ÅÕ½Ðí]5$=ÕÑÁÕÐÅÕ½Ðì°ÀÌØí=ÕÑÁÕФôÈÑ¡¸á¥Ñ1½½

Edit:then write $Output to the file

RK

Edited August 23, 2006 by rbhkamal