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