某云桌面office解决方案

Set WshShell = WScript.CreateObject("WScript.Shell") 
If WScript.Arguments.Length = 0 Then 
  Set ObjShell = CreateObject("Shell.Application") 
  ObjShell.ShellExecute "wscript.exe" _ 
  , """" & WScript.ScriptFullName & """ RunAsAdministrator", , "runas", 1 
  WScript.Quit 
End if

Dim Program1,Fs


set fs = CreateObject("Scripting.FileSystemObject")

if(fs.FileExists("C:\\Program Files\\Microsoft Office\\Office16\\ospp.vbs")) then

Program1 = "C:\Program Files\Microsoft Office\Office16\ospp.vbs"

else

if(fs.FileExists("C:\\Program Files (x86)\\Microsoft Office\\Office16\\ospp.vbs")) then

Program1 = "C:\Program Files (x86)\Microsoft Office\Office16\ospp.vbs"
end if
end if

Set WshShell=createobject("wscript.shell")


hst=WshShell.Run ("cmd /c cscript " &  """" & Program1 & """" &" /sethst:x.x.x.x",0,True)
act=WshShell.Run ("cmd /c cscript " &  """" & Program1 & """" &" /act",0,True)

'ReadComputerName.vbs
Dim ReadComputerName
Set ReadComputerName=WScript.CreateObject("WScript.Shell")
Dim ComputerName,RegPath
RegPath="HKLM\System\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName"
ComputerName=ReadComputerName.RegRead(RegPath)

ReadComputerName.RegWrite "HKCU\SOFTWARE\Microsoft\Office\16.0\Registration\" & ComputerName & "\{90160000-000F-0000-0000-0000000FF1CE}\ProPlusVolume\EULA\8","请注意：使用该软件时，需遵守购买该软件时附带的许可协议中的条款和条件。例如："