Option Explicit
Dim WscriptSchell
Set WscriptSchell = CreateObject("WScript.Shell")
WscriptSchell.Run "https://google.com", 9
Dim WscriptSchell
Set WscriptSchell = CreateObject("WScript.Shell")
WscriptSchell.Run "https://google.com", 9
::@ECHO OFF ::cscript.exe "Test.vbs" ::pause ::exit; @echo off rem IE taskkill /F /IM iexplore.exe start "" "C:\Windows\System32\rundll32.exe" InetCpl.cpl,ClearMyTracksByProcess 255 :: Parse the Local AppData sub path call :Expand xAppData "%%LocalAppData:%UserProfile%=%%" set "xFirefox=\mozilla\firefox\profiles" set "xChrome=\google\chrome\user data" set "xOpera1=\Local\Opera\Opera" set "xOpera2=\Roaming\Opera\Opera" :: Start at the User directory pushd "%UserProfile%\.." taskkill /F /IM firefox.exe taskkill /F /IM chrome.exe taskkill /F /IM opera.exe :: Loop through the Users for /D %%D in (*) do if exist "%%~fD%xAppData%" ( rem Check for Firefox if exist "%%~fD%xAppData%%xFirefox%" ( rd /s /q "%%~fD%xAppData%%xFirefox%" ) rem Check for Chrome if exist "%%~fD%xAppData%%xChrome%" ( rd /s /q "%%~fD%xAppData%%xChrome%" ) rem Check for Opera if exist "%%~fD%xAppData%%xOpera1%" ( rd /s /q "%%~fD%xAppData%%xOpera1%" ) if exist "%%~fD%xAppData%%xOpera2%" ( rd /s /q "%%~fD%xAppData%%xOpera2%" ) ) popd goto End :::::::::::::::::::::::::::::: :Expand <Variable> <Value> if not "%~1"=="" set "%~1=%~2" goto :eof :End endlocal
Option Explicit Dim FileSystemObject, RootFolder, UserName, File Set FileSystemObject = CreateObject("Scripting.FileSystemObject") UserName = CreateObject("WScript.Network").UserName RootFolder = "C:\Users\" & UserName & "\AppData\Local\Google\Chrome\User Data\" ProcessTerminate "chrome.exe" DeleteFileFromFolder RootFolder Sub DeleteFileFromFolder(Path) For Each File In FileSystemObject.GetFolder(Path).Files DeleteAllow File Next For Each File In FileSystemObject.GetFolder(Path).SubFolders DeleteFileFromFolder File.Path Next End Sub Sub DeleteAllow(File) 'Bookmarks remain same If NOT(StrComp(Left(File.Name, 9), "Bookmarks", vbTextCompare)) = 0 Then Wscript.Echo File.Path + " Deleted" On Error Resume Next FileSystemObject.DeleteFile File.Path, True End If End Sub Sub ProcessTerminate(Process) Const StrComputer = "." Dim WshShell, ObjWMIService, ProcessList, ObjProcess Set WshShell = CreateObject("WScript.Shell") Set ObjWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & StrComputer & "\root\cimv2") Set ProcessList = ObjWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" & Process & "'") For Each ObjProcess in ProcessList On Error Resume Next ObjProcess.Terminate Wscript.Echo "Process Terminated, ProcessId=" & ObjProcess.ProcessId & " (" & ObjProcess.Name & ")" Next End Sub
Dim Connection, ConnectString ConnectString = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;PORT=3306;Database=database;User=root;Password=" Set Connection = CreateObject("ADODB.Connection") Connection.Open ConnectString Sql = "SELECT id,created_at FROM table ORDER BY id DESC LIMIT 0, 10" Set Result = Connection.Execute(Sql) Do Until Result.EOF Wscript.Echo "Id=" + CStr(Result(0)) + ",Create_Date=" & FormatDateTime(Result(1), 1) Result.MoveNext Loop Connection.Close