Pacificobis
05-02-2011, 13:15
Gent.mi,
gradirei risolvere il seguente problema.
Ho la necessità di trasferire dal CD al PC dei Fonts racchiusi in una cartella chiamata Fonts.
Ho realizzato un File Autorun che mi chiama un file bat e a sua volta chiama un file vbs che è in grado di trasferire i fonts e successivamente eliminare la cartella.
Tutto questo va bene con il Seven e non va bene con il S.O. XP.
Gradirei sapere se è possibile inserire un comando che individui il S.O. e applica a seconda della circostanza.
Di seguito inserisco i vari passaggi:
Autorun:
[autorun]
OPEN=pippo.bat
Pippo.bat:
COLOR F0
xcopy /E /I Fonts c:\Fonts
Pause
start Pupo.vbs
Pupo.vbs:
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("c:\Fonts")
Set objFolderItem = objFolder.ParseName("BRUSHSCI.TTF")
objFolderItem.InvokeVerb("Install")
Set objFolderItem = objFolder.ParseName("ALGER.TTF")
objFolderItem.InvokeVerb("Install")
Set fso = CreateObject("Scripting.filesystemobject")
fso.DeleteFolder("c:\fonts")
Set wshShell = CreateObject("WScript.Shell")
WshShell.run "Provare.exe"
Auguro che si possa realizzare e che possiate aiutare. Ringrazio e saluto.
Domenico.
gradirei risolvere il seguente problema.
Ho la necessità di trasferire dal CD al PC dei Fonts racchiusi in una cartella chiamata Fonts.
Ho realizzato un File Autorun che mi chiama un file bat e a sua volta chiama un file vbs che è in grado di trasferire i fonts e successivamente eliminare la cartella.
Tutto questo va bene con il Seven e non va bene con il S.O. XP.
Gradirei sapere se è possibile inserire un comando che individui il S.O. e applica a seconda della circostanza.
Di seguito inserisco i vari passaggi:
Autorun:
[autorun]
OPEN=pippo.bat
Pippo.bat:
COLOR F0
xcopy /E /I Fonts c:\Fonts
Pause
start Pupo.vbs
Pupo.vbs:
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("c:\Fonts")
Set objFolderItem = objFolder.ParseName("BRUSHSCI.TTF")
objFolderItem.InvokeVerb("Install")
Set objFolderItem = objFolder.ParseName("ALGER.TTF")
objFolderItem.InvokeVerb("Install")
Set fso = CreateObject("Scripting.filesystemobject")
fso.DeleteFolder("c:\fonts")
Set wshShell = CreateObject("WScript.Shell")
WshShell.run "Provare.exe"
Auguro che si possa realizzare e che possiate aiutare. Ringrazio e saluto.
Domenico.