Ghost后自动修改IP和计算机名的VBS脚本.doc

Ghost后自动修改IP和计算机名的VBS脚本
发送到手机| 收藏
全屏阅读模式字体: 小| 大
VBS   版  Ghost 改机器名 IP地址新版本。

[Copy to clipboard]
CODE:
---------------------------------------------------------------------------
On Error Resume Next
'取得本机器的网卡物理地址: MacAddress
puter = "."   
     Set objWMIService = GetObject("winmgmts:" _            
        & "{impersonationLevel=impersonate}!\\" & puter & "\root\cimv2")     
     Set onfigs = _  
            ("SELECT * FROM workAdapterConfiguration WHERE IPEnabled = True")           
For Each onfig In onfigs
                  Set objNic = _
                          ("=" & )
           '本机器的网卡物理地址写入变量: strMacAddress
                      strMacAddress =
               Next
'读取配置文件
         dim files,file,strReadLine ,RowNumber
           Const ForReading = 1
           set files=CreateObject("")
                if ("E:\AutoConfig\", ForReading) then
               set file=("E:\AutoConfig\")
                else
                msgbox("请在程序目录下放置MAC列表文件(文件名为:)")
             
  end if
                                                 RowNumber = 0
                Do While <> True
                     strReadLine =  file