【文本版|topic】 高级搜索
   名人堂 帮助 论坛制度 意见反馈 | 首页 博客 周新贴 专题 求职 读书
 RSS 底部
 
社区导航: 专家门诊   网络技术   操作系统   数据库   程序设计   系统应用   考试认证   CIO及信息化   站长交流   综合交流   下载基地  51CTO产品服务 【设为首页 | 收藏本站】
51CTO技术论坛» Windows » 普通的论坛没高手解决，乱投医试试[网络克隆问题]       [ 打印]  [ 订阅]  [ 收藏]  [ 推荐给朋友]   [ 本帖文本页]
 

论坛跳转:
     
标题: 普通的论坛没高手解决，乱投医试试[网络克隆问题]  ( 查看:384  回复:11 )   
 该主题悬赏的20无忧币已被全部领完 
 
36830909
新新人类  点击可查看详细



帖子 2
精华 0
无忧币 56
积分 56
阅读权限 20
注册日期 2006-5-28
最后登录 2007-10-10 离线

[查看资料]  [发短消息]  [Blog] 
       
发表于:2007-10-10 23:46　 　标题：普通的论坛没高手解决，乱投医试试[网络克隆问题]
＜上一帖 |
有没有办法实现网络克隆后自动更改IP，计算机名，网关， CS序列号，自动安装公安监控软件IKEEPER 自动安装冰点
*ie6bVZYPS：主要问题是红色部分,需要能自动输入同IP的编号
&h7s1jup\51CTO技术论坛51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|零距离
C!{
[d"M^ v!_
[ 本帖最后由 36830909 于 2007-10-10 23:54 编辑 ]

网络虽虚拟，技术无边界，来看看大家“真面目”！
2007-10-10 23:461楼
[ 顶部 ]
 
静水深流
新新人类  点击可查看详细



帖子 36
精华 0
无忧币 77
积分 36
阅读权限 20
注册日期 2007-7-3
最后登录 2008-2-5 离线

[查看资料]  [发短消息]  [Blog] 
       
发表于:2007-10-11 12:48　 ,被系统奖励 3 点无忧币
重庆雅恒科技 有这个方面的东西 你去网络上找找

网络虽虚拟，技术无边界，来看看大家“真面目”！
2007-10-11 12:482楼
[ 顶部 ]
 
300second
副版主  点击可查看详细


论坛万户侯   中秋活动勋章  
帖子 530
精华 3
无忧币 2906
积分 1338
阅读权限 140
来自 (保密)
注册日期 2006-3-11
最后登录 2008-9-6 离线

[查看资料]  [发短消息]  [Blog] 
[个人主页]    QQ       
发表于:2007-10-11 13:08　 ,被系统奖励 3 点无忧币
方法倒是有，比如可以用批处理来实现

【专家门诊】Linux网络管理实战解疑
2007-10-11 13:083楼
[ 顶部 ]
 
lucas
技术员  点击可查看详细



十二生肖之猪   双鱼座   行业勋章   技术勋章   诚信兄弟  
帖子 329
精华 0
无忧币 775
积分 377
阅读权限 30
来自 (保密)
注册日期 2007-7-9
最后登录 2008-3-13 离线

[查看资料]  [发短消息]  [Blog] 
[个人主页]         
发表于:2007-10-11 15:40　 ,被系统奖励 3 点无忧币
BDD可以，但能不能学会就是你的事情了。

【每日必读】头条新闻大扫荡
2007-10-11 15:404楼
[ 顶部 ]
 
dymtlgh
技术员  点击可查看详细


十二生肖之马   处女座   行业勋章   技术勋章   诚信兄弟  
帖子 263
精华 0
无忧币 616
积分 287
阅读权限 30
注册日期 2007-4-15
最后登录 2008-8-17 离线

[查看资料]  [发短消息]  [Blog] 
  QQ       
发表于:2007-10-11 21:58　 ,被系统奖励 3 点无忧币
写个脚本来实现改计算机名和IP
o~~9I`9Lbbs.51cto.comDim tmpComputerNo51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|零距离1c4Q"siiGu9x.c
Dim computerName
~ ssBs1Lx&|2qDim ipAddress:R#~{PYQ6}
51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|零距离;q1W-Ym$N$z
'输入机器号
,K1_
Q
o*d4Svbbs.51cto.comDim b
yI2W\3ybbs.51cto.comb=true
5hK9u|qo3DJD-\bbs.51cto.comWhile(b)
5z;D}JGgbDa o51CTO技术论坛        tmpComputerNo=Trim(InputBox("请输入2-254的整数机器号"))
4aS@ ~-gAbbs.51cto.com        If IsNumeric(tmpComputerNo) Then
+s ?        TL5fS5W51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|零距离                If tmpComputerNo>1 And tmpComputerNo<255 Then
z4AS*gbW        X)bb51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|零距离                        b=FalseDWv1e"[L
                End if
/P:Cm9E        ^8_!^        End Ifbbs.51cto.comqNr+k3F
{0y
        If b Then
!Z)V*re(xE(Z,R|:H0Z)w51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|零距离                If MsgBox("输入有误,是否继续填写?",4,"提示")=7 Then
!C'q%R]E51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|零距离                        WScript.Quit
u qN!|IMy                End if51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|零距离8px"UL jq w@
        End ifw%tmy&Xb{9Wq9n
Wend
BP8M7G6X9FT"J51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|零距离51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|零距离C
Rr/V)]I0tw
jrz
'取得IP
XnMI8D4DipAddress="192.168.2." & tmpComputerNo
@Hr{:C&j
b$[51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|零距离51CTO技术论坛$eI5N/`;o$J)A0@ I*G
'取得计算机名51CTO技术论坛6MY^ \d
If tmpComputerNo<10 Then)H0v E2KjnT1zWQ
        computerName="00" & tmpComputerNo & "-"51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|零距离 WOm*J%K
