3
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 ?berprft 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
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 ?berprft 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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 8750
Url: https://administrator.de/contentid/8750
Printed on: April 19, 2024 at 17:04 o'clock
3 Comments
Latest comment
Zu 1.
Vielleicht hilft es ins FormLoad der Access-Form DoCmd.Maximize einzufügen
Vielleicht hilft es ins FormLoad der Access-Form DoCmd.Maximize einzufügen
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
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
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
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
