Script dan VBA

Posted on

Script for Google Drive

function myFunction() {
var ss = SpreadsheetApp.getActiveSpreadsheet();
var s = ss.getActiveSheet();
var c1 = s.getRange(“B2”);
var c2 = s.getRange(“A2”)
var fldr = DriveApp.getFolderById(“1TfyvJ3zw5WiKKiL_yfNyV8aVDPvJmf5Q”);
var files = fldr.getFiles();
var urls = [], ids = [], f, str;
while (files.hasNext()) {
f = files.next();
str = ‘=hyperlink(“‘ + f.getUrl() + ‘”)’;
urls.push([str]);
//ids.push([f.getName()]); //Filename with extensions
ids.push([f.getName().replace(/.[^/.]+$/, “”)]); //Remove filename extensions
}

s.getRange(c1.getRow(), c1.getColumn(), urls.length).setFormulas(urls);
s.getRange(c2.getRow(), c2.getColumn(), ids.length).setValues(ids);
}

DOWNLOAD SCRIPT = CLICK HERE

=========================================

Link VBA EXCEL = CLICK HERE

password : paraedu.id

==================================

Script for Hyper V

@echo off pushd "%~dp0"
dir /b %SystemRoot%\servicing\Packages*Hyper-V*.mum >List.txt
for /f %i in ('findstr /i . List.txt 2^>nul') do dism /online /norestart /add-package:"%SystemRoot%\servicing\Packages\%i"
Dism /online /enable-feature /featurename:Microsoft-Hyper-V -All /LimitAccess /ALL
pause

Jika Skrip diatas tidak jalan. klik disini