30. Januar 2014 23:07
31. Januar 2014 10:17
31. Januar 2014 10:38
ergänzen deines Dateiausrollens um eine REG-Datei die den Wert entsprechend hochsetzt.
31. Januar 2014 12:50
31. Januar 2014 14:57
Rem Versionskotrolle
for /F %%i in ('dir c:\*fin*.exe /b /s') do ( 
    xcopy %%i t:\innecken\hardware\%COMPUTERNAME%%%~pi  /c /r /y 
)
' Windows Script Host Runtime Library
' meine Variablen tragen KEINE Typsierung im Namen !
Set wshshell = CreateObject("WScript.Shell")
set shell = WScript.CreateObject("Shell.Application")
Set fso = CreateObject("Scripting.FileSystemObject")
Dim Datei(),DateiX
'Anpassungen notwendig
Versionsspeicher = "T:\Innecken\HARDWARE"
'Vorbelegungen
Installationen = 0
'Programm
SucheInstallationen Versionsspeicher
Set FileOut = fso.OpenTextFile( Versionsspeicher&"\NavisionVersionierung.csv", 2, true)
if Installationen > 0 then
    for i = 1 to Installationen
        FileOut.writeLine Datei(i)  
    next
else
    msgBox"Nix gfunden!"
end if
msgBox"fertig"
sub SucheInstallationen(Versionsspeicher)
set VersionsspeicherFolders = fso.getfolder(versionsspeicher)
set Unterverzeichnisse = VersionsspeicherFolders.SubFolders
for each Verzeichnis in Unterverzeichnisse
    SucheInstallationen Verzeichnis.path
next 
set Dateiliste = VersionsspeicherFolders.files
for each DateiZuPruefen in Dateiliste
    if UCase(DateiZuPruefen.name) = "FINSQL.EXE" then
        Installationen = Installationen + 1
        
        ReDim Preserve Datei(Installationen)
        Datei(Installationen) = """"& DateiZuPruefen.path & """;""" & fso.getfileversion(DateiZuPruefen.path) & """"
    end if
next
end sub