WINDOWS脚本实践:为SAP补丁制作的VBS脚本

脚本主要功能包括：

1. 注册表读取与修改
2. 文件内容修改如HOSTS、SERVICES文件
3. 文件属性修改和文件复制
4. 系统环境变量设置

等，仅供参考 

'SAP设置脚本
'编写:SCZ 2005.04.20
'最后修改日期: 2005.04.22
'必须存在目录: BW（补丁文件） 和 登入界面
'========================================================================
'全局变量、处理过程
'========================================================================
WScript.Echo "该脚本只能正常运行在WIN2000/XP/2003的操作系统管理员权限下，按'确定'继续"
Set objFSO = CreateObject("Scripting.FileSystemObject") '文件系统对象
strWindir = GetWindir()                    '获取WINDOWS目录
strSystem = GetSystemPath()                '获取System目录
strSapPath = GetSAPPath()                 'SAP FrontEnd目录
strSapGuiPath = strSapPath & "SAPgui"            'SapGui目录
strSapBWPath = strSapPath & "BW"            'BW目录
strHostPath = GetHostFilePath()             'host 文件所在目录
strServicesPath = GetServicesPath()             'services 文件所在目录

Call CopyFiles()                    '复制文件
Call ModifyHost(strHostPath)                '修改HOST文件
Call ModifyServices(strServicesPath)            '修改SERVICES文件
Call SetEvn(strSapGuiPath)                '设置环境变量
Call SetTCPIP(strServicesPath)                '修改TCPIP参数
WScript.Echo "BW设置处理完毕,请手动安装SAP系统补丁"



'========================================================================
'通过注册获取SAP FrontEnd目录
'========================================================================
Function GetSAPPath()
    Const HKEY_LOCAL_MACHINE = &H80000002
    strComputer = "."
    Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!/" & _
         strComputer & " ootdefault:StdRegProv")
  
    strKeyPath = "SOFTWARESAPSAP Shared"
    strEntryName = "SAPdestdir"
    objReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strEntryName,strValue
    GetSAPPath = strValue
    If IsNull(strValue) Then 
        Wscript.Echo "SAP注册信息读取失败，SAP未安装或系统已损坏，安装终止"
        Err.Raise(507)
        Err.Clear
    End If
End Function


'========================================================================
'获取WINDOWS目录
'========================================================================
Function GetWindir()
    Const WindowFolder = 0
    Set GetWindir = objFSO.GetSpecialFolder(WindowFolder)
End Function


'========================================================================
'获取SYSTEM目录
'========================================================================
Function GetSystemPath()
    Const SystemFolder = 1
    Set GetSystemPath = objFSO.GetSpecialFolder(SystemFolder)
End Function


'========================================================================
'获取HOST文件所在目录
'========================================================================
Function GetHostFilePath()
    GetHostFilePath = strSystem & "driversetc"
End Function


'========================================================================
'获取Services文件所在目录
'========================================================================
Function GetServicesPath()
    GetServicesPath = strSystem & "driversetc"
End Function

'========================================================================
'复制文件
'========================================================================
Function CopyFiles()
    If NOT objFSO.FolderExists(strSapBWPath) Then  
        WScript.Echo "BW组件未安装，请先安装SAP的BW组件，再运行该脚本"
        Err.Raise(507)
        Err.Clear
    End If
    
    Call ClearAttribs(strSapBWPath)
    
    objFSO.CopyFile "登陆界面*.ini" , strWindir
    objFSO.CopyFile "BWgssntlm.dll" , strSapGuiPath & "gssntlm.dll"
    objFSO.CopyFile "BWsncgss32.dll" , strSystem  & "sncgss32.dll"

    strBakFolder =strSapBWPath & "ak"
    IF NOT objFSO.FolderExists(strBakFolder) Then  
        objFSO.CreateFolder(strBakFolder)
    Else 
        Call ClearAttribs(strBakFolder)
    End If
    
    objFSO.CopyFile strSapBWPath & "*.xla" , strBakFolder
    objFSO.CopyFile "BW*.xla" , strSapBWPath
