vbs legge output command line di ipconfig - scrive in un file indirizzo ip

' vbs legge output command line di ipconfig - scrive in un file indirizzo ip

option explicit

'

dim objShell, objWshScriptExec, objStdOut, strLine

'

dim cartella, dblog, slog

dim dbindirizzoip

cartella = "C:\lavori-07-2016\"

dblog = cartella & "ipconfig.txt"

dbindirizzoip = cartella & "il-mio-indirizzo-ip.txt"

'

call SovraScriviFile(dblog, " ")

'

Set objShell = CreateObject("WScript.Shell")

Set objWshScriptExec = objShell.Exec("ipconfig /all")

Set objStdOut = objWshScriptExec.StdOut

 

While Not objStdOut.AtEndOfStream

   strLine = objStdOut.ReadLine

   slog = strline

   call ScriviFileJollyAppend(dblog, slog)

   ' scrive in un file indirizzo ip

   If InStr(strLine,"Indirizzo IPv4") Then

       slog = strLine

       call SovraScriviFile(dbindirizzoip, slog)

   End If

Wend

'

' === sovra scrive file ===================

'

Sub SovraScriviFile(pNomeArchivio, pcosascrivere)

dim fso,  rifefile

Set fso=CreateObject("Scripting.FileSystemObject")

Set rifefile = fso.CreateTextFile(pNomeArchivio, TRUE)

rifefile.WriteLine(pcosascrivere)

rifefile.Close

set rifefile = Nothing

End Sub

'

' ==================

'

Sub ScriviFileJollyAppend(pNomeArchivio, pcosascrivere)

dim fso,  rifefile

Set fso=CreateObject("Scripting.FileSystemObject")

If (fso.FileExists(pNomeArchivio)) Then

      'msg = filespec & " esiste."

       Set rifefile = fso.OpenTextFile(pNomeArchivio, 8)

Else

      'msg = filespec & " Non esiste."

       Set rifefile = fso.CreateTextFile(pNomeArchivio, TRUE)

End If

rifefile.WriteLine(pcosascrivere)

rifefile.Close

set rifefile = Nothing

End Sub

'

' =========

'