Søger en med lidt .VBS viden
: 21 jan 2009, 16:23
Er ikke selv den store .vbs nørd, men kan da lidt forskellige kommandoer.
Jeg har lavet et script til at starte en automatisk defragmentering da vi på mit arbejde har store problemer med at maskiner hurtigt kommer til at virke langsomme pga. fragmentering af filerne da der læses og flyttes meget data.
Scriptet ser således ud
//
set WshShell = CreateObject("WScript.Shell")
WshShell.Run "dfrg.msc"
WScript.Sleep 100
While WshShell.AppActivate("Disk Defragmenter") = FALSE
wscript.sleep 1000
Wend
WshShell.AppActivate "Disk Defragmenter"
WScript.Sleep 200
WshShell.SendKeys "%A"
WScript.Sleep 200
WshShell.SendKeys "D"
While WshShell.AppActivate("Defragmentation Complete") = FALSE
wscript.sleep 5000
Wend
WshShell.AppActivate "Defragmentation Complete"
WScript.Sleep 200
WshShell.Sendkeys "{TAB}"
Wscript.Sleep 500
WshShell.Sendkeys "{ENTER}"
Wscript.Sleep 500
WshShell.Sendkeys "%{F4}"
//
Problemet er så at alm. brugere herinde ikke har administrator rettigheder som det kræver at køre defrag som standard. Dette kan dog løses med noget lign. det nedenståede
WshShell.Run "runas /user:administrator ""program.msc"""
WshShell.Sendkeys "password~"
Dette er dog heller ikke helt hensigtsmæssigt da den så lader admin password stå i ren tekst som enhver bruger vil kunne gå ind og kigge i.
Nogle ideer til hvad der kan gøres? Jeg er selv ude i at skulle have en .exe fil som har en runas kommando til admin rettigheder som derefter peger på mit .vbs script. exe filen vil så kunne compiles så det ikke vil være muligt at aflæse passwordet.
Jeg har lavet et script til at starte en automatisk defragmentering da vi på mit arbejde har store problemer med at maskiner hurtigt kommer til at virke langsomme pga. fragmentering af filerne da der læses og flyttes meget data.
Scriptet ser således ud
//
set WshShell = CreateObject("WScript.Shell")
WshShell.Run "dfrg.msc"
WScript.Sleep 100
While WshShell.AppActivate("Disk Defragmenter") = FALSE
wscript.sleep 1000
Wend
WshShell.AppActivate "Disk Defragmenter"
WScript.Sleep 200
WshShell.SendKeys "%A"
WScript.Sleep 200
WshShell.SendKeys "D"
While WshShell.AppActivate("Defragmentation Complete") = FALSE
wscript.sleep 5000
Wend
WshShell.AppActivate "Defragmentation Complete"
WScript.Sleep 200
WshShell.Sendkeys "{TAB}"
Wscript.Sleep 500
WshShell.Sendkeys "{ENTER}"
Wscript.Sleep 500
WshShell.Sendkeys "%{F4}"
//
Problemet er så at alm. brugere herinde ikke har administrator rettigheder som det kræver at køre defrag som standard. Dette kan dog løses med noget lign. det nedenståede
WshShell.Run "runas /user:administrator ""program.msc"""
WshShell.Sendkeys "password~"
Dette er dog heller ikke helt hensigtsmæssigt da den så lader admin password stå i ren tekst som enhver bruger vil kunne gå ind og kigge i.
Nogle ideer til hvad der kan gøres? Jeg er selv ude i at skulle have en .exe fil som har en runas kommando til admin rettigheder som derefter peger på mit .vbs script. exe filen vil så kunne compiles så det ikke vil være muligt at aflæse passwordet.