关于win98 网络共享问题－－－很是困扰
大家帮忙看看，怎样在不重启电脑情况下，重启网络共享相关服务(win98不像 winxp 那样可以在dos命令下 使用 net stop /start 命令，，，我要其 net stop server/net start server 命令）经常出现win98 连接 win2003 server一开始连接正常，过段时间就无法访问的错误提示。
win2003 server启用guest 用户，并在安全性 去除了 guest不能访问限制
有建议的请联系我qq：29006327注明:autoit 论坛
谢谢拉 还在用98？无法实验。 回复 2# ahphsautoit
没有办法，，公司垃圾机台系统还是win98 阿，，还要导出数据到网络上，所以就出现以上问题了 还有人用98系统！！ #Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <array.au3>
#include <GUIComboBox.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#Region ### START Koda GUI section ### Form=c:\documents and settings\administrator\桌面\form1.kxf
$Form1_1 = GUICreate("修改网卡地址", 455, 239, 231, 257)
;$Input6 = GUICtrlCreateInput("", 320, 136, 121, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
;$input7 = GUICtrlCreateInput("", 320, 160, 121, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("修改", 368, 208, 75, 25)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("原ip:", 44, 16, 30, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("原子网掩码:", 7, 40, 67, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("原网关:", 31, 64, 43, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label6 = GUICtrlCreateLabel("原DNS1:", 19, 88, 55, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label7 = GUICtrlCreateLabel("原DNS2:", 19, 112, 55, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label8 = GUICtrlCreateLabel("192.168.1.2 ", 80, 16, 141, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label9 = GUICtrlCreateLabel("255.255.255.0 ", 80, 40, 140, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label10 = GUICtrlCreateLabel("192.168.1.1 ", 80, 64, 144, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label11 = GUICtrlCreateLabel("218.6.200.139 ", 80, 88, 143, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label12 = GUICtrlCreateLabel("61.139.2.69 ", 80, 112, 141, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label13 = GUICtrlCreateLabel("修改后ip", 257, 16, 51, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label14 = GUICtrlCreateLabel("修改后子网掩码", 220, 40, 88, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label15 = GUICtrlCreateLabel("修改后网关", 244, 64, 64, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label16 = GUICtrlCreateLabel("修改后DNS1", 232, 88, 76, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label17 = GUICtrlCreateLabel("修改后DNS2", 232, 112, 76, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 320, 16, 121, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("", 320, 40, 121, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("", 320, 64, 121, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input4 = GUICtrlCreateInput("", 320, 88, 121, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input5 = GUICtrlCreateInput("", 320, 112, 121, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label18 = GUICtrlCreateLabel("实际地址:", 19, 136, 55, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label19 = GUICtrlCreateLabel("FF-FF-FF-FF-FF-FF ", 80, 136, 144, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label20 = GUICtrlCreateLabel("计算机名:", 19, 160, 55, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label21 = GUICtrlCreateLabel("name ", 80, 160, 140, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Combo1 = GUICtrlCreateCombo("", 72, 208, 233, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Label22 = GUICtrlCreateLabel("可用网卡:", 19, 208, 55, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label23 = GUICtrlCreateLabel("当前网卡:", 19, 184, 55, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label24 = GUICtrlCreateLabel("net ", 80, 184, 142, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;Opt("GUIOnEventMode", 1)
Global $NetworkAdapterInfo
$NetworkAdapterInfo = _NetworkAdapterInfo()
Global $lanid
$config = "config.ini"
Global $xxx=""
For $i=1 To $NetworkAdapterInfo
$xxx= $xxx & $NetworkAdapterInfo[$i] _
&","&$NetworkAdapterInfo[$i] _
&","&$NetworkAdapterInfo[$i] _
&","&$NetworkAdapterInfo[$i] _
&","&$NetworkAdapterInfo[$i]&"|"
Next
$xxx1=$NetworkAdapterInfo _
&","&$NetworkAdapterInfo _
&","&$NetworkAdapterInfo _
&","&$NetworkAdapterInfo _
&","&$NetworkAdapterInfo
GUICtrlSetData($Combo1,$xxx,$xxx1)
GUICtrlSetData($Label24,$NetworkAdapterInfo)
GUICtrlSetData($Label19,$NetworkAdapterInfo)
updata()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_SetCmpNameAndIP($lanid,GUICtrlRead($Label21),GUICtrlRead($Input1),GUICtrlRead($Input2),GUICtrlRead($Input3),GUICtrlRead($Input4)&","&GUICtrlRead($Input5))
writeini()
_offandonline()
Case $Combo1
updata()
EndSwitch
Sleep(20)
WEnd
Func writeini()
If GUICtrlRead($Label8)=GUICtrlRead($Input1) And GUICtrlRead($Label9)=GUICtrlRead($Input2) And GUICtrlRead($Label10)=GUICtrlRead($Input3) And GUICtrlRead($Label11)=GUICtrlRead($Input4) And GUICtrlRead($Label12)=GUICtrlRead($Input5) Then Exit
If Not FileExists($config) Then
IniWrite($config,"配置","1",$lanid&","&GUICtrlRead($Label21)&","&GUICtrlRead($Label8)&","&GUICtrlRead($Label9)&","&GUICtrlRead($Label10)&","&GUICtrlRead($Label11)&","&GUICtrlRead($Label12))
IniWrite($config,"配置","2",$lanid&","&GUICtrlRead($Label21)&","&GUICtrlRead($Input1)&","&GUICtrlRead($Input2)&","&GUICtrlRead($Input3)&","&GUICtrlRead($Input4)&","&GUICtrlRead($Input5))
IniWrite($config,"网卡","1",$lanid&","&$lanid&","&$lanid&","&$lanid&","&$lanid)
Else
Global $temp=IniRead ( $config, "网卡","1","")
If $temp="" Then
IniWrite($config,"配置","1",$lanid&","&GUICtrlRead($Label21)&","&GUICtrlRead($Label8)&","&GUICtrlRead($Label9)&","&GUICtrlRead($Label10)&","&GUICtrlRead($Label11)&","&GUICtrlRead($Label12))
IniWrite($config,"配置","2",$lanid&","&GUICtrlRead($Label21)&","&GUICtrlRead($Input1)&","&GUICtrlRead($Input2)&","&GUICtrlRead($Input3)&","&GUICtrlRead($Input4)&","&GUICtrlRead($Input5))
IniWrite($config,"网卡","1",$lanid&","&$lanid&","&$lanid&","&$lanid&","&$lanid)
EndIf
EndIf
EndFunc
Func updata();更新数据
Dim $RedComBOX=GUICtrlRead($Combo1)
Dim $lanid = StringSplit($RedComBOX,",")
Dim $RadCPNam = _RadCPName($lanid)
Dim $ComPuterName = $RadCPNam
Dim $ComputerIP = $RadCPNam
Dim $ComputerZW = $RadCPNam
Dim $ComputerWG = $RadCPNam
Dim $ComputerDNS = $RadCPNam
;=============================================将网卡信息写入GUI
GUICtrlSetData($Label24,$lanid)
;GUICtrlSetData($Label19,$lanid)
GUICtrlSetData($Label21,$ComPuterName)
GUICtrlSetData($Label8,$ComputerIP)
GUICtrlSetData($Label9,$ComputerZW)
GUICtrlSetData($Label10,$ComputerWG)
Local $dns=StringSplit($ComputerDNS,",")
If @error=0 Then
GUICtrlSetData($Label11,$dns)
GUICtrlSetData($Label12,$dns)
Else
GUICtrlSetData($Label11,$ComputerDNS)
GUICtrlSetData($Label12,"")
EndIf
GUICtrlSetData($Label19,$lanid)
;=============================================将网卡信息写入GUI
Dim $ip = StringSplit($ComputerIP,".",2)
$ip=10
$ip=80
$ip=25
Dim $ComputerIPx = _ArrayToString($ip,".")
Dim $ComputerZWx = "255.255.255.0"
Dim $ComputerWGx = "10.80.25.1"
Dim $ComputerDNS1x = "10.80.1.5"
Dim $ComputerDNS2x = "10.80.1.7"
GUICtrlSetData($Input1,$ComputerIPx)
GUICtrlSetData($Input2,$ComputerZWx)
GUICtrlSetData($Input3,$ComputerWGx)
GUICtrlSetData($Input4,$ComputerDNS1x)
GUICtrlSetData($Input5,$ComputerDNS2x)
EndFunc
Func _NetworkAdapterInfo()
;======================================================
;
; 函数名称: _NetworkAdapterInfo()
; 详细信息: 获取系统所有网卡信息
; 返回值说明:
; 以二维数组方式返回.例如 $info=_NetworkAdapterInfo()
; $info 网卡数量
; $info 第一块网卡的标志1
; $info 第一块网卡的状态
; 状态说明：7为网卡未插网线,2为网卡连接正常
; $info 第一块网卡的网卡名称
; $info 第一块网卡的连接名称
; $info 第一块网卡的MAC地址
; $info 第一块网卡的IP地址
; $info 第一块网卡的默认网关
; $info 第一块网卡的子网掩码
; $info 第一块网卡的主DNS
; $info 第一块网卡的次DNS
; $info 第一块网卡的ID
; $info 第一块网卡机器名
; 第二块网卡：
; $info 第二块网卡的标志1
; $info 第二块网卡的ID
; 其他网卡信息依次类推。。。
; 注意，此UDF不会获取已经禁用的网卡。
; 作者: Sanhen (gxbeiliu@163.com)
; 网站: www.lunhui.net.cnwww.autoitx.com
;======================================================
Local $colItem
Local $objItem
Local $colItems
Local $objItems
Local $objWMIService
Local $Adapters
$Adapters = 0
$objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")
$colItem= $objWMIService.ExecQuery("Select * FROM Win32_NetworkAdapter Where NetConnectionStatus =2", "WQL", 0x30)
If IsObj($colItem) Then
For $objItem In $colItem
If $objItem.MACAddress = "00:00:00:00:00:00" Then ContinueLoop
$Adapters += 1
ReDim $Adapters
$Adapters[$Adapters] += $Adapters
$Adapters[$Adapters] = $objItem.NetConnectionStatus
$Adapters[$Adapters] = $objItem.Description
$Adapters[$Adapters] = $objItem.NetConnectionID
$Adapters[$Adapters] = $objItem.MACAddress
$Adapters[$Adapters] = $objItem.PNPDeviceID
$colItems= $objWMIService.ExecQuery('Select * FROM Win32_NetworkAdapterConfiguration Where MACAddress = "'&$Adapters[$Adapters]&'" And IPEnabled = True ' , "WQL", 0x30)
If IsObj($colItems) Then
For $objItems In $colItems
$Adapters[$Adapters] = $objItems.IPAddress(0)
$Adapters[$Adapters] = $objItems.DefaultIPGateway(0)
$Adapters[$Adapters] = $objItems.IPSubnet(0)
$Adapters[$Adapters] = $objItems.DNSServerSearchOrder(0)
$Adapters[$Adapters] = $objItems.DNSServerSearchOrder(1)
$Adapters[$Adapters] = $objItems.SettingID
Next
EndIf
Next
EndIf
Return $Adapters
EndFunc ;_NetworkAdapterInfo()
Func _SetCmpNameAndIP($LanID,$strComputerName,$setIP,$setZW,$setWG,$setDNS)
;======================================================
; 函数名称: _SetCmpNameAndIP($AdapterID,$strComputerName,$setIP,$setZW,$setWG,$setDNS)
; 详细信息: 修改机器IP,和机器名
; $AdapterID 网卡ID
; $strComputerName 计算机名
; $setIP 机器IP
; $setZW 子网掩码
; $setWG 默认网关
; $setDNS DNS
; 作者: viplight (viplight@qq.com)
; QQ: 530417369
;======================================================
$SetKey1 = "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\"
$SetKey2 = "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\"
$CtrlKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\"
$LanReg1 = $SetKey1 & "Services\Tcpip\Parameters\Interfaces\" & $LanID
$LanReg2 = $SetKey2 & "Services\Tcpip\Parameters\Interfaces\" & $LanID
$LanReg3 = $CtrlKey & "Services\Tcpip\Parameters\Interfaces\" & $LanID
;通过注册表修改计算机名
RegWrite ($SetKey1 & "Services\Tcpip\Parameters", "NV Hostname", "REG_SZ", $strComputerName)
RegWrite ($SetKey1 & "Services\Tcpip\Parameters", "Hostname", "REG_SZ", $strComputerName)
RegWrite ($CtrlKey & "Control\ComputerName\ComputerName", "ComputerName", "REG_SZ", $strComputerName)
RegWrite ($CtrlKey & "Services\Tcpip\Parameters", "NV Hostname", "REG_SZ", $strComputerName)
RegWrite ($CtrlKey & "Services\Tcpip\Parameters", "Hostname", "REG_SZ", $strComputerName)
;▲通过注册表修改计算机名
;通过注册表修改IP
RegWrite($LanReg1,"IPAddress","REG_MULTI_SZ",$setIP)
RegWrite($LanReg2,"IPAddress","REG_MULTI_SZ",$setIP)
RegWrite($LanReg3,"IPAddress","REG_MULTI_SZ",$setIP)
;▲通过注册表修改IP
;通过注册表修改子网掩码
RegWrite($LanReg1,"SubnetMask","REG_MULTI_SZ",$setZW)
RegWrite($LanReg2,"SubnetMask","REG_MULTI_SZ",$setZW)
RegWrite($LanReg3,"SubnetMask","REG_MULTI_SZ",$setZW)
;▲通过注册表修改子网掩码
;通过注册表修改网关
RegWrite($LanReg1,"DefaultGateway","REG_MULTI_SZ",$setWG)
RegWrite($LanReg2,"DefaultGateway","REG_MULTI_SZ",$setWG)
RegWrite($LanReg3,"DefaultGateway","REG_MULTI_SZ",$setWG)
;▲通过注册表修改网关
;通过注册表修改DNS
RegWrite($LanReg1,"NameServer","REG_SZ",$setDNS)
RegWrite($LanReg2,"NameServer","REG_SZ",$setDNS)
RegWrite($LanReg3,"NameServer","REG_SZ",$setDNS)
;▲通过注册表修改DNS
;通过注册表网卡自动获取IP为固定获取IP
RegWrite($LanReg3,"EnableDHCP","REG_DWORD","0")
;▲通过注册表网卡自动获取IP为固定获取IP
EndFunc ;==>_SetCmpNameAndIP
Func _RadCPName($AdapterID)
;=============================================网卡ip地址信息获取
Local $info
Dim $CtrlKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\"
Dim $LanReg = $CtrlKey & "Services\Tcpip\Parameters\Interfaces\" & $AdapterID
$Info =RegRead($CtrlKey & "Control\ComputerName\ComputerName", "ComputerName")
$Info = RegRead($LanReg,"IPAddress")
$Info = RegRead($LanReg,"SubnetMask")
$Info = RegRead($LanReg,"DefaultGateway")
$Info = RegRead($LanReg,"NameServer")
$Info = RegRead($CtrlKey & "Services\NwlnkIpx\Parameters","VirtualNetworkNumber")
Return $info
;=============================================网卡ip地址信息获取
EndFunc
Func _offandonline();开关网卡
$ssfCONTROLS = 3
$sConnectionName = "本地连接"
$sEnableVerb = "启用(&A)"
$sDisableVerb = "停用(&B)"
$sDisableVerb2 = "禁用(&B)"
$shellApp = ObjCreate("shell.application")
$oControlPanel = $shellApp.Namespace($ssfCONTROLS)
$oNetConnections = ""
for $folderitem in $oControlPanel.items
if $folderitem.name = "网络连接" then
$oNetConnections = $folderitem.getfolder
ExitLoop
endif
next
if $oNetConnections ="" then
MsgBox(0,"","未找到网络连接文档夹")
Exit
endif
$oLanConnection = ""
for $folderitem in $oNetConnections.items
if StringLower($folderitem.name) = StringLower($sConnectionName) then
$oLanConnection = $folderitem
ExitLoop
endif
next
if $oLanConnection ="" then
Exit
endif
$bEnabled = true
for $verb in $oLanConnection.verbs
if $verb.name = $sDisableVerb then
$verb.DoIt
endif
If $verb.name = $sDisableVerb2 Then
$verb.DoIt
endif
next
For $i=1 To 10 Step 1
for $verb in $oLanConnection.verbs
if $verb.name = $sEnableVerb then
$verb.DoIt
ExitLoop 2
endif
next
sleep(1000)
Next
sleep(2000)
EndFunc
这是一个修改网卡IP的 代码 里面有重启网卡的指令 不过没在98 下试过 你也可以尝试下 通过硬件启用禁用网卡达到目的
页:
[1]