VBScript – Quan Tran

Paste from Clipboard

quan3t — Wed, 17 Oct 2018 07:44:58 +0000

Script will paste from clipboard to a file.

Set objHTML = CreateObject(“htmlfile”)
ClipboardText = objHTML.ParentWindow.ClipboardData.GetData(“text”)
path = “C:/temp_t.txt”
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objFile = objFSO.OpenTextFile(path, 2, true)
objFile.WriteLine ClipboardText
objFile.Close

Automate RSA SecurID token authentication

quan3t — Wed, 17 Oct 2018 07:42:49 +0000

Script to automatic RSA SecurID token authentication by opening up RSA, send the PIN, then copy the token and close RSA.

‘ Opens RSA SecurID application, sends out the PIN code and then closes it

‘ Kill current open process
myProcess=”SecurID.exe”
Set Processes = GetObject(“winmgmts:”).InstancesOf(“Win32_Process”)
For Each Process In Processes
If StrComp(Process.Name, myProcess, vbTextCompare) = 0 Then
Process.Terminate()
End If
Next

‘ Main code
SecApp = “C:\Program Files (x86)\RSA SecurID Software Token\SecurID.exe”
Set SecObj = CreateObject(“WScript.Shell”)
SecObj.Exec(SecApp)
WScript.Sleep 1000
MySendKeys(“12345”) ‘send PIN
MySendKeys(“{ENTER}”)
MySendKeys(“^{c}”) ‘send CTRL+C
MySendKeys(“%{F4}”)

‘ Function to sendkeys
Function MySendKeys(keys)
SecObj.AppActivate(SecApp)
WScript.Sleep 250
SecObj.SendKeys(keys)
End Function

Terminate a running process

quan3t — Wed, 17 Oct 2018 07:35:44 +0000

Script to terminal an open processes.

‘ Kill current open process
myProcess=”Something.exe”
Set Processes = GetObject(“winmgmts:”).InstancesOf(“Win32_Process”)
For Each Process In Processes
If StrComp(Process.Name, myProcess, vbTextCompare) = 0 Then
Process.Terminate()
End If
Next