Remove Trailing Backslash - VBScript

On Error Resume Next


Dim strNewValue, Path, slash


       Path = InputBox("Enter Folder Path", "Please Enter", "")


       slash = Len(DatabasePath1)-1


       strNewValue = mid(Path, 1, slash)


msgbox StrNewValue

Citrix License Administration Console

When you launch the shortcut "License Administration Console" you will receive following Error.

It looks like its a but, However, tTo access Citrix License Administration Console, type the following URL in your browser


http://localhost:8082

Get RAM Size - VBSCript

Following script displays the RAM present on a system



Option Explicit
Dim objWMIService, objComputer, colComputer 
Dim strLogonUser, strComputer 


strComputer = "."   
Set objWMIService = GetObject("winmgmts:"& "{impersonationLevel=impersonate}!\\"& strComputer & "\root\cimv2") 
Set colComputer = objWMIService.ExecQuery("Select * from Win32_ComputerSystem") 


For Each objComputer in colComputer 
Wscript.Echo "System Name: " & objComputer.Name & vbCr & "Total RAM " & objComputer.TotalPhysicalMemory/(1024*1024)
Next 


WScript.Quit 

Reboot System - VBScript

set sh=createobject("wscript.shell")


set fso=createobject("scripting.filesystemobject")
Dim a
a=MsgBox("Do you want to Reboot your system",4,"Application Name")
If a=6 Then


MsgBox "yes was clicked"
sh.Run "shutdown -r"


End if

Application Packaging Videos

Converting EXE to MSI using AdminStudio Repackager


http://youtu.be/Dbx9jRSIWwA

Get Files in a Folder - VBScript

Following script displays all the files present in a folder
Change the folder name in oFolder




Dim oFSO, oFile, oFolder


Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("C:\Sample")


For Each oFile in oFolder.Files
 MsgBox oFile.Name
Next

Remove Excel Addin - VBScript

Following VBScript can be used to delete Excel Addin
Change AddIn_path to the Excel Addin file that needs to be removed


Set objArg = WScript.Arguments
AddIn_path = objArg(0)
AddIn_path = "C:\Program Files\FO PROD\SalesXL.xla"

strKeyPath = ""
oReg.EnumKey HKEY_USERS, strKeyPath, arrSubKeys

For Each subkey In arrSubKeys
    'msgbox subkey

strKeyPath = subkey & "\SOFTWARE\Microsoft\Office\11.0\Excel\Options"

oReg.EnumValues HKEY_USERS, strKeyPath,_
arrValueNames, arrValueTypes

X = """" & AddIn_path & """" 

For i=0 To UBound(arrValueNames)

oReg.GetStringValue HKEY_USERS,strKeyPath,arrValueNames(i),strValue

If (left(arrValueNames(i), 4) = "OPEN") Then
  If strValue = x  Then
oReg.DeleteValue HKEY_USERS,strKeyPath,arrValueNames(i)
'msgbox strKeyPath & "\" & arrValueNames(i)
End If
End If   

Next
Next