Skip to content

Instantly share code, notes, and snippets.

@gioxx
Created March 7, 2016 16:55
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save gioxx/e33d938e2f33e90b0a85 to your computer and use it in GitHub Desktop.
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…
' 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