Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Eigene Klasse in VBSCRIPT erstellen

Frage Entwicklung VB for Applications

Mitglied: mayho33

mayho33 (Level 2) - Jetzt verbinden

08.05.2012, aktualisiert 11:59 Uhr, 4071 Aufrufe, 4 Kommentare

Hallo Gemeinde!

Vor kurzem habe ich am einem Problem mit Programm- Aufrufen aus externen Sripts und es wurde mit hervorragend von "emeriks" geholfen. Nun habe ich ein neues Problem und hoffe wieder auf euer Fachwissen.

Das Problem:

Wir paketieren im Team systemübergreifend und wollen gewisse Funktionen einheitlich gecodet gestalten. Nicht zuletzt um die Qualität und Sicherheit des Codes zu verbessern. Z.B. den Pfad zu "Startmenü\Programme" herauszufinden. Da gibt es natürlich viele Wege und jeder hat seine eigene Technik dafür die, je nach System und Ersteller, funktioniert oder aber leider auch nicht.

Meine Idee um hier Fehler zu vermeiden ist alle vom System (egal welches) in der Registry abgespeicherten Environmentvariablen auszulesen und diese in einer eigenen Klasse bereitzustellen.

der Aufruf könnte dann lauten:

dim Startmenu : Startmenu = Meineklasse.Startmenü

Ich habe aber keinen Tau wie ich eine Klasse in VBSCRIPT erstelle und diese dann bereitstelle.

Hat eventuell jemand ein kleines Howto oder ein einfaches A-Z Beispiel für mich?

Danke!

lg

Mayho

PS: Wir verwenden durchwegs Programme wie VBSEDIT um die Opjekte einer Klasse komfortabel anzuzeigen
Mitglied: emeriks
08.05.2012 um 12:08 Uhr
Hi,
google, suchen nach "vbscript class". Da kommt z.B. das raus: http://www.aspheute.com/artikel/20000526.htm

MRX
Bitte warten ..
Mitglied: mayho33
08.05.2012 um 12:38 Uhr
Danke!! @emeriks und @softmeister

Die Sites hatte ich schon offen und irgendwie ist der Groschen nicht gefallen.

jetzt aber...
01.
'========================================================================================== 
02.
Dim objShell, objFso 
03.
Set objShell = WScript.CreateObject("Wscript.Shell") 
04.
Set objFso = WScript.CreateObject("Scripting.FileSystemObject") 
05.
 
06.
Class EnvVar 
07.
  Property Get CommonPrograms 
08.
    Common Programs = objShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Programs") 
09.
  End Property 
10.
   
11.
  Property Get CommonDesktop 
12.
    CommonDesktop = objShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Desktop") 
13.
  End Property 
14.
   
15.
  ... 
16.
  ... 
17.
  ... 
18.
  ... 
19.
End Class 
20.
 
21.
 
22.
Set MyTest = New EnvVar 
23.
WScript.Echo MyTest.CommonDesktop 
24.
 
25.
'=================================================================================================
many THX

lg

Mayho

[Edit Biber] Codeformatierung nachgetragen, aber überflüssiges Leerzeichen bei "Common Programs" stehen lassen [/edit]
Bitte warten ..
Mitglied: mak-xxl
08.05.2012 um 17:27 Uhr
Moin Mayho,

Zitat von mayho33:
Common Programs = objShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Programs")

Bring das n ein wenig näher an das P ... sonst kommt unnötiger Frust auf ...

Viel Erfolg und freundliche Grüße von der Insel - Mario
Bitte warten ..
Ähnliche Inhalte
Netzwerkgrundlagen
gelöst Ping über mehrere Router von einem Klasse C in ein Klasse B Netzwerk (10)

Frage von okniloso zum Thema Netzwerkgrundlagen ...

VB for Applications
gelöst VBScript und OR (5)

Frage von Invisan zum Thema VB for Applications ...

Windows 7
gelöst VBScript - HTML Probleme mit Schriftgröße (5)

Frage von MedicalAd zum Thema Windows 7 ...

Visual Studio
gelöst Simples asp.net menu selbst erstellen (21)

Frage von Herbrich19 zum Thema Visual Studio ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows 10
Windows 10 im Unternehmen? (26)

Frage von zorlayan zum Thema Windows 10 ...

Festplatten, SSD, Raid
Raid 1 2 SSD mit Windows Server 2016 (17)

Frage von jaywee zum Thema Festplatten, SSD, Raid ...

Voice over IP
Über Fritzfax over IP gehen nur einige Faxe (11)

Frage von shearer9 zum Thema Voice over IP ...