Das Word.System-Object

Nur Word hat, im Gegensatz zu den anderen Office-Produkten, das Application.System-Object. Mit diesem kann man wie der Name schon sagt, System-Daten auslesen. Es gibt sogar die Möglichkeit Daten in das System zu setzen. Z.B. Registry-Einträge machen! Alles ist natürlich nur mit gelockerten Sicherheitseinstellungen möglich!

1. System-Daten auslesen
Hier ein Beispiel: Word wird geladen und mit Hilfe des System-Objectes werden System-Daten ausgelesen.

<%@ Language=VBScript %>
<%
Pfad = Server.MapPath("./")
'--- Word wird instanziiert
Set oWord = Server.CreateObject("Word.Application")
'--- Der Registier-Name wird ausgelesen
x = oWord.System.PrivateProfileString("", "HKEY_CURRENT_USERSoftwareMicrosoftOffice9.0WordOptions",
"ReplyMessageComment")
'--- Der ProzessorType z.B. "Pentium" wird ausgelesen,
Prozessor = oWord.System.ProcessorType
'--- ermitteln des Systems z.B. NT
System = oWord.System.OperatingSystem
'--- Version des Systems z.B. 5.0
Version = oWord.System.Version
'--- Freier Festplattenspeicher
Speicher = oWord.System.FreeDiskSpace
'--- Horizontale und vertikale Bildschirm-Auflösung
Verti = oWord.System.VerticalResolution
Hori = oWord.System.HorizontalResolution
'--- Ländercode
Land = oWord.System.Country
'--- Sprachcode
Sprache = oWord.System.LanguageDesignation
'--- Word beenden
oWord.Quit
set oWord = nothing
'--- Ausgeben der Daten
Response.Write x
Response.Write System
Response.Write Version
...
%>

Diesen Code gibts unten zum Download!

2. System-Daten setzen.
So können Sie in die Registry Einträge schreiben. Alles mit ASP und dem Word.System-Object!
wordreg.asp

<%
set oWord = Server.CreateObject("Word.Application")
With oWord
'--- Schreiben in die Registry: .System.PrivateProfileString("", Section, Schlüsselname) = "Wert"
.System.PrivateProfileString("", "HKEY_CURRENT_USERSoftware", "PPedv") = "BernhardElbl"
'--- Auslesen des Schlüssels
Response.Write .System.PrivateProfileString("", "HKEY_CURRENT_USERSoftware", "PPedv")
End With
%>