Cuestión : Realzando un VB script para comprobar el hostname de la PC antes de funcionar

Tengo la escritura de trabajo siguiente de VB que enviará SMS/el mensaje vía el the
Telco portal.

But que necesito un realce: para comprobar al principio de la escritura si el
of del hostname la PC del triunfo XP es “abcdefgh”; si no, entonces parar el ejecutar del resto del codes


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

strMobile = “97888888 "
strMessage = “esto es un mensaje de prueba " objIE del
Set del
= CreateObject (“InternetExplorer.
objIE.Document.LoginForm.Item (“password” del ternetsms/”
objIE.Visible =
Do del

mientras que
objIE.Document.LoginForm.Item (“email WScript.Sleep 2000
Loop

/>").Value = “[email protected]” de http://sms.singtel.com/in)” del rel= " del” _blank del target= de " http://sms.singtel.com/internetsms/” del href= del
objIE.Navigate de Application”) “nofollow " >. Value =
Do del
objIE.Document.LoginForm.submit

del “mypassword” mientras que
objIE.Document.startChatForm de objIE.Busy
WScript.Sleep 2000
Loop

. Artículo (“mobile”). Value = strMobile
objIE.Document.getElementByID (“submit”). ¿
WScript.Sleep 10000



/>strURL = “rel= " nofollow " del _blank” del” target=” de http://sms.singtel.com/internetsms/sendMsg.do?id=1&recipient= del href= " del ternetsms/sendMsg.do de http://sms.singtel.com/in? id=1&recipient=”
intCounter = de 0

Set = objShellWindows del
Set de CreateObject (“Shell.Application”) = objShell.Windows

Do mientras que <= 10
del intCount para cada objWindow en el objShellWindows
si Instr (objWindow.LocationURL, strURL) Then
StrPopupURL = intCount de If
Next

del final de Do
de la salida de objWindow.LocationURL
= intCount + 1

si el intCount = 10 Then
objIE.Navigate “> el ternetsms/logoutAction.do "
WScript.Echo “de http://sms.singtel.com/in la escritura no podía encontrar la ventana móvil. Escritura que para " el objIE_Pop = CreateObject (“InternetExplorer del sueño 2000
Loop

Set de If

del final del
WScript.Quit
. strPopupURL

objIE_Pop.Navigate de Application”)/>objIE_Pop.Visible =
Do del

mientras que objIE_Pop.Busy
WScript.Sleep 2000
Loop


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


Do mientras que objIE_Pop.Busy
WScript.Sleep 2000
Loop


WScript.Sleep 10000


For cada objWindow en el objShellWindows
si


Do " del nofollow " > http://sms.singtel.com/in/>logoutActiternetsms/on.do " del” rel= del _blank del” target=” de http://sms.singtel.com/internetsms/logoutAction.do href= " del Next


objIE.Navigate del “del final de Instr (objWindow.LocationURL, strURL) Then
objWindow.Quit
mientras que objIE de objIE.Busy
WScript.Sleep 2000
Loop

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

Respuesta : Realzando un VB script para comprobar el hostname de la PC antes de funcionar

Sí, usted no puede hacer eso en 2003