Re: Impossible???
| From: | John thegimper | Date: | Fri, 02 Sep 2005 02:03:24 +0000 |
| Subject: | Re: Impossible??? | ||
| Groups: | php.general | ||
| Request: | Send a blank email to php-general+get-221735@lists.php.net to get a copy of this message | ||
Yes, check out the great documentation at http://www.php.net/docs.php
It's available in several languages. Great place to learn the wounderful world
of php.
----- Original Message -----
From: ""Gustav Wiberg"" <gustav@varupiraten.se>
Newsgroups: php.general
To: "PHP General" <php-general@lists.php.net>
Sent: Thursday, September 01, 2005 11:20 PM
Subject: Impossible???
> Hi again!
>
>
> Is this impossible to do in PHP?
>
>
> Dim objNet
> On Error Resume Next
>
> 'In case we fail to create object then display our custom error
>
> Set objNet = CreateObject("WScript.NetWork")
> If Err.Number <> 0 Then 'If error occured then display
> notice
> MsgBox "Don't be Shy." & vbCRLF &_
> "Do not press ""No"" If your browser warns you."
> Document.Location = "UserInfo.html"
> 'Place the Name of the document.
> 'It will display again
> End if
>
> Dim strInfo
> strInfo = "User Name is " & objNet.UserName & vbCRLF & _
> "Computer Name is " & objNet.ComputerName & vbCRLF & _
> "Domain Name is " & objNet.UserDomain
> MsgBox strInfo
>
> Set objNet = Nothing 'Destroy the Object to free the
> Memory
>
>
> /G
> @varupiraten.se
-------------------------------------------------
FREE E-MAIL IN 1 MINUTE!
- your.name@pc.nu - http://www.pc.nu