02. juni 2006 - 10:52Der er
8 kommentarer og 1 løsning
Program skal kører i administrator mode
Hello Jeg har et problem med et program jeg har liggende på en windows 2003 terminal server. Efter jeg har installeret programmet, virker det kun hvis brugeren har administrator adgang. Jeg kan godt (på brugerens konto) få programmet til at virke, ved at benytte -- run as -- men jeg vil jo ikke udlevere administrator password til brugeren... er der nogen der har en work around til dette problem .......
Der bliver investeret massivt i AI. Teknologien er mere tilgængelig end nogensinde, og ambitionerne er høje. Alligevel oplever mange virksomheder, at resultaterne udebliver.
jeg havde et lignende problem, så jeg lavede en lille hta der starter programmet op med runas og derefter selv sætter passwordet ind. (jeg har selvfølgelig krypteret den) Jeg har så lagt hta'en ind på brugernes skrivebord
<HTML> <SCRIPT LANGUAGE=vbscript> strCmd = "c:\mitprg.exe" strRunAsPath = "C:\WINDOWS\SYSTEM32\RUNAS.EXE" strDomain = "mitdomæne" intChoiseMade = 0 intMSecsToWait = 250 strWaitFilePath = "brugerens tempmappe her" Sub CreateFile(strPath) Dim fso : Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FileExists(strPath) Then fso.CreateTextFile(strPath) End If Set fso = Nothing End Sub Sub WriteWaitFile(strPath) Const ForWriting = 2 Dim fso : Set fso = CreateObject("Scripting.FileSystemObject") Dim tf : Set tf = fso.OpenTextFile(strPath, ForWriting, True) tf.WriteLine("intMS = WScript.Arguments(0)") tf.WriteLine("Wscript.Sleep intMS") tf.Close Set fso = Nothing Set tf = Nothing End Sub Sub WaitMSecs(intMS) If intMS >= 250 Then intMS = intMS - 250 Set objShell = CreateObject("WScript.Shell") strCmdLine = strWaitFilePath & " " & intMS return = objShell.Run(strCmdLine, 1, True) Set objShell = Nothing End Sub Sub DeleteFile(strPath) Dim fso : Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(strPath) Then fso.DeleteFile(strPath) End If Set fso = Nothing End Sub Set objShell = CreateObject("WScript.Shell") strUser = "administrator" strPass = "administrator kode" strCmdLine = "RUNAS /NOPROFILE /USER:" & strDomain & "\" & strUser & " " & Chr(34) & strCmd & Chr(34) objShell.Run(strCmdLine) Call CreateFile(strWaitFilePath) Call WriteWaitFile(strWaitFilePath) Call WaitMSecs(intMSecsToWait) Set objShell = CreateObject("WScript.Shell") objShell.AppActivate(strRunAsPath) objShell.SendKeys strPass &VBCRLF Set objShell = Nothing DeleteFile(strWaitFilePath) close() </SCRIPT> </HTML>
åbn notepad og kopier den ind, gem som programnavn.HTA
jeg har prøvet at lave som du foreslår, og jeg kan godt få det til at virke,, fint... men når jeg kryptere (højreklik, egenskaber osv), er jeg nødt til at brugeren kan åbne den i original format,,,, elller går programmet ikke igang (og belaster serverens cpu med 50 % per klik),,
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
Ny bruger
Nybegynder
Opret
Preview
