|
VBS脚本应用-无界面安装ISCSI并连接ISCSI(1)
Word-BREAK: break-all; LINE-HEIGHT: 14pt">''''''''''''''说明''''''''''''
'网盟-黑火制作，送给需要的朋友。
'使用环境：微软isCSi客户端，
'作用：根据本机的IP 或机器名来连接不同的服务器IP或端口
'注意：如果设置“根据机器名”的话，脚本将依据机器名的后三位来取得机器编号，
'当然，你也可以稍作修改来适应你的情况。
''''''''''''说明完''''''''''''
Option EXPlicit
Dim strServerIPGroup,intGroupNum,cNumSet,strTargetPre
'''''''''''''设置开始'''''''''''''
strServerIPGroup = "192.168.0.202:3271|192.168.0.202:3272|192.168.0.202:3293|192.168.0.202:3274|192.168.0.202:3275" '服务器IP端口集合
intGroupNum = 20 '每IP或端口所带的客户机数量
cNumSet = "IP" '可以填"IP"或"Name",设置根据IP还是机器名得到机号
strTargetPre = "FT" 'Target前缀
'''''''''''''设置结束'''''''''''''
'On Error Resume Next
Dim oshell,WshNetwork,cName,cNum
Set oshell= CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
cName = WshNetwork.ComputerName
On Error Resume Next
If cNumSet = "Name" Then cNum = CInt(Right(cName,3))
If Err Then
err.Clear
Msgbox "请确认机器名后3位是不是数字",16,"错误"
|
