Вопрос : Увеличивающ VB script для того чтобы проверить именя ведущего PC перед бежать

Я имею следующий работая сценарий VB пошлет SMS/сообщение через the
Telco portal.

But, котор мне нужно повышение: проверить в начале сценария если
of именени ведущего PC выигрыша XP будет «abcdefgh»; если не, после этого остановите исполнить остальнои codes


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

strMobile = «97888888 "
strMessage = «это будет сообщением " objIE
Set
= CreateObject, то испытания («InternetExplorer.
objIE.Document.LoginForm.Item ternetsms/»
objIE.Visible = поистине
Do

пока
objIE.Document.LoginForm.Item objIE.Busy
WScript.Sleep 2000
Loop

(«email").Value = «[email protected]» http://sms.singtel.com/in» rel= "» _blank» target= " http://sms.singtel.com/internetsms/ href=
objIE.Navigate Application») «nofollow " > («password»). Value =
Do
objIE.Document.LoginForm.submit

«mypassword» пока
objIE.Document.startChatForm objIE.Busy
WScript.Sleep 2000
Loop

. Деталь («mobile»). Value = strMobile
objIE.Document.getElementByID («submit»).
WScript.Sleep 10000



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

Set =
Set CreateObject («Shell.Application») objShellWindows = objShell.Windows

Do пока <= 10
intCount для каждого objWindow в objShellWindows
если Instr (objWindow.LocationURL, strURL) Then
StrPopupURL = intCount If
Next

конца Do
выхода objWindow.LocationURL
= intCount + 1

, то если intCount = 10 Then
WScript.Echo «http://sms.singtel.com/in сценарий не могло найти всплывающее окно. Сценарий прекращая " objIE_Pop сна 2000
Loop

Set If

конца
WScript.Quit
= CreateObject («InternetExplorer. strPopupURL

objIE_Pop.Navigate Application»)/>objIE_Pop.Visible = поистине
Do

пока objIE_Pop.Busy
WScript.Sleep 2000
Loop


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


Do пока objIE_Pop.Busy
WScript.Sleep 2000
Loop


WScript.Sleep 10000


For каждое objWindow в objShellWindows
если


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


objIE.Navigate «конца Instr (objWindow.LocationURL, strURL) Then
objWindow.Quit
пока objIE objIE.Busy
WScript.Sleep 2000
Loop

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

Ответ : Увеличивающ VB script для того чтобы проверить именя ведущего PC перед бежать

Да, вы не можете сделать то в 2003