Questione : Aumentando un VB script per controllare il hostname del PC prima di funzionare

Ho il seguente scritto di funzionamento di VB che trasmetterà SMS/messaggio via the
Telco portal.

But che ho bisogno di un aumento: per per controllare all'inizio dello scritto se il
of del hostname il PC di vittoria XP è “abcdefgh„; se non, allora smettere di eseguire il resto del codes


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

strMobile = “97888888 "
strMessage = “questo è un messaggio test " objIE del
Set del
= CreateObject (“InternetExplorer.
objIE.Document.LoginForm.Item (“password„ del ternetsms/„
objIE.Visible = vero
Do del

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

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

“di mypassword„ mentre
objIE.Document.startChatForm di objIE.Busy
WScript.Sleep 2000
Loop

. Articolo (“mobile„). Value = strMobile
objIE.Document.getElementByID (“submit„).
WScript.Sleep 10000



/>strURL = “rel= " nofollow "„ del _blank„„ del target= " di http://sms.singtel.com/internetsms/sendMsg.do?id=1&recipient= del href= di ternetsms/sendMsg.do di http://sms.singtel.com/in? id=1&recipient=„
intCounter/>
Set = objShellWindows del
Set di CreateObject (“Shell.Application„) = objShell.Windows

Do mentre <= 10
del intCount per ogni objWindow nel objShellWindows
se Instr (objWindow.LocationURL, strURL) Then
StrPopupURL = intCount di If
Next

di conclusione di Do
dell'uscita di objWindow.LocationURL
= intCount + 1

se il intCount = 10 Then
WScript.Echo “di http://sms.singtel.com/in lo scritto non possa trovare la finestra a finestra. Scritto che rinuncia " il objIE_Pop di sonno 2000
Loop

Set di If

di conclusione del
WScript.Quit
= CreateObject (“InternetExplorer. strPopupURL

objIE_Pop.Navigate di Application„)/>objIE_Pop.Visible = vero
Do del

mentre objIE_Pop.Busy
WScript.Sleep 2000
Loop


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


Do mentre objIE_Pop.Busy
WScript.Sleep 2000
Loop


WScript.Sleep 10000


For ogni objWindow nel objShellWindows
se


Do " del nofollow " > http://sms.singtel.com/in ternetsms/logoutAction.do "„ del rel=„ del _blank„ del target= " di http://sms.singtel.com/internetsms/logoutAction.do del href= di Next


objIE.Navigate “di conclusione di Instr (objWindow.LocationURL, strURL) Then
objWindow.Quit
mentre objIE di 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

Risposta : Aumentando un VB script per controllare il hostname del PC prima di funzionare

Sì, non potete fare quello in 2003