Vbscript to change mac address

[Laler]

I am looking for VB program to change mac address. I know how to change the mac address in windows xp system but is there any way to change mac address in windows 98? Any recommendations and suggestions are appreciated.

[Calvin K]

1. Goto Start->Run, type "Winipcfg"

2. Select your ethernet card and record the MAC address

3. Goto Start->Run, type "regedit" to bring up registry editor.

4. Locate "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\Net".
It should have subkeys like "0000", "0001", "0002" and so on.

5. Click on each subkey that starts with "0000" and determine your Ethernet
card by looking at "DriverDesc" key. If it did not match, then goto "0001",
"0002" and so on...

6. Once you got the right NIC card,

1. Click on dropdown menu Edit->New->String Value.
2. Name the new string "networkaddress" and click OK.
3. Double-click on the new "networkaddress" string and you will be
prompted for "Value data"
4. Enter the new MAC address you want to assign. The MAC address you
enter should be a 12 digit number with NO "-", i.e. "00B094ECD861".

source : klcconsulting.net

[Aberto]

Function Findmac( sDevice ) 
Dim Npc 
Dim OpenItem 
Dim Getresult

Getresult = "" 

On Error Resume Next 
Set oWMI = GetObject("winmgmts:\\" & sDevice & "\root\cimv2") 
If Err.Number = 0 Then 
Set Npc = oWMI.ExecQuery( "Select * from 
Win32_NetworkAdapterConfiguration" ) 
For Each OpenItem in Npc
'WScript.echo OpenItem.Name 
Getresult = Getresult & oItem.Caption & "~" & oItem.MACAddress & "^" 
Next 

Getresult = Mid( Getresult, 1, Len(Getresult ) - 1 ) 
End If 
Err.Clear 
On Error Goto 0 

findmac = Getresult
End Function 

sPC = "PC003333" 
WScript.StdOut.Write "GetMac of " & sPC & ": " 
WSCript.Echo Findmac( sPC )

[Rawko]

Check this thread for more information on how to change mac address :
How To Change a MAC Address?
Why can't I change this MAC address under Vista?
Mac Address Book