Codes - VBScript

Name: Activate On Running App
Code: Set objShell = CreateObject("WScript.Shell")
----- objShell.AppActivate "[name of process]"
Set objShell = CreateObject("WScript.Shell")
objShell.AppActivate "notepad"

Name: Create Object for other commands
Code: Set objShell = Wscript.CreateObject("Wscript.Shell")
Set objShell = Wscript.CreateObject("Wscript.Shell")

Name: Run a command
Code: objShell.run("%command%")
objShell.run("%comspec% /c mybatchfile.cmd")

Name: Sleep
Code: wscript.sleep [1 = 1 second]
wscript.sleep 6

Name: Background Music Controls
Code #1: set oMplayer = Wscript.Createobject("WMPlayer.OCX")
set oMplayer = Wscript.Createobject("WMPlayer.OCX")
Code #2: oMPlayer.url = "[The location\The music file]"
oMPlayer.url = "E:\Home\Internet Radios\80splanet.m3u"
Code #3: oMPlayer.Controls.Play
oMPlayer.Controls.Play
Code #4: oMPlayer.Controls.Stop
oMPlayer.Controls.Stop

Name: Connect and Disconnect a network drive
Code #1: Set objNetwork = WScript.CreateObject("WScript.Network")
Set objNetwork = WScript.CreateObject("WScript.Network")
Code #2: strLocalDrive = "[drive letter]:"
---- strRemoteShare = "\\[computer name]\[folder name]"
strLocalDrive = "n:"
strRemoteShare = "\\mrnate\iris_network"
Code #3: objNetwork.MapNetworkDrive strLocalDrive, strRemoteShare, False
objNetwork.MapNetworkDrive strLocalDrive, strRemoteShare, False
Code #4: objNetwork.RemoveNetworkDrive "[drive letter]:"
objNetwork.RemoveNetworkDrive "n:"

Name: Move, Copy and Delete files
Code #1: Set fso = CreateObject("Scripting.FileSystemObject")
Set fso = CreateObject("Scripting.FileSystemObject")