marja
Goto Top

VBScript und Batch Datei zusammenfügen oder VBScript per Batch Datei öffnen

Hallo

ich habe folgende 2 Codes:

dim o
set o=createobject ("Access.Application")
o.automationsecurity=1 ' low.
o.opencurrentdatabase "G:\\\\\\.mde"
o.WindowState = 3
o.visible=true
o.usercontrol=true
o.maximize = true
set o = nothing

Dieser Code veranlässt das beim Starten des MDE Tools keine Sicherheitswarnung entstehen, es nervt leider einige User, manuell in Access kann man das nicht ausstellen, da es scheinbar vom Administrator nicht gewünscht ist, scheint auch irgendwie klar.

Einzigstes kleines Problem noch an diesem Code ist, das er das Access Fenster nicht im Vollbild Modus aufruft, der User muß es manuell vergrößern, vielleicht hat jemand eine Idee.


Der zweite Code ist die Batch Datei, die veranlasst, das die MDE auf den einzlenen lokalen Rechner jeden Users upgedatet wird und danach soll er halt das obige Script ausführen, hat jemand eine Idee ?

2 Code:

@echo off

if not exist F:\Desktop mkdir f:\Desktop

echo Es wird nun ?berprft ob eine neuer Version existiert !
echo ...
echo Bitte warten Sie ! Das Mitarbeitertool wird gleich gestartet !
echo ...


copy G:\
\\\\Desktop\Mitarbeitertool.lnk F:\Desktop/d

if not exist C:\\%username%\Mitarbeitertool mkdir C:\\%username%\Mitarbeitertool

replace G:\\\\\Desktop\Mitarbeitertool.mde C:\Temp\%username%\Mitarbeitertool/a
replace G:\
\\\\Desktop\Mitarbeitertool.mde C:\Temp\%username%\Mitarbeitertool/u


start msaccess.exe C:\***\%username%\Mitarbeitertool\mitarbeitertool.mde

Marja

Content-ID: 8750

Url: https://administrator.de/contentid/8750

Ausgedruckt am: 23.11.2024 um 05:11 Uhr

gemini
gemini 31.03.2005 um 10:57:52 Uhr
Goto Top
Zu 1.
Vielleicht hilft es ins FormLoad der Access-Form DoCmd.Maximize einzufügen
Marja
Marja 31.03.2005 um 11:20:18 Uhr
Goto Top
ich habe schon einen andere Lösung gefunden:

wscript C:\Temp\%username%\Mitarbeitertool\Mitarbeitertool.vbs %stderr% %gibtsNicht% XxXxX %TMP% %unbeKANNt%

Diese Befehlszeile kommt in die Batch Datei und schon gehts los, aber bei dem VBS Code, kann er: %username% nicht auswerten.

Was kann man tun. Im Verzeichnis Temp gibt es entsprechende Ordner mit dem Namen der User, dadurch auch Username, wie kann man das in VBS schreiben ?

Set WSHShell = WScript.CreateObject("Access.Application")

WSHShell.automationsecurity=1 ' low.
WSHShell.opencurrentdatabase "C:\Temp\%username%\Mitarbeitertool\Mitarbeitertool.mde"
WSHShell.visible=true
WSHShell.usercontrol=true
WSHShell.maximize = true
Aenigma
Aenigma 05.07.2005 um 16:36:24 Uhr
Goto Top
Hallo,

in VB-Script kann man den Usernamen und den Computernamen so auslesen:


'-----Computer- / Benutzername ermitteln-----
Set objNet = WScript.CreateObject("WScript.Network")

name = objNet.UserName
computer = objNet.ComputerName


Gruß
Aenigma