Dim Man 
Dim WshShell, objFileSys, sWinDir, sSysDir, strScriptDir 
'-----------------------------------------------------------------  
Set WshShell = WScript.CreateObject("WScript.Shell") 
Set objFileSys = CreateObject("Scripting.FileSystemObject") 
'==============================================================================
' ======= 
        strComputer = "."  
        sWinDir = objFileSys.GetSpecialFolder(0).Path 
        If Right(sWinDir,1) <> "\" Then sWinDir = sWinDir & "\" 
            sSysDir = objFileSys.GetSpecialFolder(1).Path 
        If Right(sSysDir,1) <> "\" Then sSysDir = sSysDir & "\" 
            strScriptDir = objFileSys.GetParentFolderName( _
              WScript.ScriptFullName) 
        If Right(strScriptDir,1) <> "\" Then strScriptDir = strScriptDir & "\" 
            '==================================================================
            ' ================================= 
            If Not objFileSys.FileExists(strScriptDir & "Dell_D410.p10") Then 
                MsgBox "Unable to locate " & strScriptDir & "Dell_D410.p10", _
                  vbCritical, "Error!" 
                WScript.Quit 1 
            End If 
            If Not objFileSys.FileExists(strScriptDir & "Dell_D610.p50") Then 
               MsgBox "Unable to locate " & strScriptDir & "Dell_D610.p50", _
                 vbCritical, "Error!" 
                WScript.Quit 1 
            End If 
'==============================================================================
' ===== 
        If objFileSys.FileExists("C:\WINDOWS\system32\DRIVERS\w29n51.sys") Then  
                    objFileSys.CopyFile strScriptDir & "Dell_D410.p10", ( _
                      "C:\WINDOWS\Temp\") 
                    WshShell.Run("C:\WINDOWS\Temp\Dell_D410.p10") 
 
        If objFileSys.FileExists("C:WINDOWSsystem32DRIVERSw29n51.sys") Then 
                    objFileSys.CopyFile strScriptDir & "Dell_D610.p50", ( _
                      "C:WINDOWSTemp") 
                    WshShell.Run("C:WINDOWSTempDell_D610.p50") 
                    End If 
        End if 
'==============================================================================
' ====== 
       IF objFileSys.FileExists("C:WINDOWSTempDell_D410.p10") THEN 
            WScript.Quit 0 
        Elseif objFileSys.FileExists("C:WINDOWSTempDell_D610.p50") THEN 
            WScript.Quit 0 
        Else 
            WScript.Quit 1 
        End If 
'====================================  Ende  ================================ 
Set WshShell = Nothing 
Set objFileSys = Nothing