ISCSI连接器

autoit · 发表于 2008-5-3 14:19:44

#NoTrayIcon #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_outfile=.\myiscsi.exe #AutoIt3Wrapper_UseAnsi=y #AutoIt3Wrapper_Allow_Decompile=n #AutoIt3Wrapper_Res_Comment=Myself #AutoIt3Wrapper_Res_Description=Myself #AutoIt3Wrapper_Res_Fileversion=1.0.0.2 #AutoIt3Wrapper_Run_AU3Check=n #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****#Include<Array.au3> #include <GUIConstants.au3> #include <File.au3> dim <a href="mailto:$logfile=@ScriptDir" target="_blank">$logfile=@ScriptDir</a> &"\myiscsi.log" dim const <a href="mailto:$inifilename=@ScriptDir" target="_blank">$inifilename=@ScriptDir</a> &"\iscsi.ini" dim const <a href="http://www.au3.net.cn/'mailto:$iscsistatus=@TempDir&"/iscsistatus.ini'" target="_blank">$iscsistatus=@TempDir&"\iscsistatus.ini</a>" dim const $Version = "ISCSI连接器0.2(Myself)" dim $iscsiip dim $iscsiport dim $iscsiiqn dim $iscsivolume dim $prevolume dim $curvolume dim $i dim $iret dim $m_status,$m_Progress1 dim $filedir,$szDrive, $szDir, $szFName, $szExt dim $temp;防止程序重复运行 If WinExists($Version) Then  MsgBox(4096+16,"警告","程序已在运行，请不要重复执行！！！",5)  Exit Else  AutoItWinSetTitle($Version) EndIf ;检查调用格式 if $cmdline[0]<>1 Then    msgbox(48,"警告","错误的调用格式")    Exit EndIf ;判断iscsi磁盘是否已经存在 $curvolume=IniRead($iscsistatus,"config","volume","") MyIscsiRun($curvolume)FileDelete($iscsistatus) ;监测所有需要的文件是否存在 if not (FileExists(@SystemDir&"\sc.exe") and FileExists(@SystemDir&"\diskpart.exe")) Then    msgbox(48,"警告","系统文件不全，程序退出!!!")    Exit EndIf ;生成GUI $Form1 = GUICreate($Version, 361, 53, 410, 213, BitOR($WS_CAPTION,$WS_BORDER,$WS_CLIPSIBLINGS)) $Label = GUICtrlCreateLabel("状态:", 8, 34, 40, 17) $Label1 = GUICtrlCreateLabel("Myself专用", 295, 34,400, 17) $C_status = GUICtrlCreateLabel("", 40, 34, 240, 17) $Progress1 = GUICtrlCreateProgress(8, 8, 345, 17) GUISetState(@SW_SHOW) GUICtrlSetData ($Progress1,1) GUICtrlSetData ($C_status,"开始连接游戏服务器")MyIscsiINST() ;生成当前分区列表(0) $prevolume= DriveGetDrive( "all" ) $iscsiip=IniRead($inifilename,"config","ip","192.168.0.252") $iscsiport=IniRead($inifilename,"config","port","33260") $iscsiiqn=IniRead($inifilename,"config","iqn","iqn.2005-02.com.ricecake.iscsi:00") MyIscsiConnect($iscsiip,$iscsiport,$iscsiiqn);查找新的ISCSI盘符 $curvolume=MyIscsiFind($prevolume) ;盘符处理 $iscsivolume=IniRead($inifilename,"config","volume","") GUICtrlSetData ($Progress1,70) GUICtrlSetData ($C_status,"正在分配盘符，请等待。。。") $curvolume=MyIscsiAssign($curvolume,$iscsivolume) ;iscsi盘符纪录到状态文件中，防止2次加载错误 IniWrite($iscsistatus,"config","volume",$curvolume) MyIscsiHide($curvolume) MyIscsiRun($curvolume);安装模块 Func MyIscsiINST() Local const $checkinstall="C:\WINDOWS\system32\iscsicli.exe" Local const <a href="mailto:$install=@ScriptDir" target="_blank">$install=@ScriptDir</a> &"\iscsi.exe" if not FileExists($checkinstall) Then    GUICtrlSetData ($C_status,"未发现ISCSI客户端")    if FileExists($install) Then        GUICtrlSetData ($C_status,"真在安装ISCSI客户端，请等待。。。")        ShellExecuteWait($install," /q /norestart")        FileDelete(@DesktopDir&"\Microsoft iSCSI Initiator.lnk")        GUICtrlSetData ($C_status,"安装ISCSI客户端成功")    else           GUICtrlSetData ($C_status,"未找到ISCSI客户端！！！")        msgbox(48,"警告","未找到ISCSI客户端！！！")        Exit    EndIf Else  GUICtrlSetData ($C_status,"发现ISCSI客户端") EndIf EndFuncFunc MyIscsiConnect($iscsiip,$iscsiport,$iscsiiqn) ;判断iscsi服务器是否在线 GUICtrlSetData ($C_status,"检测服务器状态") $iret =ping($iscsiip,1000) If @error Then    GUICtrlSetData ($C_status,"未发现游戏服务器")    msgbox(48,"警告","游戏服务器已关闭，请联系网管！")    Exit EndIf ;清除垃圾注册表数据 RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E97B-E325-11CE-BFC1-08002BE10318}\0000\PersistentTargets") RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\iSCSI\Discovery\Send Targets") RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\iSCSI\Discovery\Send Targets") RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\iSCSI\Discovery\Static Targets") RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\iSCSI\Discovery\Static Targets") ;开始连接iscsi服务器 GUICtrlSetData ($C_status,"正在打开相关服务") ShellExecuteWait("sc"," config msiscsi start= demand","","",@SW_HIDE) ShellExecuteWait("sc"," config dmserver start= demand","","",@SW_HIDE) ShellExecuteWait("sc"," start dmserver","","",@SW_HIDE) ShellExecuteWait("sc"," start msiscsi","","",@SW_HIDE) ShellExecuteWait("sc"," config msiscsi start= disabled","","",@SW_HIDE) ShellExecuteWait("sc"," config dmserver start= disabled","","",@SW_HIDE) GUICtrlSetData ($C_status,"正在指定ISCSI服务器参数") ShellExecuteWait("iscsicli"," AddTargetPortal "&$iscsiip&" "&$iscsiport,"","",@SW_HIDE) GUICtrlSetData ($C_status,"正在登陆ISCSI服务器") ShellExecuteWait("iscsicli"," LoginTarget "&$iscsiiqn&" T * * * * * * * * * * * * * * * 0","","",@SW_HIDE) EndFunc;动态运行虚拟盘程序 Func MyIscsiRun($curvolume) Local  $szDrive, $szDir, $szFName, $szExt if FileExists($curvolume&"\"&IniRead($inifilename,"config","check","netgame")) Then  _PathSplit($cmdline[1], $szDrive, $szDir, $szFName, $szExt)  $curvolume=_PathMake ($curvolume, $szDir, $szFName, $szExt)  _PathSplit($curvolume, $szDrive, $szDir, $szFName, $szExt)  If (Not FileExists($curvolume)) or (Not FileExists($szDrive & $szDir))  then   MsgBox(48, "警告", "没有找到程序" & $curvolume & "，请与管理员联系!")   Exit  Endif  ShellExecute($curvolume,"",$szDrive & $szDir)  Exit EndIf EndFunc;查找虚拟磁盘盘符 Func MyIscsiFind($src) local $curvolume,$i ;生成当前分区列表(1)，判断分区是否增加 for $i=0 to 60    $curvolume = DriveGetDrive( "all" )    if $src[0]<>$curvolume[0] Then     $i=9999        exitloop    EndIf    sleep(500) next if $i<>9999 Then  GUICtrlSetData ($C_status,"连接超时,ISCSI服务器连接失败")  msgbox(48,"警告","对不起，服务器连接失败")  Exit EndIffor $i=1 to $curvolume[0]  $iret = _ArraySearch ($prevolume,$curvolume[$i],0,0,0,True)     if $iret=-1 Then        $curvolume=$curvolume[$i]     $i=9999        ExitLoop    EndIf Next if $i<>9999 Then  msgbox(48,"警告","查找iscsi分区错误")  Exit EndIf return $curvolume EndFunc;指派虚拟盘盘符 Func MyIscsiAssign($src,$dst) local $i ;合法性检查(简单) if $src="" or $dst="" or $src=$dst Then  return $src EndIf ;刷新盘符 FileExists($curvolume&"\") FileDelete("c:\windows\system32\iscsi.txt") FileWriteLine("c:\windows\system32\iscsi.txt","select volume "&$src) FileWriteLine("c:\windows\system32\iscsi.txt","assign letter="&$dst) For $i=1 to 30  ShellExecuteWait("diskpart"," /s c:\windows\system32\iscsi.txt","","",@SW_HIDE)  if FileExists($dst) Then   if FileExists($dst&"\"&IniRead($inifilename,"config","check","netgame")) Then    return $dst   Else    return $src   EndIf  EndIf  sleep(1000) Next return $src EndFunc;隐藏指定驱动器 Func MyIscsiHide($volume) local $reg1,$reg2 if IniRead($inifilename,"config","hide","1")=0 Then  Return 0 EndIf $volume=BitShift(1,0-(Asc(StringLeft($volume,1))-ASC("A"))) $REG1=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer","NoDrives") $REG2=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer","NoViewOnDrive") $REG1=BitOR($REG1,$volume) $REG2=BitOR($REG2,$volume) RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer","NoDrives","REG_DWORD",$REG1) RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer","NoViewOnDrive","REG_DWORD",$REG2) ;强制刷新注册表 if not FileExists(@SystemDir&"\GroupPolicy\gpt.ini") then  DirCreate(@SystemDir&"\GroupPolicy")  IniWrite(@SystemDir&"\GroupPolicy\gpt.ini","General","gPCUserExtensionNames","[{35378EAC-683F-11D2-A89A-00C04FBBCFA2}{0F6B957E-509E-11D1-A7CC-0000F87571E3}]")  IniWrite(@SystemDir&"\GroupPolicy\gpt.ini","General","Version","65536") EndIf if not FileExists(@SystemDir&"\GroupPolicy\User\Registry.pol") Then  DirCreate(@SystemDir&"\GroupPolicy\User")  FileInstall("Registry.pol",@SystemDir&"\GroupPolicy\User\Registry.pol",1) EndIf ShellExecuteWait(@SystemDir&"\gpupdate.exe","/force","","",@SW_HIDE) EndFunc配置文件:ISCSI.INI[config]#服务器IP ip=172.16.250.20#服务器端口 port=33260#连接用IQN iqn=iqn.2005-02.com.ricecake.iscsi:00#如不想指派则留空,指派比较影响速度（分配盘符） volume=#服务器上有的效验文件夹或文件不要带盘符(默认为netgame) check=netgame#是否自动隐藏ISCSI驱动器0=不隐藏(默认隐藏) hide=1

116154801 · 发表于 2008-7-1 23:48:23

不行呀····不行呀····不行呀····不行呀····不行呀····不行呀····不行呀····不行呀····不行呀····

user001 · 发表于 2012-12-7 09:17:31

钱不够了，怎么下载呢？

		自动登录	找回密码
密码			加入