Macro help

[Curdled_Pus]

This is a new venture for me & am wanting to make a macro to change my Mac address instead of going through 17 steps, clicks & scrolls. I already have have a batch file for ipconfig/release which is one of the 17 steps. It takes about 30 seconds to do this by hand but when you go through this time & time again it gets old real fast. I thought now is a good time to advance.
I've tried NetTools 5 & can't get it to go all the way through. It starts clicking in mid air where the last box was. I've also Googled help but nothing specific on how or what to do to make it. Like what steps, what to type, how to type it out etc. I am a loss & know hardly nothing about Macros.
Your guidance would be Greatly appreciated. Thank You

[mark_E]

don't do anything with a macro

[Curdled_Pus]

Originally Posted by mark_E

don't do anything with a macro

Any suggestions then? And why?

[mark_E]

The macros i used to use/create were notorious 4 doing exactly what ur discovering so i really wouldn't recommend them 4 anything - pretty bloody useless. Unsure if things have improved 'recently' (gave up on them many years ago) but sounds like they haven't.

i'm not sure what to suggest to do it. How do u do it manually? (and why r u wanting to do it?) I used to do RAD programming (i.e.delphi) and would b tempted to use that if i couldn't find something free on the net or couldn't do it with something simple like (java) script (?).

. . . i'm outa touch with any of this kinda stuff tho tbh for the last 5 or 6 years.

let me know if u come up with something useful. also let me know how u do it manually and mayb i can come up with something to help

[wormboy]

usage: cscript spoof.vbs <spoof address>

Const HIVE = &H80000002
Const networkSubKey = "NetworkAddress"
'Const newAddress = "000C41ADD697"

Dim regObj, arrSubKeys, str, subKeyPath,  newAddress

'newAddress = InputBox("addr:", "Spoof MAC address")
If WScript.Arguments.Count = 0 Then
Wscript.Echo "usage: cscript spoof.vbs <spoof address>"
WScript.Quit
Else
newAddress = Wscript.Arguments.Item(0)
End If

Set regObj = GetObject("WinMgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
subKeyPath = "SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\0010"

Function RegistryKeyExists(LNGHKEY, strKey, subKey)
RegistryKeyExists = False
regObj.EnumValues LNGHKEY, strKey, arrSubKeys
If Not IsNull(arrSubKeys) Then
For Each str In arrSubKeys
If lcase(str) = lcase(subKey) Then
RegistryKeyExists = True
Exit Function
End If
Next
End If
End Function

If RegistryKeyExists(HIVE, subKeyPath, networkSubKey) = True Then
If (regObj.SetStringValue(HIVE, subKeyPath, networkSubKey, newAddress) <> 0) And (Err.Number <> 0) Then
Wscript.Echo "SetStringValue error: " & Err.Number
End If
Else
If (regObj.CreateKey(HIVE, subKeyPath) = 0) And (Err.Number = 0) Then
If (regObj.SetStringValue(HIVE, subKeyPath, networkSubKey, newAddress) <> 0) And (Err.Number <> 0) Then
Wscript.Echo "SetStringValue error: " & Err.Number
End If
Else
Wscript.Echo "CreateKey error: " & Err.Number
End If
End If

take note of subKeyPath variable

[edit]
don't add "-", " ", or "." to the address

[edit]
the subkey 0010 of {4D36E972-E325-11CE-BFC1-08002bE10318} pertains to my Wireless-G notebook adapter. forgot to mention i was using my own stuff as an example. sorry about that.

[wormboy]

Originally Posted by mark_E

... and why r u wanting to do it?

I was wondering why, too. I think it has to do with some limitation concerning a file hosting service.

[mark_E]

good shit wormboy.

yes i'd assume the reason to b something similar. i thought there were freely available utilities to change the addresses tho' and ways of getting premium (or equivalent) accounts.

use torrents myself so could b talking out a hole in my arse . . .

[Curdled_Pus]

Yeah, it's for file hosting limits when I come across something large I want & it's on one of them. I've tried a number of those tools that are supposed to do the same thing & they all fail in different ways. For me at least. I've quit trying them even. Love to find one that works like it supposed to though. The last 9 mo or so I've gotten more into torrents.

[wormboy]

My dad had once tried to block my internet access when I was younger, but I fucking owned him using a similar technique.

I wasn't familiar with how these popular file hosting services operate. So, I did the research. Now I see where the user IP comes into the picture. This will change the IP:

usage:
cmd.exe cscript changemyip.vbs <computer name> <ip address>

examples:
cmd.exe cscript changemyip.vbs . 192.168.1.104
cmd.exe cscript changemyip.vbs wormboy 192.168.1.104
cmd.exe cscript changemyip.vbs "daves computer" 192.168.1.104

note:
in the first example, a period(.) is used as the computer name, which means root, or local computer

Dim subnetMask, matchValue, sql, arguments(2)

If Wscript.Arguments.Count <> 2 Then
Wscript.Quit
End If

arguments(0) = Wscript.Arguments.Item(0)
arguments(1) = Array(Wscript.Arguments.Item(1))

matchValue = "IPEnabled = TRUE"
subnetMask = Array("255.255.255.0")
sql = "Select * from Win32_NetworkAdapterConfiguration Where " & matchValue

Set objWMIService = GetObject("winmgmts:\\" & arguments(0) & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery(sql)

For Each objNetAdapter In colNetAdapters
objNetAdapter.EnableStatic(arguments(1), subnetMask)
Next

I highlighted the stuff you might want to change.

To change the IP of all network adapters that have TCP/IP bound and enabled, use:
matchValue = "IPEnabled = TRUE"

Or you might want to change the IP of a particular adapter, in which case you'd use:
matchValue = "Description = 'Wireless-G Notebook Adapter'"

Shoot back if you need any more info. Good luck.

[Dixie Normous]

^^ i agree...

[wormboy]

and if that doesn't work, there are always ferrets.