Enable and Disable of Excel Error Message

These alerts can be turned off by using this VBA-code:

Application.DisplayAlerts = False

After a routine you must turn on alert messages:

Application.DisplayAlerts = True

Delete entire empty rolls

Function delRolls ()

On Error Resume Next
worksheet.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0

End Function

Write output file

Create a filesystem Object

 

Set objFSO = CreateObject("Scripting.FileSystemObject")

 

 

Create a output file’s path

 

Set outFile = objFSO.CreateTextFile("i:\ASQ\import.bat", True)

 

 

Input the Value that you would like to input

 

outFile.WriteLine "Here you are writing it in the file"

Set an input Box

Input box is important to VBS as it can provide different input to achieve result.

 

 

myInputBox = Inputbox("Here will show up the detail of the description","This is Input Box")

 

 

 

 

 

 

Pause / Wait

Using sleep function to pause your program



Wscript.Echo "Time Start"

'here is the most important line
WScript.sleep 6000


Wscript.Echo "6 Second Gone"

Read Registry from Local or remote Machine

'to read HKEY Local Machine registry

const HKEY_LOCAL_MACHINE = &H80000002

'prompt for the machine name to input for scanning, the in front part is the prompt and behind one is for Title

strComputer = ""

Set oReg=GetObject( _

   "winmgmts:{impersonationLevel=impersonate}!\\" &_

    strComputer & "\root\default:StdRegProv")

'registry path

strKeyPath = "software\citi\agent"

'registry Value Name

strValueName = "redirect"

'value that it is going to read

oReg.getstringvalue _

   HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

'show with msgbox for the result

MsgBox (strComputer &" CITI agent Status is " & strValue)

To show "POP UP" to inform user

WScript.Echo("This is a pop up")