ElseIf tmpComputerNo>=10 And tmpComputerNo<100 Thenbbs.51cto.com        }
Os(to~@
        computerName="0" & tmpComputerNo & "-"
J'p5y'|B8hG51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|零距离Else
`+} [/F$c`h51CTO技术论坛        computerName=tmpComputerNo & "-" iC{d)D8`%[ dF
End If.zW5r
@(h!`P
bbs.51cto.com0k(b^8I5z0p
'设置计算机名+^Zr/zo)d|
Dim WSH
W8y;{
M3wSet WSH = CreateObject("Wscript.Shell")
z|bI9` O^^WSH.RegWrite  "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ComputerName\ComputerName",computerName,"REG_SZ"
*tOSr*B/Nbbs.51cto.comWSH.RegWrite  "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ActiveComputerName\ComputerName",computerName,"REG_SZ"
}-D,b)rgy'G%X51CTO技术论坛WSH.RegWrite  "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\NV Hostname",computerName,"REG_SZ"
6?J        _!XqCWSH.RegWrite  "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\Hostname",computerName,"REG_SZ"bbs.51cto.com RX0Rq        qh_&G        b
WSH.RegWrite  "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet003\Control\ComputerName\ComputerName\ComputerName",computerName,"REG_SZ"bbs.51cto.com.f\,n5S:Crq9J
WSH.RegWrite  "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet003\Services\Tcpip\Parameters\NV Hostname",computerName,"REG_SZ"
R@{AP'OaDn
R51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|零距离WSH.RegWrite  "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet003\Services\Tcpip\Parameters\Hostname",computerName,"REG_SZ"51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|零距离oL*q}F2idE

b$kN"r;WN'@'设置IP

P%Y
M~S8Q@`strComputer = "."
Z4_8VUo51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|零距离Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")I'xhJT^`
Set colNetAdapters = objWMIService.ExecQuery _51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|零距离*Q.r ST&S.}s'd{9o
    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")4r(kXF4k$EQb}
strIPAddress = Array(ipAddress)bbs.51cto.com
[3q&m{x(F
lt
strSubnetMask = Array("255.255.255.0")bbs.51cto.com7V`.kR[S,z
OO6xN:q
For Each objNetAdapter in colNetAdapters2Q.WO,x)D4M3a!i @5| J
    errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)51CTO技术论坛%C?^"r?5JF\K+@
Next
:Zv+L
h+|6o51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|零距离Set objWMIService = GetObject("winmgmts:" _
1cCu}kPbbs.51cto.com    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
3B:{X|hbbs.51cto.comSet colComputers = objWMIService.ExecQuery _51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|零距离*T!o(~ jHQS
    ("Select * from Win32_ComputerSystem")
&PI$J%F~d51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|零距离For Each objComputer in colComputers
4VZ7p;V.H
\,ibbs.51cto.comObjComputer.Rename(computerName)
d_H7M6{}4@51CTO技术论坛Next2e3|b E
ll
|?
Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")
z7xe]~51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|零距离objNetworkSettings.SetIPXVirtualNetworkNumber(tmpComputerNo)
-SRk9B5T p3r"e*X k
[51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|零距离
Bu        _/?H3d4l9I51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|零距离MsgBox ipAddress+Chr(10)+Chr(13)+computerName

网络虽虚拟，技术无边界，来看看大家“真面目”！
2007-10-11 21:585楼
[ 顶部 ]
 
龍騰嵙技
副版主  点击可查看详细


十二生肖之鸡   射手座   行业勋章   技术勋章   诚信兄弟   中秋活动勋章  
帖子 1316
精华 5
无忧币 3126
积分 1833
阅读权限 140
来自 (保密)
注册日期 2007-9-19
最后登录 2008-9-6 离线

[查看资料]  [发短消息]  [Blog] 
[个人主页]    QQ       
发表于:2007-10-24 18:02　 ,被系统奖励 3 点无忧币
楼主 心里有满意的答案了吗？？？

【失败=成功 提问的智慧（1）
2007-10-24 18:026楼
[ 顶部 ]
 
xubenxin
副版主  点击可查看详细


帖子 916
精华 1
无忧币 3725
积分 1269
阅读权限 140
来自 (保密)
注册日期 2006-12-20
最后登录 2008-9-6 离线

[查看资料]  [发短消息]  [Blog] 
[个人主页]    QQ       
发表于:2007-10-25 08:13　 ,被系统奖励 3 点无忧币
实现软件自动安装,可以在域环境中实现软件的发布和指派.在工作组环境中可以用批处理或脚本调用

关注网络事,关注51cto
2007-10-25 08:137楼
[ 顶部 ]
 
laipshun
新新人类  点击可查看详细


十二生肖之鼠   水瓶座   行业勋章   技术勋章   诚信兄弟  
帖子 26
精华 0
无忧币 18
积分 14
阅读权限 20
来自 (保密)
注册日期 2007-7-26
最后登录 2008-5-19 离线

[查看资料]  [发短消息]  [Blog] 
       
发表于:2007-10-25 13:42　
51cto 技术强的人大有人在啊

2007-10-25 13:428楼
[ 顶部 ]
 
lucas
技术员  点击可查看详细



十二生肖之猪   双鱼座   行业勋章   技术勋章   诚信兄弟  
帖子 329
精华 0
无忧币 775
积分 377
阅读权限 30
来自 (保密)
注册日期 2007-7-9
最后登录 2008-3-13 离线

[查看资料]  [发短消息]  [Blog] 
[个人主页]         
发表于:2007-10-25 14:53　 ,被系统奖励 3 点无忧币
你的问题我是用PE+GHOST实现的，但我只改计算机名字，软件都预先安装在系统里然后做GHOST。IP这种我用DHCP的，用到的都是BDD的基础知识了，你那客户端多的话用这个很方面，装一个系统也就输入一个命令，输个计算机名字就OK了。

【每日必读】头条新闻大扫荡
2007-10-25 14:539楼
[ 顶部 ]
 
Cc3415728
技术员  点击可查看详细



帖子 606
精华 0
无忧币 495
积分 896
阅读权限 30
注册日期 2007-5-31
最后登录 2008-9-3 离线

[查看资料]  [发短消息]  [Blog] 
  QQ       
发表于:2007-10-25 20:48　
过来学习一下!高手真多啊

微软最有价值专家（MVP）申请 <2008-2009年度>
2007-10-25 20:4810楼
[ 顶部 ]
 
joinu
新新人类  点击可查看详细



帖子 52
精华 0
无忧币 1
积分 50
阅读权限 20
注册日期 2007-3-22
最后登录 2008-6-27 离线

[查看资料]  [发短消息]  [Blog] 
       
发表于:2007-10-26 10:44　
bdd是什么东西啊.

网络虽虚拟，技术无边界，来看看大家“真面目”！
2007-10-26 10:4411楼
[ 顶部 ]
 
lucas
技术员  点击可查看详细



十二生肖之猪   双鱼座   行业勋章   技术勋章   诚信兄弟  
帖子 329
精华 0
无忧币 775
积分 377
阅读权限 30
来自 (保密)
注册日期 2007-7-9
最后登录 2008-3-13 离线

[查看资料]  [发短消息]  [Blog] 
[个人主页]         
发表于:2007-10-29 13:49　
BDD是business desktop deployment的缩写，是microsoft专门针对OEM厂商和大型企业推出的一个免费的桌面部署解决方案。

【每日必读】头条新闻大扫荡
2007-10-29 13:4912楼
[ 顶部 ]
     
论坛跳转:  

| | |
| | |
| | |
标记已读 · 删除论坛Cookies · 文本版 · WAP
 
| 诚征版主 | 版主堂 | 意见建议 | 大史记 | 论坛地图
Copyright©2005-2008 51CTO.COM  Powered by Discuz!
本论坛言论纯属发布者个人意见，不代表51CTO网站立场！如有疑义，请与管理员联系。
京ICP备05051492号