' VB Script Document
Const MODULE_NAME = "Stefan08test"
Sub Init
addMenuItem "test", "", "test"
End Sub
'===================================================='
Sub test
u = getVarValue("%Username%")
p = getVarValue("%PHPDocs%")
h = getVarValue("%HTServer%")
msgbox "User: " & u & vbcrlf & _
"App Doc Root: " & p & vbcrlf & _
"HTTP Server: " & h, vbinformation, MODULE_NAME
End Sub
'===================================================='
--
<http://forum.pspad.com/read.php?2,44394,44404>
PSPad freeware editor http://www.pspad.com
