|
|
|
Не выводит IP
|
|||
|---|---|---|---|
|
#18+
Подскажите пожалуйста, почему не выводит текущий IP адрес машины? Имя ПК, Домен и Пользователя выводит. Что я неправильно сделал? Dim fso, MyFile, MyFile1 Set fso = CreateObject("Scripting.FileSystemObject") Set WshNetwork = WScript.CreateObject("WScript.Network") if fso.fileExists("c:\wallpHN.html") then Set MyFile = fso.OpenTextFile("c:\wallpHN.html",1, True) Set MyFile1 = fso.CreateTextFile("c:\wallpHN.htm", True) for i = 1 to 10 MyFile1.writeline(Myfile.readline) next 'MyFile1.WriteLine("<img border=""0"" src=""file://srvfile1/distrib$/off/New%20Year.gif"" width=""134"" height=""249"">") MyFile1.WriteLine(WshNetwork.computername) MyFile1.WriteLine("<br>") MyFile1.WriteLine(WshNetwork.UserName) MyFile1.WriteLine("<br>") MyFile1.WriteLine(WshNetwork.UserDomain) MyFile1.WriteLine(WshNetwork.IPAddress) 'MyFile1.WriteLine("<img border=""0"" src=""file://srvfile1/distrib$/NY.gif"" width=""120"" height=""193"">") 'str=Myfile.readline 'MyFile1.writeline(Myfile.readline) 'MyFile1.writeline(Myfile.readline) MyFile.Close MyFile1.Close fso.DeleteFile("c:\wallpHN.html") fso.MoveFile "c:\wallpHN.htm" , "c:\wallpHN.html" else Set MyFile = fso.CreateTextFile("c:\wallpHN.html", True) MyFile.WriteLine("<html>") MyFile.WriteLine("<head>") MyFile.WriteLine("<meta http-equiv=""Content-Language"" content=""en-us"">") MyFile.WriteLine("<//head>") MyFile.WriteLine("<body bgcolor=""#3A6EA5"">") MyFile.WriteLine("<div align=""right"">") MyFile.WriteLine("<table border=""0"" width=""97%"" height=""100%"" >") MyFile.WriteLine("<tr>") MyFile.WriteLine("<td width=""50%"" height=""515"" valign=""bottom"" align=""left"">") MyFile.WriteLine("<p align=""right""><b><font face=""Arial"" size=""6"" color=""#0099CC"">") 'MyFile.WriteLine("<img border=""0"" src=""file://srvfile1/distrib$/NY.gif"" width=""120"" height=""193"">") MyFile.WriteLine(WshNetwork.computername) MyFile.WriteLine(WshNetwork.UserName) MyFile.WriteLine(WshNetwork.UserDomain) MyFile.WriteLine(WshNetwork.IPAddress) MyFile.WriteLine("</font></b></p><p> </td></tr></table></div></body>") MyFile.WriteLine("</html>") MyFile.Close end if Скрипт работает следующим образом, при нажатии на него создаётся html файл. в нём находятся Нужные данные (Имя ПК, Домен и ) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.05.2007, 13:38 |
|
||
|
Не выводит IP
|
|||
|---|---|---|---|
|
#18+
shtoki в нём находятся Нужные данные (Имя ПК, Домен и ) имя IP домен и p.s. и не нужно привязываться к хтм изначально идея определения не верна ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.05.2007, 14:14 |
|
||
|
Не выводит IP
|
|||
|---|---|---|---|
|
#18+
а там не читается хтм а создается :) не доконца код прочел но по линкам сверху ответ можно найти ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.05.2007, 14:15 |
|
||
|
|
start [/forum/topic.php?fid=60&msg=34535777&tid=2164012]: |
0ms |
get settings: |
10ms |
get forum list: |
17ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
174ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
41ms |
get tp. blocked users: |
1ms |
| others: | 241ms |
| total: | 503ms |
| 0 / 0 |
