Working Scripts
'On Error Resume Next
dim objRun,objCmd,quote,path,fname
msgbox"Hi Sh1"
quote=chr(34)
Set objRun = CreateObject("WScript.Shell")
msgbox"Hi Sh2"
'path=objRun.ExpandEnvironmentStrings("%SystemRoot%")
'shimgvw.dll
path="C:\"
msgbox"Hi Sh3"
fname=path & "\shimgvw.dll"
objCmd = "regsvr32 /u " & quote & fname & quote
msgbox"Hi Sh4"
objRun.Run objCmd,True
Set objRun = Nothing
Dim strfilename
Dim Oraclehomes
On Error Resume Next
'strfilename = WScript.Arguments(0)
HOST1 = WScript.Arguments(0) 'Pass New value as Parameter
HOST2 = WScript.Arguments(1) 'Pass New value as Parameter
Set oFSO = CreateObject("Scripting.FileSystemObject")
Const ForAppending = 8
Const ForWriting = 2
Set Wshshell = CreateObject("WScript.Shell")
Oraclehomes = Wshshell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\oracle\ALL_HOMES\HOME_COUNTER")
'wscript.echo strfilename
'wscript.echo Oraclehomes
For counter = 0 to Oraclehomes-1
registryvalue = "HKEY_LOCAL_MACHINE\SOFTWARE\oracle\HOME" & Counter & "\ORACLE_HOME"
OracleHomePath = Wshshell.RegRead(registryvalue)
'wscript.echo OracleHomePath
strfilename = OracleHomePath & "\Network\Admin\Tnsnames.ora"
'wscript.echo strfilename
If oFSO.FileExists(strfilename) Then
Set oFile = oFSO.OpenTextFile(strFileName, ForAppending)
oFile.WriteLine "MARGINDB = (DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP)(HOST = " & HOST1 & ")(PORT = 1521)) ) (CONNECT_DATA = (SERVICE_NAME = MARGINDB) ) )"
oFile.WriteLine "SGMARGIN = (DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP)(HOST = " & HOST2 & ")(PORT = 1521)) ) (CONNECT_DATA = (SERVICE_NAME = SGMARGIN) ) )"
oFile.Close
Else
Set oFile = oFSO.CreateTextFile(strFileName)
oFile.WriteLine "MARGINDB = (DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP)(HOST = " & HOST1 & ")(PORT = 1521)) ) (CONNECT_DATA = (SERVICE_NAME = MARGINDB) ) )"
oFile.WriteLine "SGMARGIN = (DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP)(HOST = " & HOST2 & ")(PORT = 1521)) ) (CONNECT_DATA = (SERVICE_NAME = SGMARGIN) ) )"
oFile.Close
End If
'wscript.echo Counter
Next
On Error Resume Next
Set objShell = CreateObject("WScript.Shell")
strPlugin = "CDOROM.xll" 'Excel Plugin File Name only
strExcelRegistryKey = "HKCU\Software\Microsoft\Office\11.0\Excel\Options" 'Excel Registry Location (Dependable on Office version)
strRegKeyValue = objShell.RegRead(strExcelRegistryKey & "\Open")
If strRegKeyValue <> "" Then
If InStr(strRegKeyValue,strPlugin) Then
objShell.RegDelete strExcelRegistryKey & "\Open"
End If
End If
strRegKey = ""
strRegKeyValue = ""
intCount = 0
Err.Clear
Do Until Err.number = -2147024894
intCount = intCount + 1
strRegKey = strExcelRegistryKey & "\Open" & intCount
strRegKeyValue = objShell.RegRead(strRegKey)
If InStr(strRegKeyValue,strPlugin) Then
objShell.RegDelete strExcelRegistryKey & "\Open" & intCount
End If
Loop
Set objShell = Nothing
On Error Resume Next
Set objShell = CreateObject("WScript.Shell")
strPlugin = '"""C:\Moodys\CDOROM.xll""" 'This is the name of your Excel Addin
strExcelRegistryKey = "HKCU\Software\Microsoft\Office\11.0\Excel\Options" 'Becareful of your Office version here!
intCount = 0
intCompleted = 0
If objShell.RegRead(strExcelRegistryKey & "\Open") = "" Then
objShell.RegWrite strExcelRegistryKey & "\Open", strPlugin, "REG_SZ"
intCompleted = 1
End If
If intCompleted <> 1 Then
Err.Clear
Do Until Err.number = -2147024894
intCount = intCount + 1
strRegKey = strExcelRegistryKey & "\Open" & intCount
strRegKeyValue = objShell.RegRead(strRegKey)
Loop
objShell.RegWrite strExcelRegistryKey & "\Open" & intCount, strPlugin, "REG_SZ"
End If
Set objShell = Nothing
'Please uncomment the below lines and use it accordingly
'Wscript.Echo Now
'Wscript.Echo "Year: " & DatePart("yyyy" , Now)
'Wscript.Echo "Quarter: " & DatePart("q", Now)
'Wscript.Echo "Month: " & DatePart("m" , Now)
'Wscript.Echo "Day of Year: " & DatePart("y" , Now)
'Wscript.Echo "Day: " & DatePart("d" , Now)
'Wscript.Echo "Weekday: " & DatePart("w" , Now)
'Wscript.Echo "Week of Year: " & DatePart("ww" , Now)
Wscript.Echo "Hour: " & DatePart("h", "10:15:20")
'Wscript.Echo "Minute: " & DatePart("n" , Now)
'Wscript.Echo "Seconds: " & DatePart("s" , Now)
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim FileNum
FileNum = 0
Dim strCurrentFolder
strCurrentFolder = "c:\temp"
Dim objFolder
Set objFolder = objFSO.GetFolder(strCurrentFolder)
ListDirectory objFolder
Sub ListDirectory(objFolder)
Dim objFile
Dim objSubFolder
For Each objFile In objFolder.Files
If UCase(Right(objFile.Path, 3)) = "LOG" Then
objFSO.MoveFile objFile.Path, "c:\temp\" & FileNum & "_tmp.log"
FileNum = FileNum + 1
End If
Next
End Sub
