Application Virtualization is new and hi-end domain where Applications will be available to Users without being physically installed on User Desktops.
There are couple of Products from different Vendors which has Virtualization in realtime.
1. Microsoft App-V
2. Citrix XenApp
3. VMWare ThinApp
4. Cameyo
Thursday 4 March 2010
Application Packaging
This is a place where you can know about Application Packaging. Its a hot and demanding domain in the current market.
Application Packaging is basically customizing applications according to Microsoft Best Practices/Requirements and making ready for deployment in Organizations.
Deployment of applications to client desktops will take place normally using a Deployment Tool ( Eg: SCCM, BMC Marimba, HP OVCM, ManageSoft etc.., )
Application Packaging is basically customizing applications according to Microsoft Best Practices/Requirements and making ready for deployment in Organizations.
Deployment of applications to client desktops will take place normally using a Deployment Tool ( Eg: SCCM, BMC Marimba, HP OVCM, ManageSoft etc.., )
Thursday 23 July 2009
Set Working Directory of Shortcut
Set objShell = WScript.CreateObject("WScript.Shell")
Set objShtCut = objShell.Createshortcut("D:\Documents and Settings\All Users\Start Menu\Programs\MKS Toolkit\Evaluation Guide\For Systems Administrators\Desktop Shortcuts.lnk")
objShtCut.WorkingDirectory = "C:\PROGRA~1\MKSTOO~1\Demonstrations\bin"
objShtCut.Save
'WScript.Echo objShtCut.WorkingDirectory
Set objShtCut = objShell.Createshortcut("D:\Documents and Settings\All Users\Start Menu\Programs\MKS Toolkit\Evaluation Guide\For Systems Administrators\Desktop Shortcuts.lnk")
objShtCut.WorkingDirectory = "C:\PROGRA~1\MKSTOO~1\Demonstrations\bin"
objShtCut.Save
'WScript.Echo objShtCut.WorkingDirectory
Stop and Delete Service - VBScript
Option Explicit
On Error Resume Next
Dim objWshShell
Set objWshShell = CreateObject("WScript.Shell")
objWshShell.Run "sc stop Nicelog",0,true
objWshShell.Run "sc delete Nicelog",0,true
Set objWshShell = Nothing
On Error Resume Next
Dim objWshShell
Set objWshShell = CreateObject("WScript.Shell")
objWshShell.Run "sc stop Nicelog",0,true
objWshShell.Run "sc delete Nicelog",0,true
Set objWshShell = Nothing
Add Registry of Type REG_NONE - VBScript
Dim objWshShell
Set objWshShell=CreateObject("WScript.Shell")
WINDIR =objWshShell.ExpandEnvironmentStrings("%windir%")
objWshShell.Run "reg add HKCU\Software\Google\Google /v hello /t REG_NONE",0
Set objWshShell=Nothing
Set objWshShell=CreateObject("WScript.Shell")
WINDIR =objWshShell.ExpandEnvironmentStrings("%windir%")
objWshShell.Run "reg add HKCU\Software\Google\Google /v hello /t REG_NONE",0
Set objWshShell=Nothing
Create Binary Registry - VBSCript
const HKEY_CURRENT_USER = &H80000001
strKeyPath = "Software\Google\Google Earth Plus"
strComputer = "."
iValues = Array()
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
BinaryValueName = "FailureActions"
oReg.SetBinaryValue HKEY_CURRENT_USER,strKeyPath, BinaryValueName,iValues
strKeyPath = "Software\Google\Google Earth Plus"
strComputer = "."
iValues = Array()
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
BinaryValueName = "FailureActions"
oReg.SetBinaryValue HKEY_CURRENT_USER,strKeyPath, BinaryValueName,iValues
Creating STRING and DWORD Values - VBScript
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set StdOut = WScript.StdOut
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\System Admin Scripting Guide"
strValueName = "String Value Name"
strValue = "string value"
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
strValueName = "DWORD Value Name"
dwValue = 82
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strComputer = "."
Set StdOut = WScript.StdOut
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\System Admin Scripting Guide"
strValueName = "String Value Name"
strValue = "string value"
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
strValueName = "DWORD Value Name"
dwValue = 82
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
Subscribe to:
Posts (Atom)