The Prodigal Son on 26th G Street

HowTo: Pretend you are working (While Text Browsing)

2011-11-14T18:04:00.003+08:00

Commandline Web Browser (Just like lynx) using VbScript and IE API.

About the code: The code below will use the Internet Explorer API to load the top 20 stories from google news and choosing one of the article will load the document html of the target URL for you to be able to read news from your DOS command line. Best way to look like you are still working on a code while actually reading news without opening any web browsers :p

Requirements: IE 6++

Code Snippet:
Sub Loadnews()
Dim arrTestArray()
Dim urlSelect
intSize = 0
Dim rInterval:rInterval=60
Dim sTime:sTime = Now
Set ie = CreateObject("InternetExplorer.Application")
with ie
.visible = 0
.navigate "http://news.google.com/"
WScript.StdOut.Write vbcrlf & vbtab & "Loading Top Stories for @ " & Now
while .busy
WScript.StdOut.Write "."
WScript.Sleep 1000
wend
WScript.Echo vbcrlf & vbtab & "elapsed : " & datediff("s",sTime,Now) & " secs"
WScript.Echo vbtab & "next refresh: " & dateadd("s",rInterval,Now) & " secs" & vbcrlf
dim ctr:ctr=1
Set newsTitle = .Document.getElementsByTagName("a")
For each xTag in newsTitle
If instr(xTag.InnerHTML,"titletext") >0 then
WScript.Echo vbcrlf & vbtab & ctr & ". " & xTag.InnerText & _
"..." & vbcrlf & vbTab & "[" & xTag & "]"
ctr = ctr + 1
ReDim Preserve arrTestArray(intSize)
arrTestArray(intSize) = xTag
intSize = intSize + 1
If ctr >20 Then Exit For
End If
Next
end with
ie.quit
Set ie = nothing
Dim sleepctr:sleepctr=1
WScript.StdOut.Write vbcrlf & vbtab & "Choose an article #: "

urlSelect = WScript.StdIn.ReadLine
Set ie = CreateObject("InternetExplorer.Application")
Dim tgt:tgt=arrTestArray(urlSelect-1)
with ie
.navigate tgt
WScript.StdOut.Write vbcrlf & vbtab & "Loading [URL]..." & arrTestArray(urlSelect-1)
while .busy
WScript.StdOut.Write "."
WScript.Sleep 1000
wend
WScript.Echo .Document.Body.InnerText
end with
WScript.StdOut.Write vbcrlf & vbtab & "Press any key to continue..."
jcontinue = WScript.StdIn.ReadLine

End Sub

Screen grab:

If at first you fail, call it version 1.0

How can someone so beautiful be so angry?

2011-05-10T19:47:00.004+08:00

Have you ever met someone so beautiful... yet so angry?

They are common nowadays... you can't seem to figure out the root of their anger....

Everyone has issues... who doesn't?

If you think you have bigger issues... there will always be someone out there with bigger dilemma...

It's just a matter of squaring it...

I'm blogging again... I must be bored.

2011-05-10T19:30:00.008+08:00

After a decade of stfu'd attitude and spontaneous random life turning events...

I look back... what do I see? blurred vision... which is good as I would not want to look back... I just wanna keep moving forward... without hesitation...

Few questions that bogged me and pushed me to blog again... hoping someone from somewhere will somehow comment on my stupidity...

How do you prove your existence?

If you are in the memory of others, whether the past or present...

How do you know how far you've gone?

When you look back and could not find the lines that divides the horizon...

no glimpse of light nor shadow from the past...

How do you know if you've had too many?

When everyone starts ignoring your whining...

Why so many how's?

Well, there are so many hows I want to learn now that I'm back... hopefully in time I could make something out of it...

Hopefully this is more productive than bein' a couch potato watching reruns and the same movies over and over again...

What could I make out of all of this?

Digital blah blah's...

Gingerbread ported on N900

2010-12-28T06:15:00.001+08:00

Amplify’d from www.hardwarezone.com

Android Gingerbread 2.3 Ported to Nokia N900

And the hackers have done it again. This time, Google's Gingerbread makes its way onto the Nokia N900, a device that was already running on the Linux-based Maemo OS. What makes this port even more impressive is the fact that the OS is running quite smoothly on the N900. Typically, you don't see that happening when another OS not built for the device is ported over.

Engadget - Running Android on the Nokia N900 has been an ongoing theme for the better part of the past year -- and with hardware designed from the ground up to be both hackable and high-end, we'd expect no less. Indeed, Android 2.3 is the latest victim of an N900 sneak attack, and impressively, core components like messaging already seem to be working -- likely thanks to the fact that hackers had already gotten pre-2.3 builds rock solid.

Now, wouldn't it be great if the Android OS was ported to the Nokia N8? Perhaps, that would have solved a whole lot of performance issues with Nokia's flagship model. Read more about the Android 2.3 port onto the Nokia N900 over here.

Read more at www.hardwarezone.com

See this Amp at http://amplify.com/u/jpfu

HowTo: Enumerate Scheduled Tasks (Using SCHTASKS.EXE)

