Vraag : Het verbeteren van een manuscript VB hostname van PC te controleren alvorens te lopen

Ik heb het volgende werkende manuscript VB dat SMS/bericht via the
Telco behoefte portal.

But I een verhoging zal verzenden: om aan het begin van het manuscript te controleren als hostname
of Win XP PC „abcdefgh“ is; als niet, houd dan op uitvoerend de rest van codes


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

strMobile = „97888888 "
strMessage = „dit is een testbericht "

Set objIE = CreateObject („/>orer InternetExplcation“)

objIE.Navigate „ http://sms.singtel.com/in ternetsms/“
objIE.Visible = Ware


Do terwijl objIE.Busy
WScript.Sleep 2000
Loop


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


Do terwijl objIE.Busy
WScript.Sleep 2000
Loop


objIE.Document.startChatForm. Punt („mobile“). Value = strMobile
objIE.Document.getElementByID („submit“). Click


WScript.Sleep 10000


strURL = „ http://sms.singtel.com/in ternetsms/sendMsg.do? id=1&recipient=“
intCounter = 0

Set objShell = CreateObject („Shell.Application“)
Set objShellWindows = objShell.Windows

Do terwijl intCount <= 10
voor elke objWindow in objShellWindows
als Instr (objWindow.LocationURL, strURL) Then
StrPopupURL =/> het Eind van Do
If
Next

intCount = intCount + 1

als intCount = 10 Then
objIE.Navigate „ http://sms.singtel.com/in ternetsms/logoutAction.do "
WScript.Echo „het manuscript niet het popup venster kon vinden. Manuscript die " met de Slaap 2000
Loop

Set ophouden van If

WScript.Quit
/> objIE_Pop = CreateObject („InternetExplorer. Application“)

objIE_Pop.Navigate strPopupURL
objIE_Pop.Visible = Ware


Do terwijl objIE_Pop.Busy
WScript.Sleep 2000
Loop


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


Do terwijl objIE_Pop.Busy
WScript.Sleep 2000
Loop


WScript.Sleep 10000


For elke objWindow in objShellWindows
het Eind If
Next


objIE.Navigate „L, strURL) Then
objWindow.Quit
nofollow " > http://sms.singtel.com/in ternetsms/logoutAction.do "


Do terwijl objIE.Busy
WScript.Sleep 2000
Loop

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

Antwoord : Het verbeteren van een manuscript VB hostname van PC te controleren alvorens te lopen

Ja, kunt u niet dat in 2003 doen