Created
March 7, 2016 16:55
-
-
Save gioxx/e33d938e2f33e90b0a85 to your computer and use it in GitHub Desktop.
Lo script VBS permette di specificare una diversa versione di Office 365 ProPlus (2016) da installare rispetto a quella presente nel sistema. Se questa è stata specificata (da finestra a video o direttamente da prompt dei comandi) scaricherà il necessario e lo installerà. Non serve più alcuna utenza amministrativa e non è necessario individuare…
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
' Office 365 ProPlus (2016): Upgrade / Downgrade Version | |
' GSolone 2016 v 0.1 | |
' Ultima modifica 07032016 | |
Set WSHShell = WScript.CreateObject("WScript.Shell") | |
Set WNetwork = Wscript.CreateObject("Wscript.Network") | |
On Error Resume Next | |
if WScript.Arguments.Count = 0 then | |
'Richiesta numero di versione da installare | |
strVersion = InputBox("Office 365 ProPlus (2016) Upgrade-Downgrade Tool" & vbCR & "Lo script permette di installare una diversa versione di Office 365 ProPlus sulla macchina." & vbCR & vbCR & "Versione da installare (vuoto o clic su Annulla per uscire dallo script)" & vbCR, "OFC365PP: Upgrade Tool", "16.0.6366.2068") | |
else | |
'Se il numero di versione mi è stato passato da riga di comando, posso procedere direttamente | |
strVersion = Wscript.Arguments(0) | |
end if | |
if LEN(trim(strVersion)) = 0 Then | |
Messaggio = msgbox ("Non hai indicato la versione di Office da installare, termino lo script adesso.", vbCritical, "") | |
wscript.quit | |
else | |
WSHShell.run "cmd.exe /C ""%ProgramFiles%\Common Files\Microsoft Shared\ClickToRun\officec2rclient.exe"" /update user updatetoversion=" & strVersion | |
end if |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment