Monday, November 25, 2013

Friday, November 22, 2013

Installing Oracle Blues

I'm back at it: trying to install Oracle on Windows 7. I have found a couple of sites that I will be using as a guide.

Quick Guide:
http://docs.oracle.com/cd/E11882_01/install.112/e24283.pdf

Full Guide:
http://docs.oracle.com/cd/E11882_01/install.112/e24186.pdf

Backups and recovery:
http://docs.oracle.com/cd/B19306_01/server.102/b14220/backrec.htm
http://www.dba-oracle.com/concepts/rman_recovery_database_spfile.htm

Instantly use your PowerGUI PowerPacks ...

Need to manage an IT system. This might work for you. It lets you manage your system from iOS, Android and Windows Mobile Systems. I don't have a real use for this now, but I think I will.

Instantly use your PowerGUI PowerPacks ...

Using MVC to Understand ASP.NET, iOS, Android and Hybrid Development - CodeProject

This is an article that will be very handy! I've been looking for information about how to simultaneously design and write software that will work for ASP.NET, iOS, and Android! This fits my needs nicely!

Using MVC to Understand ASP.NET, iOS, Android and Hybrid Development - CodeProject

Wednesday, November 20, 2013

Fun Batch File Codes

This article gives 10 scripts that can be used to do really cool stuff


Code #1- The matrix look alike code
Code #2- E-bomb
Code #3- Manual message making SPAMMER!
Code #5- Current date and time code
Code #6- Black screen march (makes multiple command prompts and overloads computers memory)
Code #7- Simple text book diary log
Code #8- Getting your self automated chat
Code #9- code for opening and closing your CD drive
Code #10- shutdown computer

Fun Batch File Codes

Wednesday, November 6, 2013

Programmatically Create a Shortcut and Run It As Administrator

I've recently ran into major problems getting a *.bat (DOS Batch) file generated on-the-fly by a web service I wrote to call another program on the same computer that is running the web service. The *.bat file generates a *.rsp file containing a bunch of input parameters and passes it to the program I want to run. On Windows XP there was no problem but on windows 7, the *.bat files needs more special commission. It didn't even matter that I was signed in as an administrator. The Bat file is not able to run properly. Then I discovered if I run the *.bat file "as administrator" by right-click on the *.bat file in windows Explorer the *.bat file runs just as I intended. Somehow I had to get my web service to run the *.bat file "as administrator". This was much more difficult to find an answer than I thought. I found out that if I create a short-cut to the *.bat file and run that shortcut "as administrator" it would work perfectly. Fortunately, it's possible to programmatically to both create the shortcut on the fly and set "the run Administrator" flag for the shortcut from my web service. My solution is based on the following article:

How to set “Run as administrator” flag on shortcut created by MSI installer

Here is the code, I use.


        'Create Shortcuts
        Dim VbsObj As Object
        VbsObj = CreateObject("WScript.Shell")
        Dim MyShortcut As Object
        MyShortcut = VbsObj.CreateShortcut(pathe2file & "\GetFVSstand" & ".lnk")
        MyShortcut.TargetPath = pathe2file & "\GetFVSstand.bat"
        MyShortcut.WorkingDirectory = pathe2file

        MyShortcut.Save()

        Dim ret As Integer
        ret = fSetRunAsOnLNK(pathe2file & "\GetFVSstand" & ".lnk")




      Public Function fSetRunAsOnLNK(ByVal sInputLNK As String)
        Dim fso As Object, wshShell, oFile, iSize, aInput(), ts, i
        fso = CreateObject("Scripting.FileSystemObject")
        wshShell = CreateObject("WScript.Shell")
        If Not fso.FileExists(sInputLNK) Then fSetRunAsOnLNK = 114017 : Exit Function
        oFile = fso.GetFile(sInputLNK)
        iSize = oFile.Size
        ReDim aInput(iSize)
        ts = oFile.OpenAsTextStream()
        i = 0
        Do While Not ts.AtEndOfStream
            aInput(i) = ts.Read(1)
            i = i + 1
        Loop
        ts.Close()
        If UBound(aInput) < 50 Then fSetRunAsOnLNK = 114038 : Exit Function
        If (Asc(aInput(21)) And 32) = 0 Then
            aInput(21) = Chr(Asc(aInput(21)) + 32)
        Else
            fSetRunAsOnLNK = 99 : Exit Function
        End If
        fso.CopyFile(sInputLNK, wshShell.ExpandEnvironmentStrings("%temp%\" & oFile.Name & "." & Hour(Now()) & "-" & Minute(Now()) & "-" & Second(Now())))
        On Error Resume Next
        ts = fso.CreateTextFile(sInputLNK, True)
        If Err.Number <> 0 Then fSetRunAsOnLNK = Err.Number : Exit Function
        ts.Write(Join(aInput, ""))
        If Err.Number <> 0 Then fSetRunAsOnLNK = Err.Number : Exit Function
        ts.Close()
        fSetRunAsOnLNK = 0
    End Function



Where path2file is the path to the shortcut.