RE: Pull information from a file based on search criteria

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

RE: Pull information from a file based on search criteria

Logged in as: Guest

arrSession:exec spGetSession 2,2,40341

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> RE: Pull information from a file based on search criteria
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: << < prev 1 2 3 4 [5]

Message

<< Older Topic Newer Topic >>

RE: Pull information from a file based on search criteria - 12/13/2006 8:06:19 AM

ehvbs

Posts: 2058
Score: 50
Joined: 6/22/2005
From: Germany
Status: offline

Hi aburt,

welcome back! We don't need the InputBox, if and only if we can use nIP resp. sIP or use
a persistent (save to disk between runs) counter. I'd prefer the first alternative. What do
you think?

(in reply to aburt)

Post #: 81

RE: Pull information from a file based on search criteria - 12/13/2006 8:12:21 AM

aburt

Posts: 104
Score: 0
Joined: 12/4/2006
Status: offline

Im not clear on the difference so I have to say if you think the 1st altnertative is the best then by all means lets try that.

(in reply to ehvbs)

Post #: 82

RE: Pull information from a file based on search criteria - 12/13/2006 8:34:22 AM

ehvbs

Posts: 2058
Score: 50
Joined: 6/22/2005
From: Germany
Status: offline

Hi aburt,

help me get this right! If we use nIP (our counter to loop over the desired subnet IPs) and run the
script for different subnets, we would risk duplicate MACs (100.10.9.25 and 100.10.12.25 would
both generate a MAC 000000000025). If we use the full sIP or at least the last to octets, we'd
be on the save side. An addtional gain would be, that you could predict the MAC, when you
know the IP.

If you agree - could you post your current doTheRealWork() function? It would help me to
synchronize.

Thanks

(in reply to aburt)

Post #: 83

RE: Pull information from a file based on search criteria - 12/13/2006 8:54:04 AM

aburt

Posts: 104
Score: 0
Joined: 12/4/2006
Status: offline

ehvbs, your right I had not thought that far ahead that there would duplicate mac if I changed the subnets, good catch! Here is the code.

Function doTheRealWork()
  Dim nRVal : nRVal = 0 ' assume ok
  WScript.Echo "ok, doTheRealWork() was called!"
  Dim strDHCPFile : strDHCPFile    = gsFSpec 'Text File
  Dim sAll        : sAll           = goFS.OpenTextFile( strDHCPFile ).ReadAll
  Dim dicClients  : Set dicClients = parseDHCPRE( sAll )
  Dim dicParms    : Set dicParms   = CreateObject( "Scripting.Dictionary" )
  Dim sCmd, sRet
  Dim sKeyClient, dicParams
          
   ' that's my problem: sIPPfx/Scope/Netmask
  Dim sIPPfx      : sIPPfx = "100.10.9."
  Dim sIP
  Dim nIP 
  
     For nIP = 1 To 255 ' Ip Range - Last Octet
         sIP = CStr( nIP ) 
         sIP = sIPPfx + sIP 
         WScript.Echo "-------------", sIP, "-------------" 
      If dicClients.Exists( sIP ) Then
         WScript.Echo "Found"
'        stolen from cmdFound()
         dicParms( "<ServerName>"    ) = dicClients( sIP )("Owner Host NetBios Name")
         dicParms( "<ScopeID>"       ) = "100.10.9.0"
         dicParms( "<ReservedIP>"    ) = dicClients( sIP )( "IP Address" )
         'dicParms( "<MAC_Address>"   ) = dicClients( sIP )( "Client Hardware Address" )
         dicParms( "<MAC_Address>"   ) = Replace (dicClients( sIP )( "Client Hardware Address" ), "-", "" )
         dicParms( "<ClientName>"    ) = dicClients( sIP )( "Name" )
         dicParms( "<ClientComment>" ) = ""
       Else
         WScript.Echo "Not Found"
         Dim sKey
'        Set defaults
         For Each sKey In gdicDefParms
             dicParms( sKey ) = gdicDefParms( sKey )
         Next
'        handle=overwrite specials:
'        sIP is the IP we didn't find
         dicParms( "<ReservedIP>"    ) = sIP
'        we could/should remove dashes once for all at init/when reading it for the found IPs
'        but doing it here keeps all changes at one place; you can do the Replace() wherever
'        it's necessary
         
         dicParms( "<MAC_Address>"   ) = Replace( dicParms( "<MAC_Address>" ), "-", "" )
 
     
 End If
  sCmd = applyRpl( dicParms, gsCmd )
 sRet = runCmd( sCmd )
 'WScript.Echo "----------------------------------------"
      
      'Else
         'WScript.Echo "Not Found"
         'Dim sKey
         'For Each sKey In gdicDefParms
          '   dicParms( sKey ) = gdicDefParms( sKey )
         'Next
      'End If
      'sCmd = applyRpl( dicParms, gsCmd )
      'sRet = runCmd( sCmd )
      'WScript.Echo "----------------------------------------"
  Next
  doTheRealWork = nRVal
 End Function

(in reply to ehvbs)

Post #: 84

RE: Pull information from a file based on search criteria - 12/13/2006 9:16:40 AM

ehvbs

Posts: 2058
Score: 50
Joined: 6/22/2005
From: Germany
Status: offline

Hi aburt,

I changed the Else/Not found code:

and got:

cscript netshrun-03.vbs
 ok, doTheRealWork() was called!
 nUB 2 Count 3 Clients 2
 ------------- 100.10.9.1 -------------
 Not Found
 Run this from the commandline and hope for the best
 netsh dhcp server \\Server scope 100.10.9.1 add reservedip 100.10.9.1 000000009001 Machine Name nocomment
 ------------- 100.10.9.2 -------------
 Not Found
 Run this from the commandline and hope for the best
 netsh dhcp server \\Server scope 100.10.9.1 add reservedip 100.10.9.2 000000009002 Machine Name nocomment
 ------------- 100.10.9.3 -------------
 Not Found
 Run this from the commandline and hope for the best
 netsh dhcp server \\Server scope 100.10.9.1 add reservedip 100.10.9.3 000000009003 Machine Name nocomment
 
 C:\wis\_vbs\0506\dev\forum\netshrun
 cscript netshrun-03.vbs
 ok, doTheRealWork() was called!
 nUB 2 Count 3 Clients 2
 ------------- 100.10.12.1 -------------
 Not Found
 Run this from the commandline and hope for the best
 netsh dhcp server \\Server scope 100.10.9.1 add reservedip 100.10.12.1 000000012001 Machine Name nocomment
 ------------- 100.10.12.2 -------------
 Not Found
 Run this from the commandline and hope for the best
 netsh dhcp server \\Server scope 100.10.9.1 add reservedip 100.10.12.2 000000012002 Machine Name nocomment
 ------------- 100.10.12.3 -------------
 Not Found
 Run this from the commandline and hope for the best
 netsh dhcp server \\Server scope 100.10.9.1 add reservedip 100.10.12.3 000000012003 Machine Name nocomment

(in reply to aburt)