<?
function directory($result)
{

$handle=opendir(""."");
while ($file = readdir($handle))
{
if ($file == ""."" || $file == "".."")
{
}
else
{
print ""<a href=$file>$file</a><br>"";
}

}
closedir($handle); return $result;
}
echo directory($result);
?>

Bookmark It

Hide Sites

[settings1]
text1 = "hello"
text2 = "world"

[settings2]
number1 = 4
number2 = 8

//print out all of the contents of the test.ini file

<?php
$ini_array = parse_ini_file("test.ini");
print_r($ini_array);
?>

Bookmark It

Hide Sites

Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
objWord.Visible = True

objSelection.TypeText "MP3 lister"
objSelection.TypeParagraph()
objSelection.TypeText "" & Now
objSelection.TypeParagraph()
objSelection.TypeParagraph()

objWord.FileSearch.FileName = "*.mp3"
objWord.FileSearch.LookIn = "D:\"
objWord.FileSearch.SearchSubfolders = True
objWord.FileSearch.Execute

For Each objFile in objWord.FileSearch.FoundFiles
objSelection.TypeText objFile
objSelection.TypeParagraph()
Next

Bookmark It

Hide Sites

Set objFso = CreateObject("Scripting.FileSystemObject")

Set drive = objFso.GetDrive("C")

With drive

Wscript.Echo "Available Space:", .AvailableSpace & vbCrLF & _
"Drive Letter:", .DriveLetter & vbCrLF & _
"Drive Type:", .DriveType & vbCrLF & _
"File System:", .FileSystem & vbCrLF & _
"Free Space:", .FreeSpace & vbCrLF & _
"Is Ready:", .IsReady & vbCrLF & _
"Path:", .Path & vbCrLF & _
"Root Folder:", .RootFolder & vbCrLF & _
"Serial Number:", .SerialNumber & vbCrLF & _
"Share Name:", .ShareName & vbCrLF & _
"Total Size:", .TotalSize & vbCrLF & _
"Volume Label:", .VolumeName

End With

Bookmark It

Hide Sites

Module Module1

Sub Main()
Dim h As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName)
Console.WriteLine(CType(h.AddressList.GetValue(0), Net.IPAddress).ToString)
End Sub

End Module

Bookmark It

Hide Sites

Imports System.IO

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim objStream As New IO.FileStream("d:\BOOT.txt", IO.FileMode.Open)
Dim objReader As New IO.StreamReader(objStream)
Dim strBuffer As String

strBuffer = objReader.ReadToEnd

objReader.Close()
objStream.Close()

MsgBox(strBuffer)
End Sub
End Class

Bookmark It

Hide Sites

Private Sub Form_Load()

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_DesktopMonitor", , 48)
For Each objItem In colItems
Form1.Print "Availability: " & objItem.Availability
Form1.Print "Caption: " & objItem.Caption
Form1.Print "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
Form1.Print "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
Form1.Print "CreationClassName: " & objItem.CreationClassName
Form1.Print "Description: " & objItem.Description
Form1.Print "MonitorManufacturer: " & objItem.MonitorManufacturer
Form1.Print "MonitorType: " & objItem.MonitorType
Form1.Print "Name: " & objItem.Name
Form1.Print "PixelsPerXLogicalInch: " & objItem.PixelsPerXLogicalInch
Form1.Print "PixelsPerYLogicalInch: " & objItem.PixelsPerYLogicalInch
Form1.Print "PNPDeviceID: " & objItem.PNPDeviceID
Form1.Print "ScreenHeight: " & objItem.ScreenHeight
Form1.Print "ScreenWidth: " & objItem.ScreenWidth
Form1.Print "Status: " & objItem.Status
Form1.Print "SystemCreationClassName: " & objItem.SystemCreationClassName
Form1.Print "SystemName: " & objItem.SystemName
Next
End Sub

Bookmark It

Hide Sites

using System;
using System.Management;
class DiskSpace
{
public static void Main (string[] argv)
{
ManagementObject disk = new ManagementObject("win32_logicaldisk.deviceid=\"c:\"");
disk.Get();
Console.WriteLine("Logical Disk Size = " + disk["Size"] + " bytes");
Console.WriteLine("Logical Disk FreeSpace = " + disk["FreeSpace"]+ " bytes");
}
}

Bookmark It