• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    可以从一台远程服务器运行 SP2 安装程序Install.vbs
    Install.vbs
    发布者 Microsoft Corporation 脚本专家

    此脚本由 scenario1.vbs 在一台网络主机上启动。Install.vbs 可以在安装了 SP2 的主机上以本地方式运行,它执行以下任务:

    ? 从一台远程服务器运行 SP2 安装程序。

    ? 在主机上设置 AutoAdmin 和 RunOnce 两个注册表项。

    ? 将结果记录到文本文件 computername-sp2-instlog.txt 并将该文件复制回管理工作站。

    ? 强制重新启动,随后 runonce.vbs 将自动启动。


    在基本方案中,SP 2 安装程序文件位于列表中的所有网络主机均可访问的一台远程服务器上。在该方案的某种变化方案中,如果将 SP 2 安装程序复制到本地主机并从这里运行,则应重命名此脚本(例如重命名为 install-remote.vbs),然后将 install-local.vbs 重命名为 install.vbs。您还必须对这些脚本中提到的 scenario1.vbs 和新的 install.vbs 做一些细微更改。

    有关方案 1 以及各个脚本的作用的进一步说明,请参见对这些脚本的介绍,网址是:

    http://www.microsoft.com/technet/scriptcenter/solutions/appcompat.msxp

    Install.vbs 对应于 install.cmd,但增加了一些新功能;install.cmd 是 Application Compatibility Testing and Mitigation Guide for Windows XP Service Pack 2(Windows XP Service Pack 2 应用程序兼容性测试和缓解指南)“附录”中介绍的附带脚本之一。您可以从以下网址下载用来安装该指南及其关联脚本的 Windows Installer (.msi) 文件:

    http://www.microsoft.com/downloads/details.aspx?FamilyId=9300BECF-2DEE-4772-ADD9-AD0EAF89C4A7displaylang=en

    要使用此脚本,请复制代码,将代码粘贴到记事本中,然后将脚本另存为 install.vbs。此脚本被设计成了作为 scenario1.vbs 启动的进程的一部分自动运行。

    脚本代码 

    复制代码 代码如下:

    '****************************************************************************** 
    'install.vbs 
    'Author: Peter Costantini, the Microsoft Scripting Guys 
    'Date: 9/1/04 
    'Must be deployed to a client and launched remotely by scenario1.vbs. 
    'Assumes that runonce.vbs is in same directory as script. 
    'Assumes that Windows XP Service Pack 2 setup program is on a remote server 
    'and runonce.vbs are in same directory as script. 
    '1. Runs Service Pack 2 setup program from remote server to install 
    '   Windows XP Service Pack 2. This could take one or two hours. 
    '2. Configures the AutoAdmin and RunOnce registry settings necessary 
    '   to run runonce.vbs. 
    '3. Logs results to text file, computername>-sp2-instlog.txt and copies 
    '   the file back to admin workstation. 
    '4. Forces a reboot of the local machine so that the AutoAdmin and RunOnce  
    '   registry settings take effect. 
    '****************************************************************************** 

    On Error Resume Next 

    'Initialize global constants and variables. 
    Const FOR_APPENDING = 8 
    g_strLocalFolder = "c:\temp-ac" 
    'Change name of computer to actual administrative workstation or local  
    'path to which log should be copied. 
    g_strRemoteFolder = "\\adminwkstn>\c$\temp-ac" 

    'Get computer name. 
    g_strComputer = GetComputerName 
    g_strLogFile = g_strComputer  "-sp2-instlog.txt" 

    'Create log file. 
    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    Set objTextStream = objFSO.OpenTextFile(g_strLogFile, FOR_APPENDING, True) 
    objTextStream.WriteLine "Windows XP Service Pack 2 "  _ 
     "Installation and Configuration Log: Phase 1" 
    objTextStream.WriteLine Now 
    objTextStream.WriteLine g_strComputer 
    objTextStream.WriteLine String(Len(g_strComputer), "-") 

    'Handle logic of calling functions and sub-routines to install Service Pack 2 
    'and configure AutoAdministration. 
    blnInstallSP = InstallSP 
    If blnInstallSP = False Then 
      CopyLog 
      WScript.Quit 
    End If 
    blnAutoAdmin = ConfigAutoAdmin 
    If blnAutoAdmin = False Then 
      CopyLog 
      WScript.Quit 
    End If 
    Reboot 

    '****************************************************************************** 

    Function GetComputerName 

    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\." _ 
     "\root\cimv2") 
    Set colSystems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem") 
    For Each objSytem In colSystems 
      GetComputerName = objSytem.Name 
    Next 

    End Function 

    '****************************************************************************** 

    Function InstallSP 

    'Edit this line to include the server and share name where the Windows XP 
    'Service Pack 2 setup program is located. 
    strInstallPath = "\\servername\xpsp2\WindowsXP-KB835935-SP2-ENU.exe "  _ 
     "/quiet /norestart /o" 

    Set WshShell = CreateObject("Wscript.Shell") 
    Set objExec = WshShell.Exec(strInstallPath)  
    'This could take one or two hours. 
    objTextStream.WriteLine "Installation started ..." 
    If Err = 0 Then 
    'Loop until Exec is finished - Status = 1. 
      Do While objExec.Status = 0 
    'Pause for 10 seconds before checking. 
    'To reduce network traffic, make interval longer. 
        WScript.Sleep 10000 
      Loop 
      objTextStream.WriteLine "Service Pack 2 installation completed." 
      InstallSP = True 
    Else 
      objTextStream.WriteLine "Unable to install Service Pack 2."  VbCrLf  _ 
       "Error connecting to Service Pack 2 on server."  VbCrLf  _ 
       "Error number: "  Err.Number  VbCrLf  _ 
       "Error source: "  Err.Source  VbCrLf  _ 
       "Error description: "  Err.Description 
      InstallSP = False 
    End If 
    Err.Clear 

    End Function 

    '****************************************************************************** 

    Function ConfigAutoAdmin 

    Const HKEY_LOCAL_MACHINE = H80000002 
    strKeyPath1 = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" 
    strKeyPath2 = "SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce" 
    strDefaultUserName = "Administrator" 
    strDefaultPassword = "P@ssw0rd" 
    strDefaultDomainName = "Contoso" 
    intAutoAdminLogon = 1 
    strRunOnceEntry = "MyScript" 
    strRunoncePath = g_strLocalFolder  "\runonce.vbs" 

    Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\"  _ 
     g_strComputer  "\root\default:StdRegProv") 

    'Set strDefaultUserName to user with Administrator credentials. 
    intRet1 = objReg.SetStringValue(HKEY_LOCAL_MACHINE, strKeyPath1, _ 
     "DefaultUserName", strDefaultUserName) 
    If intRet1 > 0 Then 
      objTextStream.WriteLine "Error: DefaultUserName not configured." 
    End If 

    'Set strDefaultPassword to password of default username. 
    intRet2 = objReg.SetStringValue(HKEY_LOCAL_MACHINE, strKeyPath1, _ 
     "DefaultPassword", strDefaultPassword) 
    If intRet2 > 0 Then 
      objTextStream.WriteLine "Error: DefaultPassword not configured." 
    End If 

    'Uncomment next 5 lines and edit last parameter if default domain 
    'for the credentials is different from that already set. 
    'intRet3 = objReg.SetStringValue(HKEY_LOCAL_MACHINE, strKeyPath1, _ 
    ' "DefaultDomainName", strDefaultDomainName) 
    'If intRet3 > 0 Then 
    '  objTextStream.WriteLine "Error: DefaultDomainName not configured." 
    'End If 

    'Turn on AutoAdminLogon 
    intRet4 = objReg.SetStringValue(HKEY_LOCAL_MACHINE, strKeyPath1, _ 
     "AutoAdminLogon", "1") 
    If intRet4 > 0 Then 
      objTextStream.WriteLine "Error: AutoAdminLogon not configured." 
    End If 

    'Add MyScript entry to RunOnce subkey. 
    intRet5 = objReg.SetStringValue(HKEY_LOCAL_MACHINE, strKeyPath2, _ 
     strRunOnceEntry, strRunoncePath) 
    If intRet5 > 0 Then 
      objTextStream.WriteLine "Error: MyScript RunOnce entry not configured." 
    End If 

    'Check that all registry write operations succeeded. 
    If (intRet1 + intRet2 + intRet3 + intRet4 + intRet5) = 0 Then 
      objTextStream.WriteLine "AutoAdminLogon and RunOnce configured." 
      ConfigAutoAdmin = True 
    Else 
      objTextStream.WriteLine "Error: AutoAdminLogon and RunOnce not fully "  _ 
       "configured." 
      ConfigAutoAdmin = False 
    End If 

    End Function 

    '****************************************************************************** 

    Sub Reboot 

    Const FORCED_REBOOT = 6 
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,"  _ 
     "(Shutdown)}!\\"  g_strComputer  "\root\cimv2") 
    Set colOSes = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem") 
    objTextStream.WriteLine "Attempting to reboot ..." 
    CopyLog 
    For Each objOS In colOSes 'Only one objOS in collection 
      intReturn = objOS.Win32Shutdown(FORCED_REBOOT) 
      If intReturn > 0 Then 
        Set objTextStream = objFSO.OpenTextFile(g_strLogFile, FOR_APPENDING, True) 
        objTextStream.WriteLine Now 
        objTextStream.WriteLine "Error: Unable to reboot. "  VbCrLf  _ 
         "Return code: "  intReturn 
      CopyLog 
      End If 
    Next 

    End Sub 

    '****************************************************************************** 

    Sub CopyLog 

    'Close text file. 
    objTextStream.WriteLine "Closing log and attempting to copy file to "  _ 
     "administrative workstation." 
    objTextStream.WriteLine 
    objTextStream.WriteLine String(80, "-") 
    objTextStream.WriteLine 
    objTextStream.Close 

    'Copy log. 
    If Not objFSO.FolderExists(g_strRemoteFolder) Then 
      objFSO.CreateFolder(g_strRemoteFolder) 
      If Err > 0 Then 
        Err.Clear 
        Exit Sub 
      End If 
    End If 
    objFSO.CopyFile g_strLogFile, g_strRemoteFolder  "\" 

    End Sub 

    要获得在线同行支持,请加入 msnews.microsoft.com 新闻服务器上的 microsoft.public.windows.server.scripting 社区。要提供反馈或报告示例脚本或“脚本指南”中的错误,请联系 Microsoft TechNet。

    免责声明

    此示例脚本不受任何 Microsoft 标准支持计划或服务的支持。这里仅按原样提供示例脚本,而不作任何类型的担保。Microsoft 进一步明确拒绝所有的暗示担保,包括但不限于对适销性或对特定目的适用性的任何暗示担保。使用或执行示例脚本和文档所引起的全部风险应由您自己承担。在任何情况下,对于使用或不能使用示例脚本或文档所引起的任何损害(包括但不限于商业利润损失、业务中断、商业信息丢失或其他资金损失所造成的损害),Microsoft、其作者以及参与脚本创建、生产或传递的任何其他人员都概不负责,即使 Microsoft 已被告知存在这些损害的可能性。

    您可能感兴趣的文章:
    • 利用ASP从远程服务器上接收XML数据的方法
    • ColdFusion MX 远程服务实例入门教程
    • C# FTP,GetResponse(),远程服务器返回错误
    • 将MSSQL Server 导入/导出到远程服务器教程的图文方法分享
    • python 从远程服务器下载东西的代码
    • python 从远程服务器下载日志文件的程序
    • java判断远程服务器上的文件是否存在的方法
    • 利用xcopy命令实现本地文件复制到远程服务器的方法
    • Android远程服务编写和调用教程
    上一篇:用vbs找到映射到共享的所有驱动器并重新映射它们
    下一篇:用vbs判断一个日期是否在指定的时段内
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    可以从一台远程服务器运行 SP2 安装程序Install.vbs 可以,从,一台,远程,服务器,