2008-07-15T00:16:00.002+08:00

I cooked up a script to query the scheduled jobs on remote servers and pipe the output to a CSV file and utilize ADODB to query, populate an HTML template and use mailsend.exe to attach the HTML and send an email notification.

Below are the common parameters using SCHTASKS /Query to enumerate the scheduled jobs which will be the back bone of the script.

SCHTASKS /Query [/S system [/U username [/P password]]] [/FO format]
    [/NH] [/V] [/?]
Description:
    Enables an administrator to display the scheduled tasks on the
    local or remote system.
Parameter List:
    /S        system            -          Specifies the remote system to connect to.
    /U       username      -          Specifies the user context under which the command should execute.
    /P       password       -          Specifies the password for the user context.
    /FO    format             -          Specifies the output format to be displayed. Valid values: TABLE, LIST, CSV.
    /NH                              -          Specifies that the column header should not be displayed in the output.
                                                       Valid only for TABLE and CSV formats.
    /V                                 -           Specifies additional output to be displayed.
    /?                                  -           Displays this help/usage.
Examples:
    SCHTASKS /Query
    SCHTASKS /Query /?
    SCHTASKS /Query /S system /U user /P password
    SCHTASKS /Query /FO LIST /V /S system /U user /P password
    SCHTASKS /Query /FO TABLE /NH /V

Actual SCHTASKS command line executed from the script:

Schtasks.exe /QUERY /S %SERVERNAME% /FO CSV /NH /V > OutputFile.CSV

Actual Mailsend command line executed from the script:

Mailsend.exe -sub %Subject% -v < %Template% -cs "ISO-8859-1" -a "%Attachment%,text/html,i"

-sub "Mail Subject"

-v Verbose Mode

< %Template%

       Template File Contains the following:

       1st line : SMTP Host

       2nd line: Domain

       3rd line: Sender's Email Address

       4th Line: Recipient's Email Address

-cs character set - for text/plain attachments (default is us-ascii)

-a file,mime_type - attach this file

CODE SNIPPET:

Function GetTasks()
Set oShell = WScript.CreateObject ("WSCript.shell")

    Set objShell = CreateObject("WScript.Shell")
    Set fso = CreateObject("Scripting.FileSystemObject")
    workfile = "OutputFile.csv"

oShell.run "cmd /c schtasks /QUERY /S %SERVERNAME% /FO CSV /NH /V > "& workfile,0,true

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

strPathtoTextFile = "%PATHtoCSV%"

objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strPathtoTextFile & ";" & _
"Extended Properties=""text;HDR=YES;FMT=Delimited"""

strFile = "OutputFile.csv"

objRecordset.Open "Select * FROM " & strFile , _
objConnection, adOpenStatic, adLockOptimistic, adCmdText

Do Until objRecordset.EOF

'If the Last Result of the Job <> 0 then get the job details and write it to the HTML Template

If objRecordset.Fields.Item("Last Result") <> 0 and objRecordset.Fields.Item("Next Run Time") <> "Disabled" and objRecordset.Fields.Item("TaskName") <> "cluster_info" Then
                        WSCript.Echo objRecordset.Fields.Item("HostName") & " | " & _
                         objRecordset.Fields.Item("TaskName") & " | " & _
                         objRecordset.Fields.Item("Last Result") & " | " & _
                         objRecordset.Fields.Item("Next Run Time") & " | " & _
                         objRecordset.Fields.Item("Last Run Time") & " | " & _
                         objRecordset.Fields.Item("Run As User") & " | " & _
                         objRecordset.Fields.Item("Schedule") & " | " & _
                         objRecordset.Fields.Item("Task To Run")
   CreateMail objRecordset.Fields.Item("HostName"), objRecordset.Fields.Item("TaskName"), objRecordset.Fields.Item("Last Result"), objRecordset.Fields.Item("Last Run Time"), objRecordset.Fields.Item("Next Run Time"), objRecordset.Fields.Item("Task To Run"), objRecordset.Fields.Item("Run As User"), objRecordset.Fields.Item("Schedule"), mailfile
End If
      objRecordset.MoveNext
Loop

oShell.Run "cmd /c DEL /Q " & workfile,0
Set oShell = Nothing
End Function

HowTo: (OSXp) Turn your XP to OSX

2008-05-24T02:42:00.004+08:00

I got tired of the boring XP graphics so i worked on transforming my machine to OSX style desktop.

What you need:

1. Download and install Rocket Dock

1.1 Configure the Dock and Icon Settings

1.2 Set to Run on startup

2. Hide the XP taskbar (You can set it to auto hide and lock)

3. Disable the Desktop

3.1 Browse the regkey: HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDesktop (Create the key if not found - DWORD) and set the value to 1

3.2 Log off and relogin.

Optional:

Get an OSX wallpaper, install Safari and iTunes for more OSX feel!

Sample Snapshots of my new OSXp:

If at first you fail, call it version 1.0

PimPod2DaMax

2008-04-10T01:57:00.002+08:00

Just to share my latest setup, as promised!

