Month: September 2014

Combining Cpau and Psexec can prove to be quite a powerful combination.

This is how you would launch a process in elevated security…and also remotely launch a file.

CPAU
Use cpau.exe to change the security context and launch the local script. Note, I also pass the PC name to the remote.cmd using strComputer1

objShell.Run “%comspec% /c cpau.exe -u %computername%\administrator -p PASSWORD_HERE -ex “”remote.cmd ” & strComputer1 & chr(34) & ” -lwop -hide”,0,false

PSEXEC
The contents of the remote.cmd (how you launch a script remotely using psexec)

@echo off

if not “%1” == [] set PC=%1
if “%1” == [] exit /b 0

rem sets PC name – it was passed from the VBScript/HTA above
SET PC=%1

rem copies your script to the remote computer
copy /y script.cmd \\%PC%\c$\windows\system32
Menu\Programs\Startup\”

rem launches the script remotely
psexec \\%PC% /accepteula -d -s script.cmd

* submitted by Matt Salamon

If WScript.Arguments.Count Then
Const FOR_READING    = 1
Const MAX_CHARACTERS = 8192
Set fs = WScript.CreateObject(“Scripting.FileSystemObject”)
Set f  = fs.OpenTextFile(WScript.Arguments(0), FOR_READING)
t = f.Read(MAX_CHARACTERS)
With WScript.CreateObject(“InternetExplorer.Application”)
.Navigate “about :blank”
Do Until .ReadyState = 4 : WScript.Sleep 50 : Loop
.document.ParentWindow.ClipboardData.SetData “text”, t
End With
f.Close
End If

Perform these steps to implement the script in the txtfile’s right-click context menu:

•Save the code as C:\WINDOWS\system32\Cop2Clip.vbs
•Start regedit.exe and expland the HKCR\txtfile key in the left pane
•Right-click HKCR\txtfile\shell and create a new key called Cop2Clip
•Mark HKCR\txtfile\shell\Cop2Clip and double-click the (Default)-entry in the right pane.
•Enter “C&opy file contents to clipboard” – this text will appear in the context menu.
•Right-click HKCR\txtfile\shell\Cop2Clip and create a new key called command
•Mark HKCR\txtfile\shell\Cop2Clip\command and double-click the (Default)-entry in the right pane.
•Enter C:\WINDOWS\system32\wscript.exe C:\WINDOWS\system32\Cop2Clip.vbs //nologo “%1″ – this is the command line that will be executed if you choose the new Copy file contents to clipboard context menu item.

VBScript

Const FOR_READING = 1

Dim objFs, objFile, strFileName, LinesToReturn, i, aryLine, j

strFileName = “test.txt”
LinesToReturn = “10”
Set objFs = WScript.CreateObject(“Scripting.FileSystemObject”)
If objFs.FileExists(strFileName) Then
Set objFile = objFs.OpenTextFile(strFileName, FOR_READING)
ReDim aryLine(LinesToReturn)
i = 0
Do Until objFile.AtEndOfStream
i = (i+1) Mod LinesToReturn
aryLine(i) = objFile.ReadLine
Loop
For j = 1 To LinesToReturn
If aryLine(j) = vbEmpty Then Exit For
WScript.Echo aryLine(j)
Next
End If

Batch

@echo off > NFILE & setLocal enableDELAYedeXpansioN

:main
for /f “tokens=1* delims=[]” %%a in (‘find /n /v “” ^< MFILE’) do (
set LAST=%%a
)

set/a FIRST=LAST-9

for /f “tokens=1* delims=[]” %%a in (‘find /n /v “” ^< MFile’) do ( if %%a geq !FIRST! echo.%%b ) >> NFILE
goto :eof

FOR /f “skip=2 tokens=5*” %%a In (‘REG QUERY “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run” /v “YourValueHere”‘) do SET rValue=%%a
echo “%rValue%”

Java 7 Update 67 (7u67)

Release Highlights

• IANA Data 2014c
  JDK 7u67 contains IANA time zone data version 2014c. For more information, refer to Timezone Data Versions in the JRE Software.
• Bug Fix: regression – java_arguments not accepted after update to 7u65
  The regression is addressed in this release. See 8050875.

Java Expiration Date

The expiration date for 7u67 is October 14, 2014. Java expires whenever a new release with security vulnerability fixes becomes available. For systems unable to reach the Oracle Servers, a secondary mechanism expires this JRE (version 7u67) on November 15, 2014. After either condition is met (new release becoming available or expiration date reached), Java will provide additional warnings and reminders to users to update to the newer version.

» 7u67 Release notes

‘Check Internet Connection
on error resume next
strURL = “www.google.com”
ConnectionTest = WSHShell.Run(“cmd /c ping -n 2 ” & strURL, 0, True)
‘If ConnectionTest = 0 then msgbox “You are connected!”
If ConnectionTest = 1 then
msgbox “This computer is not connected to the network. Please check your connection and try again.”
location.reload()
end if

* remember to instantiate the WSHShell.Run object…