• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 212
  • Last Modified:

need assistance with a vbscript

I recently posted a question as shown in the link below:
http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_26853905.html

the one thing i forgot to ask was how to modify this script so that i can input Class b subnets from our AD sites & services [subnets]. this script works perfectly if class C subnets are added. can someone please provide how to add in a Class B range?

thanks in advance,

S.
0
siber1
Asked:
siber1
1 Solution
 
RobSampsonCommented:
Hi, just realised you posted this as an extra question....

So you want to check just the first two octets?  My subnetting theory isn't that great.....

So, the array could look like this:
strOU = "OU=Corp Computers"
objSubnets.Add "192.168.", "OU=EMEA,OU=Corp Computers,"
objSubnets.Add "192.168.", "OU=NASA,OU=Corp Computers,"
objSubnets.Add "192.168.", "OU=APEC,OU=Corp Computers,"

and then you can change this:
            strSubNet = Left(strIP, InStrRev(strIP, "."))


to this:
            strSubNet = Left(Left(strIP, InStrRev(strIP, ".") - 1), InStrRev(Left(strIP, InStrRev(strIP, ".") - 1), "."))


to put xxx.xxx. as the comparison.

Regards,

Rob.
0
 
siber1Author Commented:
works like  a charm Rob. thanks again!
0

Featured Post

Evaluating UTMs? Here's what you need to know!

Evaluating a UTM appliance and vendor can prove to be an overwhelming exercise.  How can you make sure that you're getting the security that your organization needs without breaking the bank? Check out our UTM Buyer's Guide for more information on what you should be looking for!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now