Note: No Customize or Summerboard themes were used for this Mod. These are just all simple icon replacements using iPhone Browser. (Read my previous blogs for instructions)

Home Screen (Transparent Dock) with Kat Von D:

iTouchApps (Grouped by Category.App), activated by the first Icon on the Dock:

gPod (Grouped by Category.App), activated by gPod icon under iTouchApps:

iGamez (Grouped by Category.App), activated by the iGamez under iTouchApps:

iToolz (Grouped by Category.App), activated by the iToolz icon under iTouchApps:

Swipe to scroll to the next collection in iToolz category:

Pimped Weather Theme. Ain't using customize or summerboard, just replaced the default background via iPhone Browser (",)

Special thanks to the creators of Punisher, Bright Acrylic, Vista Ultimate, Divinity Themes for the icons and to Designer Set Customize Themes for the background images on Weather App and to Wallpaper.App and wallpaper contributors (if you install Wallpaper.App, please share your wallpaper, it's better to give than to receive) for the Categories background images and finally to the creator of ScreenShot.App! (",)

NES Emulator on iPod Touch

2008-04-10T01:35:00.002+08:00

1. Using iGopher, create the local script on your PC and Export them to your iPod.

2. Launch Installer.App and install the NES emulator.

3. Restart your iPod.

4. Create the NES folder in /var/mobile/Media/ROMS/NES. You can use any of the following:

a. SSH

b. Term VT100

c. iPhone Browser

d. MobileFind.App \ Find.App

5. Upload the ROMs in the folder that you've just created. (Using any of the following method above)

6. Launch NES.App, browse your ROMs and...

7. Enjoy the nostalgic games! Oh yeah, tilt to play in wide screen mode!

Normal Mode (Full Screen OFF):

Wide Screen Mode (Full Screen OFF):

Note: NES ROMs are Copyrighted! Do the right thing!

Pimp my iPod using iPhone Browser (USB Mod)

2008-04-09T22:37:00.005+08:00

It's been a while since I posted again, guess I was too busy with my iPod...

Thanks to iPhone Browser, now who needs WiFi, SSH, Customize, Summerboard and Installer to install apps and fully modify your Pod?!?

You've got a USB cable, then you can do it all...

First download the iPhone Browser (Windows), install it, plug your iPod (you don't even need to run iTunes to have the Pod detected by the browser).

Then browse the content of your iPod, drag files in to the GUI browser to transfer files to your iPod. Removal of files from the iPod is safe (iPhone Browser will back up the files in your local HDD before deletion... COOL)!

Replace all the default icons from /Application/AppName.App/icon.png with whatever you want. You can backup your current Summerboard Themes Icons by copying out /var/mobile/Library/Summerboard/Themes/Theme_Name_Folder.... so you can use any icons from any themes on your Pod (mix and match!).

To install the Application, use iGopher (instructions from my previous post) to download the packages to your PC, then unpack them to your iPod using iPhone Browser! Simple!

I've got PSX4All installed with NBA Live 2003 ROM, NES Emulator with tons of ROMs as well... getting a bit lazy to post the screen shots and additional instructions for the emulator installation and config... will do it next time... watch out for it!

If at first you fail, call it version 1.0

iPod Touch Full Mod (ZiPhone and iGopher)

2008-03-26T00:27:00.003+08:00

Just want to share setup (",)

I have jailbroken my iPod Touch 8GB with ZiPhone and have restored to 1.1.4 Firmware due to technical problems, errr... more of a user fault...

Errors Committed:
1. Changed the default root password, result: Springboard Infinite Loop!

2. Installed Poof and accidentally hidden all Icons, result: Luckily I have BossPrefs installed and set "SSH always on reboot". Had to SSH to my gPod and

launch Categories.app (requires unix skills here ={D).

Now I've got it setup that it can pass as a phone and unmatched as a workstation.

Note: If you're a new user of iPhone\iPod and thinking of jailbreaking it, you don't have to sweat anymore. Follow the prodigal son's steps for the easiest

MOD!

1. Upgrade your Pod to 1.1.4 (MailApp, StocksApp, Wiggle)

2. Install ZiPhone and connect your Pod to PC with iTunes (atleast v7) running.

3. Use the jailbreak option, wait for the entire process to complete and it will reboot automatically. After the reboot, Installer.App will be available.

This will include all the community sources available in the default package. You will need WiFi access to refresh the sources and install the apps. (But

wait... just keep on reading and you will learn that you do not need WiFi access to install Apps on your Pod ={D , just keep reading...)

4. Launch Installer.App, Go straight to Sources and touch Refresh to update the packages, this might take a while, so go for a fag or coffee break... Once

the refresh is completed, touch Install and you may start browsing for packages to install 3rd party apps. Make sure to check the updates page, it might

require you to update Installer.App... If you find an update package, install the update and restart Installer.App... Then

5. Install the packages in this order (Don't skip anything, trust me
you need all of them):
-BSD Subsystem 2.1
-BSD Subsystem 2.0 Termfix,

-SUID Libfix
-Community Sources
-OpenSSH
-Term-VT100
-BoosPrefs (Set SSH on Reboot and Wifi On)
-BossTool

Important Note, Installer.App is unable to detect the larger partition in the Pod... Yeah there are 2 partitions in your Pod...
Smaller Partition has 300MB (allocated for the OS and Apps) and the rest are allocated to the 2nd partition (allocated for Pics\Vids\Music..etc)...
If you keep installing applications, you will run out of disk space on the smaller partition and Installer.App will no longer allow you to install...

Luckily, at this point, you already have BossTool installed in your Pod... you can use it to move the Apps\Ringtone\Fonts to the bigger partition...
Technically, it's Nix MV and LN for dummies... meaning... the tool will move the files to the bigger partition and create a link to the folder...
Read on More Info in BossTool and be very careful, if the first files you moved (Fonts) did not make any file size increase in smaller partition...
Do not proceed in moving the apps... skip this and move on to the next step...

Or If Once that's done with no errors...

This part will tweak your Pod to create links and folders in the larger partion... WHY?!?
So that all the installations will be placed in the larger partition... MEANING?!?
YOU CAN INSTALL AS MUCH 3rd PARTY APPS AS YOU WANT!!! upto FULL 7GB... LOL

You can SSH into Your Ipod using (password is "alpine", first login takes 30-45 sec = ignore 15sec msg) or Launch Terminal VT100
1. Go to /private/var/root/
2. Create a new folder called "Media" (without "")
3. Run the following commands, hitting enter after each line:
cp -R /private/var/root/Media /private/var/mobile/
rm -r /private/var/root/Media
ln -s /private/var/mobile/Media /private/var/root/Media
cp -R /private/var/root/Library /private/var/mobile/
rm -r /private/var/root/Library
ln -s /private/var/mobile/Library /private/var/root/Library

Restart your Pod.

Now you can install till your Pod is full of Games\Apps\Utilities and such using Installer.App... Ooops.. You need WiFi to download and install packages...

Ahhhhh... That sucks...

Don't fret on it!!!

As promised... You can install packages without WiFi... Yeah you can via USB cable!!!
Catch? You still need Internet access on your PC... but trust me this is so much easier than downloading and installing apps using WiFi and very slow net...

New Steps:
1. Install the latest version of iGopher on your PC (you can get em here: http://code.google.com/p/igopher/)
2. Extract it in any folder (Alpha version doesn't have any installer yet... and yeah read on the requirements... .Net runtime and such)
3. Launch Gopher.exe (your iTunes running and Pod plugged in)
It will not be able to detect the Pod yet as the Installer.App do not have access to system files...
Fix is here (well this will be the last time you will need WiFi to install Apps... promise!!!)
3.1 Add http://i.unlock.no in your sources (Launch Installer.App, touch sources, touch edit, touch add then keyin the URL)
3.2 Refresh your Sources then browse under install then search for "ZiPhone iBrickr Fix", you need to restart ur Pod after installing it.
3.3 iGopher should have already detected your Pod
3.4 You may need to update the resources in Gopher (in the folder where you extracted iGopher, open AllSources.txt and update it with known Repos)
3.5 After refreshing the Sources in iGopher. you can browse for all Apps and installed as much to your heart's desire...

Enjoy It!!!

If you need help, mail me: Smooth Fingerz

Check out screen caps of my iPod Touch setup.

If at first you fail, call it version 1.0

2008-03-18T16:35:00.000+08:00

If at first you fail, call it version 1.0

Outlook: Move Items to Folder (with GUI folder list and not inputbox)

2008-02-14T23:00:00.004+08:00

I was searching for a Macro online for Outlook mail items moved to different folders.

Have seen few codes that performs the same but with this code I used the GUI folder listing instead of prompting for an inputbox to avoid errors as most users are not aware of the Folder paths.

I submitted the code to OutlookCodeDotCom: Moving mail items to specified folder

It has 30++ downloads so far... not bad!

Sub MoveMailToFolders()
Dim objNS As Outlook.NameSpace
Dim MyFolder As Outlook.MAPIFolder
Dim objItem As Outlook.MailItem
Dim ctr As Integer
On Error Resume Next
ctr = 0
Set objNS = Application.GetNamespace("MAPI")
Set MyFolder = objNS.PickFolder
MsgBox "The selected mail item(s) will be moved to: " & vbCrLf & vbCrLf & _
"Folder Path: " & MyFolder.FolderPath & vbCrLf & _
"Folder Name: " & MyFolder.Name _
, vbOKOnly + vbInformation, "Outlook Help"
For Each objItem In Application.ActiveExplorer.Selection
If MyFolder.DefaultItemType = olMailItem Then
If objItem.Class = olMail Then
ctr = ctr + 1
objItem.Move MyFolder
End If
End If
Next
MsgBox "Moved: " & ctr & " mail item(s) to: " & MyFolder.Name, vbInformation, "Outlook Help"
Set objNS = Nothing
Set MyFolder = Nothing
End Sub

Then using the Customize option on the toolbar, you can create a button for the Macro and assign a shortcut key to it!

If at first you fail, call it version 1.0

Latest Project: Server Monitoring Using WMI

2008-01-30T22:33:00.000+08:00

It was a while since my last post. Year ender is quite busy and the new year was as much.

I've been working on a latest project for our team. I set up a monitoring server running WMI scripts against remote servers in intervals of 2 or 30mins (depending on the frequency of data required).

Below are few simple snippets I used in to collect remote data and pump it in an html template and send it via email to the team (if ever performance thresholds were exceeded).

Code Snippets:

Sub DisplayErrorInfo
WScript.Echo "Error: : " & Err
WScript.Echo "Error (hex) : &H" & Hex(Err)
WScript.Echo "Source : " & Err.Source
WScript.Echo "Description : " & Err.Description
Err.Clear
End Sub

#1 Bytes Converter Snippet (One of my favorite snippet, pretty handy!)

Function SetBytes(Bytes,fKB)
If fKB=True then Bytes = Bytes * 1024
If Bytes >= 1073741824 Then
SetBytes = FormatNumber((Bytes / 1024 / 1024 / 1024),2,,-1,-1) & " GB"
ElseIf Bytes >= 1048576 Then
SetBytes = FormatNumber((Bytes / 1024 / 1024),2,,-1,-1) & " MB"
ElseIf Bytes >= 1024 Then
SetBytes = FormatNumber((Bytes / 1024),2,,-1,-1) & " KB"
ElseIf Bytes <>
SetBytes = Bytes & " Bytes"
End If
End Function

#2 Get Available Memory on the server

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * From Win32_PerfRawData_PerfOS_Memory")
For Each objItem in colItems
intValue = objItem.AvailableBytes
Wscript.Echo "Available memory = " & SetBytes(intValue,false)
Exit For
Next

Note: This requires cooking. If you you have no idea how that works then just use AvailableMBytes instead.

#3 Get CPU Usage (%)

Function GetCPUProcUsg(svr)
c = 0
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" _
& strComputer & "\root\cimv2:Win32_PerfRawData_PerfOS_Processor.Name='_Total'")
If Err = 0 Then
While (True)
N1 = objWMIService.PercentProcessorTime
D1 = objWMIService.TimeStamp_Sys100NS
Wscript.Sleep(1000)
Set objWMIService2 = GetObject("winmgmts:\\" _
& strComputer & "\root\cimv2:Win32_PerfRawData_PerfOS_Processor.Name='_Total'")
N2 = objWMIService2.PercentProcessorTime
D2 = objWMIService2.TimeStamp_Sys100NS
PercentProcessorTime = (1 - ((N2 - N1)/(D2-D1)))*100
Wscript.Echo "Processor Usage: " & Round(PercentProcessorTime,2) & "%"
GetCPUProcUsg = Round(PercentProcessorTime,2) & "%"
Wend
Else
DisplayErrorInfo
End If
Set objWMIService = nothing
Set objWMIService2 = nothing
End Function

#4 Get Available Disk Space

strComputer = "."
strUser =
strPass =
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set oWMI = objSWbemLocator.ConnectServer(strComputer, "root\cimv2", strUser, strPass)
Set colDisks = oWMI.InstancesOf("win32_PerfRawData_PerfDisk_LogicalDisk.Name")
For Each objDisk in colDisks
intBaseValue = objDisk.PercentFreeSpace_Base
dblActualFreeSpace = (100 * objDisk.PercentFreeSpace) / intBaseValue
Wscript.Echo objDisk.Name & Int(dblActualFreeSpace)
Next

If at first you fail, call it version 1.0

HowTo: Enum Citrix Server License using LMSTAT

2007-09-13T22:23:00.000+08:00

Our PS4 server seems to fail to execute the license information scripts from Citrix.Com (Dependency on SDK).

So instead of relying on it, I decided to develop a script using LMSTAT and a short vb script to parse the output file and write it to a .CSV file for better viewing (Data Filtering and such...)

First I piped the result of lmstat -a to a text file then I used the script below to parse the contents then write it to a .CSV file

Code Snippet:

Parse the source file (lmstat output file): srcfile

Sub GetData(srcfile)
Set f = fso.GetFile(srcfile)
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
Do While ts.AtEndOfStream <> True
readResults = Trim(UCase(ts.ReadLine))
If InStr(readResults, "/27000") Then
mps = split(readResults, Chr(32))
msg = mps(1) & "," & mps(3) & "," & mps(4) &amp; "," & mps(5) & mps(6) & mps(8) &amp; " " & mps(9) &amp; " " & mps(10)
WriteToCSV msg, license_out
End If
Loop
End Sub

Write to CSV function: oCsv(Output File), msg(parsed ReadLine results)

Function WriteToCSV(oCsv,msg)
If Not fso.FileExists(oCsv) Then fso.CreateTextFile(oCsv)
Set f = fso.GetFile(oCsv)
Set ts = f.OpenAsTextStream(ForAppending, TristateUseDefault)
ts.Write msg & vbCrlf
msg = ""
ts.Close
End Function

If at first you fail, call it version 1.0

Event Log

2007-09-12T22:59:00.001+08:00

Event Log Manipulations:

1. Reading the Event Log
2. Clearing the Event Log
3. Creating backup of the Event Log

Code Snippet #1:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colLoggedEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent " _
& "Where Logfile = 'System'")
For Each objEvent in colLoggedEvents
Wscript.Echo "Category: " & objEvent.Category & VBNewLine _
&amp; "Computer Name: " & objEvent.ComputerName & VBNewLine _
& "Event Code: " & objEvent.EventCode & VBNewLine _
& "Message: " & objEvent.Message & VBNewLine _
& "Record Number: " & objEvent.RecordNumber & VBNewLine _
& "Source Name: " & objEvent.SourceName & VBNewLine _
& "Time Written: " & objEvent.TimeWritten & VBNewLine _
&amp; "Event Type: " & objEvent.Type & VBNewLine _
& "User: " & objEvent.User
Next

Code Snippet #2:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Backup)}!\\" & _
strComputer & "\root\cimv2")
Set colLogFiles = objWMIService.ExecQuery _
("Select * from Win32_NTEventLogFile " _
& "Where LogFileName='Application'")
For Each objLogfile in colLogFiles
objLogFile.ClearEventLog()
WScript.Echo "Cleared application event log file"
Next

Code Snippet #3:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Backup)}!\\" & _
strComputer & "\root\cimv2")
Set colLogFiles = objWMIService.ExecQuery _
("Select * from Win32_NTEventLogFile " _
& "Where LogFileName='Application'")
For Each objLogfile in colLogFiles
errBackupLog = objLogFile.BackupEventLog( _
"c:\scripts\application.evt")
WScript.Echo "File saved as c:\scripts\applications.evt"
Next

If at first you fail, call it version 1.0

MFCOM: Farm Session Count

2007-07-13T20:06:00.000+08:00

Another day of Citrix Administration, a simple MFCOM script to view Active Farm Sessions.

Code Snippet:

Const cMetaFrameWinFarmObject = 1
Const MFSessionStateActive = 1
Set theFarm = CreateObject("MetaFrameCOM.MetaFrameFarm")
theFarm.Initialize(cMetaFrameWinFarmObject)
intSessionCount = 0
intActiveCount = 0
For Each oSession In theFarm.Sessions
intSessionCount = intSessionCount + 1
If (oSession.SessionState = MFSessionStateActive) and (oSession.SessionName <> "Console") Then
intActiveCount = intActiveCount + 1
WScript.Echo vbcrlf & "*****************************"
WScript.Echo "User Name: " & oSession.UserName
WScript.Echo "IP Address: " & oSession.ClientAddress
WScript.Echo "Server: " & oSession.ServerName
WScript.Echo "Application: " & oSession.AppName
WScript.Echo "Logon Time: " & oSession.ConnectedTime
End If
Next
WScript.Echo "Total Session Count = " & intSessionCount & vbcrlf & _
"Active Session Count = " & intActiveCount

If at first you fail, call it version 1.0

MFCOM: Connection licenses and usage count

2007-07-13T20:05:00.000+08:00

Yet Another Citrix Administrator Task, monitor the connection licenses and usage count in the farm...

Feel like a hill billy...

Code Snippet:

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If not fso.FolderExists("c:\liclog" ) then
Set MyFolder = fso.createFolder("c:\liclog" )
else
End if
if not fso.FileExists("c:\liclog\licCount.log" ) then
Set MyFile= fso.createTextFile("c:\liclog\licCount.log")
MyFile.writeline "Date " & " Time " & "Lic Type " & "Used"
MyFile.close
else
end if
Const ForAppending = 8
Set MyFile= fso.OpenTextFile("c:\liclog\licCount.log", ForAppending,True)
Dim theFarm, aLicense
Set theFarm = CreateObject("MetaFrameCOM.MetaFrameFarm")
' Initialize the farm object.
theFarm.Initialize(MetaFrameWinFarmObject)
For Each aLicense In theFarm.LicenseSets(MFLIcenseClassConnection)
if aLicense.LicenseID = "0000000000000003" then
MyFile.WriteLine date & "," & time & "," & aLicense.Name &amp; "," & aLicense.pooledinuse("")
else
end if
next
MyFile.Close

If at first you fail, call it version 1.0

Merlin the great!

2007-07-09T15:56:00.000+08:00

Imagine how amazed your users will be when they login to the domain and Merlin greets them...

You can call Merlin using Agent Control and make do the moves while you perform you login scripts in the background...

You can load information about the logged on user either using ADSI scripts or just by reading on the environment variable table...

Take note of the length of the messages or actions you throw at Merlin, you might need to make use of the Sleep method, otherwise the sentences or the animation will overlap...

Code Snippet:

strAgentName = "Merlin"
strAgentPath = "Msagent\Chars\" & strAgentName &amp; ".acs"
Set objAgent = CreateObject("Agent.Control.2")
objAgent.Connected = True
objAgent.Characters.Load strAgentName, strAgentPath
Set merlin_d_great = objAgent.Characters.Character(strAgentName)
With merlin_d_great
.Show
Set objRequest = .MoveTo(500,400)
Set objRequest = .Play("Announce")
Set objRequest = .Play("Explain")
Set objRequest = .Speak("Hi ")
Set objRequest = .Play("Read")
wscript.sleep 2000
Set objRequest = .Speak("Today is " & Now() & "...")
Set objRequest = .Play("ReadContinued")
wscript.sleep 2000
Set objRequest = .Speak("and the time is " & Time() & "...")
wscript.sleep 2000
Set objRequest = .Play("ReadReturn")
wscript.sleep 2000
Set objRequest = .MoveTo(750, 450)
Set objRequest = .Play("Pleased")
wscript.sleep 5000
Set objRequest = .Speak("I will be back shortly...")
wscript.sleep 5000
Set objRequest = .Play("Wave")
wscript.sleep 5000
.Hide
End With

Have a blast with Merlin, and oh... you can use other characters aswell...

If at first you fail, call it version 1.0

Radia Command Lines

2007-07-09T15:12:00.000+08:00

There are few documents available on Radia troubleshooting and knowledgebase so I decided to post

Q. What is Radia?
A. Radia is Software Deployment\Management Solution (formerly Novadigm EDM\Radia) that was bought by HP.

Q. What is RCS?
A.

Q. What is RPM?
A.

Q. What is RPX\RPS?
A.

Q. What is RMS?
A.

nvdkit objdump
nvdkit.exe objdump zconfig.edm | FIND /I
nvdkit eval nvd::init; set radexe "[exec $::NVDSYS/RADNTFYC.EXE RADCONCT.EXE mode=discovery]"
nvdkit tpping -host
nvdkit sync

If at first you fail, call it version 1.0

KD Memory.dmp debugging

2007-07-09T13:38:00.000+08:00

One of our Citrix server encountered a BSOD, luckily we had RSA and managed to hard reboot the server.

I've gathered the memory dump to view the cause of BSOD and found the Symantec Antivirus has caused a module error on the NIC driver.

We have then disabled the Network Drives in the File System Auto Protect and it had not experienced the same ever since.

Did not find any help from Symantec regarding the root cause other than it's a known issue.

Below are some steps that you could use for debbuging:

Launch windbg passing it the location of the symbol files, the source files (i386 directory) and the dump file. Example: windbg -y dump\symbols -i SRC\i386 -z dump\Memory.dmp

At the bottom of the Command window there is a kd> prompt.

The commands are entered into that prompt: kd>!analyze -v

Two things to look for in the results: the memory referenced and the FAULTING_IP

The command: kd>lm - will produce a listing of modules and their memory location.

Look to see which module's memory the memory referenced identified above falls in.

That usually indicates the process that caused the crashed and will probably match the FAULTING_IP if listed.

Also informative: kd>.reload –v

If at first you fail, call it version 1.0

HowTo: Add cmd.exe to right click context menu

2007-06-28T09:31:00.000+08:00

If you want the command prompt to be available whenever you right click on objects on your desktop or explorer, you can opt to create the keys in the registry:

HKEY_CLASSES_ROOT\Folder\shell\MenuText\Command

Change the (Default) value to cmd.exe /k cd "%1"

Or you can script it!

Code Snippet:

Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Dim WSHShell, objWMIService, strComputer, lcValue1
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer &amp; "\root\cimv2")
Set objWSHShell = WScript.CreateObject("WScript.Shell")
Set objRegObj = WScript.CreateObject("RegObj.Registry")
objWSHShell.Popup "This will enable CMD with explorer options for the Current User"
objWSHShell.RegWrite "HKCR\Folder\Shell\MenuText\Command\", "cmd.exe /k cd " & chr(34) & "%1" & chr(34)
objWSHShell.RegWrite "HKCR\Folder\Shell\MenuText\", "Launch CMD"
tmp = objWSHShell.RegRead("HKCR\Folder\Shell\MenuText\")
objWSHShell.Popup ("Current Value: " + tmp)

If at first you fail, call it version 1.0

HowTo: Enable disabled services

2007-06-28T09:16:00.000+08:00

If you want to automate startups on services that might be disabled by GPO, you can use Win32_Service class and change properties like the startup (Automatic\Manual\Disabled) or start\stop the service.

In my case, I prefer to use themes on my XP machine at work but our GPO disables them so our machines look like NT desktops... it sucks ain't it?

So to overcome this, I placed the script in my startup to enable the Themes and start the service.

Code Snippet:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name = 'Themes'")
For Each objService in colServiceList
'Wscript.Echo objService.Name
errReturnCode = objService.Change( , , , , "Automatic")
If objService.State <> "Running" Then
objService.StartService()
Else
objService.StopService()
Wscript.Echo "Stopping..."
Wscript.Sleep 5000
objService.StartService()
Wscript.Echo "Applying Themes"
Wscript.Sleep 5000
End If
Next

Change line #6 value to any services that you want to enable (my case it's Name = 'Themes').

I prefer to use Cscript when executing any vbs scripts to avoid having to click on message prompts whenever you Echo.

If at first you fail, call it version 1.0

Bytes Converter Function

2007-06-28T09:10:00.000+08:00

A simple function that converts Bytes to GB, MB or KB.

Code Snippet:

Function SetBytes(Bytes,fKB)
if fKB=True then Bytes = Bytes * 1024
If Bytes >= 1073741824 Then
SetBytes = FormatNumber((Bytes / 1024 / 1024 / 1024),2,,-1,-1) & " GB"
ElseIf Bytes >= 1048576 Then
SetBytes = FormatNumber((Bytes / 1024 / 1024),2,,-1,-1) & " MB"
ElseIf Bytes >= 1024 Then
SetBytes = FormatNumber((Bytes / 1024),2,,-1,-1) & " KB"
ElseIf Bytes < 1024 Then
SetBytes = Bytes & " Bytes"
End If
End Function

Usage: SetBytes(Size,true\false)

If at first you fail, call it version 1.0

Kix Copy script with GUI (Kixtart UDF)

2007-06-26T15:48:00.000+08:00

Another KIXtart UDF, well the title says it all...

Dependencies:
KiX 4.02 (or higher)
Shell32.dll version 4.71 or later. (Included with: Windows 2000, Windows NT 4.0 with Internet Explorer 4.0, Windows 98, Windows 95 with Internet Explorer 4.0.)

Usage:
GUICopy("source", "destination", "optional flag", "optional flag")
@ERROR " : " @SERROR ?

Optional Flags:
4 - Do not display a progress dialog box.
8 - Give the file being operated on a new name in a move, copy, or rename
operation if a file with the target name already exists.
16 - Respond with "Yes to All" for any dialog box that is displayed.
64 - Preserve undo information, if possible.
128 - Perform the operation on files only if a wildcard file name (*.*) is
specified.
256 - Display a progress dialog box but do not show the file names.
512 - Do not confirm the creation of a new directory if the operation requires
one to be created.
1024 - Do not display a user interface if an error occurs.
2048 - Version 4.71. Do not copy the security attributes of the file.
4096 - Only operate in the local directory. Don't operate recursively into
subdirectories.
8192 - Version 5.0. Do not copy connected files as a group. Only copy the
specified files.

Returns The exitcode of the command in the @ERROR macro.
@ERROR = 0 The operation completed successfully.
@ERROR = 2 The system cannot find the file specified. (Refers to Source file.)
@ERROR = 3 The system cannot find the path specified. (Bad destination path.)
@ERROR = 9 The storage control block address is invalid. (Most likely cancelled copy.)
@ERROR = 10 The environment is incorrect. (Incorrect Shell32.dll version.)
@ERROR = 87 The parameter is incorrect. (Use 0 or 1 to specify Copy or Move.)

Code Snippet:

Function GUICopy($sSrc, $sDest, OPTIONAL $lFlags, OPTIONAL $bMove)
Dim $sVer,$objShell,$objFldr
If Not Exist($sSrc) Exit 2 Endif
If Not Exist($sDest) Exit 3 Endif
If @INWIN=1
$sVer=GetFileVersion(%WINDIR%+"\System32\Shell32.dll","FileVersion")
Else
$sVer=GetFileVersion(%WINDIR%+"\System\Shell32.dll","FileVersion")
Endif
If $sVer<"4.71" Exit 10 Endif
$objShell=CreateObject("Shell.Application")
$objFldr=$objShell.NameSpace($sDest)
If @ERROR<0 Exit VAL("&"+Right(DecToHex(@ERROR),4)) EndIf
Select
Case $bMove=1 $objFldr.MoveHere($sSrc,$lFlags)
Case $bMove=0 $objFldr.CopyHere($sSrc,$lFlags)
Case 1 Exit 87
EndSelect
If @ERROR<0 Exit VAL("&"+Right(DecToHex(@ERROR),4)) EndIf
Exit @ERROR
EndFunction

If at first you fail, call it version 1.0

Kix FTP (Kixtart UDF)

2007-06-26T15:30:00.000+08:00

FTP via Kix? Yes!!!

Using Microsoft.XMLHTTP and ADODB.Stream.

Usage:

FTPget("ftp_address", "target_dest_drive", "id", "password")

Code Snippet:

Function FTPget($sURL, $sTargetFile, optional $sUser, optional $sPass)
Dim $oFTP, $oStream $sUser=""+$sUser
$oFTP = CreateObject("Microsoft.XMLHTTP")
if @error
$ftpget=1
exit 1
endif
$oStream = CreateObject("ADODB.Stream")
if @error
$ftpget=2
exit 2
endif
if $sUser
$oFTP.Open("GET", $sURL, not 1, $sUser, $sPass)
else
$oFTP.Open("GET", $sURL, not 1)
endif
if @error
$ftpget=3
exit 3
endif
$oFTP.Send
$oStream.Type = 1
$oStream.Mode = 3
$oStream.open
$oStream.Write($oFTP.responseBody)
if @error
$ftpget=4
exit 4
endif
$oStream.SaveToFile($sTargetFile, 2)
if @error
$ftpget=5
exit 5
endif
$oStream.Close
EndFunction

If at first you fail, call it version 1.0