Question : Enhancing a VB script to check hostname of the PC before running

I have the following working VB script that will send SMS / message via the
Telco's portal.

But I need an enhancement : to check at the beginning of the script if the hostname
of the Win XP PC is "abcdefgh"; if not, then stop executing the rest of the codes


====================================================

strMobile = "97888888"
strMessage = "This is a test message"
 
Set objIE = CreateObject("InternetExplorer.Application")
 
objIE.Navigate "http://sms.singtel.com/internetsms/"
objIE.Visible = True

 
Do While objIE.Busy
      WScript.Sleep 2000
Loop

 
objIE.Document.LoginForm.Item("email").Value = "[email protected]"
objIE.Document.LoginForm.Item("password").Value = "mypassword"
objIE.Document.LoginForm.submit

 
Do While objIE.Busy
      WScript.Sleep 2000
Loop

 
objIE.Document.startChatForm.Item("mobile").Value = strMobile
objIE.Document.getElementByID("submit").Click

 
WScript.Sleep 10000


strURL = "http://sms.singtel.com/internetsms/sendMsg.do?id=1&recipient="
intCounter = 0

Set objShell = CreateObject("Shell.Application")
Set objShellWindows = objShell.Windows

Do While intCount <= 10
      For each objWindow in objShellWindows
            If Instr(objWindow.LocationURL, strURL) Then
                  StrPopupURL = objWindow.LocationURL
                  Exit Do
            End If
      Next

      intCount = intCount + 1

      If intCount = 10 Then
            objIE.Navigate "http://sms.singtel.com/internetsms/logoutAction.do"
            WScript.Echo "The script was not able to find the popup window. Script Quitting"
            WScript.Quit
      End If

      Sleep 2000
Loop

Set objIE_Pop = CreateObject("InternetExplorer.Application")  

objIE_Pop.Navigate strPopupURL
objIE_Pop.Visible = True

 
Do While objIE_Pop.Busy
      WScript.Sleep 2000
Loop


objIE_Pop.Document.getElementByID("message").Value = strMessage
objIE_Pop.Document.getElementByID("submit").click


Do While objIE_Pop.Busy
 WScript.Sleep 2000
Loop


WScript.Sleep 10000


For each objWindow in objShellWindows
      If Instr(objWindow.LocationURL, strURL) Then
            objWindow.Quit
       End If
Next


objIE.Navigate "http://sms.singtel.com/internetsms/logoutAction.do"


Do While objIE.Busy
 WScript.Sleep 2000
Loop

objIE.Quit
set objIE = nothing
set objIE_Pop = nothing
set objShellWindows = nothing
set objShell = nothing

Answer : Enhancing a VB script to check hostname of the PC before running

Yes, you cannot do that in 2003