End Function

'========================================================================
'去除文件只读属性
'========================================================================
Function ClearAttribs(strFolder)
    Call ClearFileAttrib(strFolder & "sapbex.xla")
    Call ClearFileAttrib(strFolder & "sapbexc.xla")
    Call ClearFileAttrib(strFolder & "sapbexs.xla")
    Call ClearFileAttrib(strFolder & "sapbex0.xla")
    Call ClearFileAttrib(strSystem  & "sncgss32.dll")
End Function

'========================================================================
'去除文件只读属性
'========================================================================
Function ClearFileAttrib(strFile)
    If objFSO.FileExists(strFile) Then 
        Set f = objFSO.GetFile(strFile)
        f.Attributes = 0
    End If 
End Function

'========================================================================
'修改HOST文件
'========================================================================
Function ModifyHost(strHostPath)
    strHostFile = strHostPath & "hosts"
    strHostBak = strHostPath & "hosts.bak"
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    objFSO.CopyFile strHostFile , strHostBak
    Set objFile = objFSO.OpenTextFile(strHostFile, ForReading, False)
    strContents = objFile.ReadAll
    objFile.Close

    Set objFile = objFSO.OpenTextFile(strHostFile, ForAppending, False)
    objFile.WriteBlankLines 1
    compResult = Instr(strContents,"192.168.0.136")
    If compResult = 0 Then objFile.WriteLine("192.168.0.136" & Chr(9) & "bwprd")
    compResult = Instr(strContents,"192.168.0.135")
    If compResult = 0 Then objFile.WriteLine("192.168.0.135" & Chr(9) & "bwdev")
    compResult = Instr(strContents,"192.168.0.171")
    If compResult = 0 Then objFile.WriteLine("192.168.0.171" & Chr(9) & "bwqas")
    objFile.close
End Function 

'========================================================================
'修改SERVICES文件
'========================================================================
Function ModifyServices(strServicesPath)
    strServicesFile = strServicesPath & "services"
    strServicesbak = strServicesPath & "services.bak"
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    objFSO.CopyFile strServicesFile , strServicesbak
    Set objFile = objFSO.OpenTextFile(strServicesFile, ForReading, False)
    strContents = objFile.ReadAll
    objFile.Close

    Set objFile = objFSO.OpenTextFile(strServicesFile, ForAppending, False)
    objFile.WriteBlankLines 1
    compResult = Instr(strContents, "sapmsP01")
    If compResult = 0 Then objFile.WriteLine("sapmsP01" & Chr(9) & "3600/tcp")
    objFile.Close
End Function 

'========================================================================
'设置环境变量
'------------------------------------------------------------------------
Function SetEvn(strSapGuiPath)
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:/" & strComputer & " ootcimv2")
    Set colItems = objWMIService.ExecQuery( "Select * from Win32_Environment where name = 'SNC_LIB'")
    Found = False

    For Each objItem in colItems
        If UCase(objItem.Name) = "SNC_LIB" Then
                Found = True
                objItem.VariableValue = strSapGuiPath & "gssntlm.dll"
                objItem.Put_
           End If
    Next
        
    If (Found = False) Then  
            Set oEvn = objWMIService.Get("Win32_Environment").Spawninstance_
            oEvn.Name = "SNC_LIB"
            oEvn.VariableValue = strSapGuiPath & "gssntlm.dll"
            oEvn.SystemVariable = True
            oEvn.UserName = "<SYSTEM>"
            oEvn.Status = "OK"
            Set oPath = oEvn.Put_
     End If

End Function

'========================================================================

'========================================================================
'设置TCP/IP参数
'------------------------------------------------------------------------
Function SetTCPIP(strServicesPath)
    Const HKEY_LOCAL_MACHINE = &H80000002
    strComputer = "."
    Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!/" & _
         strComputer & " ootdefault:StdRegProv")
  
    strKeyPath = "SYSTEMCurrentControlSetServicesTcpipParameters"
    strEntryName = "DataBasePath"
    objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strEntryName,strServicesPath
End Function
'========================================================================