Option Explicit

Main( )

function Main()
   DIM objShare
   DIM objEveryColl
   Dim oWSHShell
   Dim sNIC, sMan
   Dim iCount

   Set oWSHShell = WScript.CreateObject("WScript.Shell")
   set objShare = Wscript.CreateObject("HNetCfg.HNetShare.1")

   if(IsObject(objShare) = FALSE ) then
       exit function
   end if
   
   set objEveryColl = objShare.EnumEveryConnection
   
   if (IsObject(objEveryColl) = TRUE) then
   
   DIM objNetConn
   dim guid
   for each objNetConn in objEveryColl
     DIM objShareCfg
     set objShareCfg = objShare.INetSharingConfigurationForINetConnection(objNetConn)
     if (IsObject(objShareCfg) = TRUE) then
       DIM objNCProps
       set objNCProps = objShare.NetConnectionProps(objNetConn)
       if (IsObject(objNCProps) = TRUE) then
         if objNCProps.Name="Local Area Connection" then 'Change to represent the connection to change
           Guid=objNCProps.Guid
           oWSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\" & guid & "\MTU", 00000546,"REG_DWORD"
           oWSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\" & guid & "\TcpWindowSize",65535,"REG_DWORD"
           

         end if
        end if
     end if
   next
   end if
end function