DevTrain Startseite Visual Studio 1 Magazin  
  
  
SUCHEN:  
ARTIKEL ONLINE: 525   

Kategorien
.NET
Datenbanken
Web
XML

Allgemein
Camp
Foren
Events
Persönliche Einstellungen
Registrieren
Prämien Shop
Kontakt
Impressum
Über DevTrain

Autoren


   Autor: Bernhard Elbl Artikel Drucken
        
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
%>


DevTrain Camp - Schneller zum .NET 3.5 Developer
 
Verwandte Artikel      Verlinkte Dokumente
    Keine verknüpften Dokumente

  Erfasst am: 27.06.2001
  Gültig bis: 27.07.2001
0 Ratings
Bewertung: 0,0%
schlecht    sehr gut  

 
© Copyright 2007 ppedv AG