fil fra anden computer

Hej.

Jeg har selv engang søgt en løsning på dette spørgsmål - uden held.

Du må lave mappen hvor logfilen ligger være delt og så ved åbning af din PC køre et script, der giver adgang til pågældende mappe.

Noget med:

netuse [drevbogstav: | *] \\[computernavn] \ [sharenavn] [adgangskode]

* er et ledigt drevbogstav.

Jeg har forsøgt, men endte med at mappen jeg ønskede adgang til måtte deles uden password.

M.v.h.  Jørn

hmmm...

Jeg kender nogle applicationer der gør det samme, altså hvor man indtaster brugernavn og password, og så fungere det. f.eks COmpuwares QA manager...

Det må sku ku lade sig gøre...

... med på en lytter... Det ka' jeg måske også bruge...

Hej.

En lille rettelse:  'Net use' skal være i 2 ord.  Prøv at kigge i on-line hjælpen på dit system efter: net use    Jeg bruger win2000 Pro, og dér står en hel del.  Jeg kan dog ikke afprøve det her, jeg har ikke server, kun en arbejdsgruppe.

M.v.h.  Jørn

jeg er med på net use, men det er jo en util for sig selv... Så skulle jeg køre den af fra mit program?

Kan man så godt læse error codes på det, så hvis nu man vil lave en test forbindelses knap?

Hej.

jeg ville anbefale at du kører net use når du tænder den PC hvor dit VB program afvikles.  Så er drevet (til log-filens mappe) altid til rådighed.

Formentlig kan man køre 'net use' under en shell-kommando, men kan du ikke det, kan du skrive 'net use' ind i en batch-fil og køre batch-filen under en shell.

M.v.h.  Jørn

Hej igen.

Ja, du kan have "On error goto fejlnetuse"    ' eller andet label navn
foran din shell-kommando.
Under labelen kan du teste på error-number og give relevant message.

M.v.h. Jørn

Hejsa..
Jeg har et program til at mappe/un-mappe net dreve med.. Kan være det kan bruges?? Der kan man oz bruge user & pass i...

Det skal lige siger det er sjh der har lavet det og ikke mig :)

/Bio

Har du sourcen til den?

Ups, det er biohazard_666 jeg taler til =

ja det har jeg :) har du en mail/msn jeg kan sende den til??

en anden mulighed er at oprette mappen som en ftp mappe.

du kan derefter bruge wininet.dll til at hente filen. som default er der anonym adgang men hvis der skal bruges user/pass så kan man også sende det

Du skal ha fat i noget adsi.....
Finder lige den nødvendige kode og vender retur :)

Det vil sige du skal nok ha installeret noget adsi på den maskine filerne skal køres fra for det kan lade sig gøre tror jeg.....

Og det ser ummiddelbart ud til at ADSI er på domain niveau.......sorry......var nok lige en tand for hurtig tror jeg.....men koden kommer alligevel....det kan jo være der er et klogt hovede der kan stykke noget sammen :)

'Dimensioning variables and objects
'Remember to use the Reference : Active DS Type Library
Option Explicit
Dim dso As IADsOpenDSObject
Dim domain As IADsDomain
Dim vUser As String
Dim vPass As String
Dim vDomain As String
'This button ends the application
Private Sub cmdClose_Click()
    Unload Me
    End
End Sub
'This button logs you on the domain
Private Sub cmdVerify_Click()
'If there is an error the errorhandler catches it
On Local Error GoTo ErrorHandler
    'The text fileds where you enter your info
    vUser = txtUser.Text
    vPass = txtPass.Text
    vDomain = txtDomain.Text
    'Tells that it is a WinNT domain
    Set dso = GetObject("WinNT:")
    'Gets the variables into the ADSI and contacts the Domain Controler
    Set domain = dso.OpenDSObject("WinNT://" & vDomain & "", "" & vUser & "", "" & vPass & "", ADS_SECURE_AUTHENTICATION)
Exit Sub

'The errorhandler catches an error and tells the user what the error is
ErrorHandler:
    If Err = -2147023570 Then MsgBox "Unknown User or Bad Password", , "Login Failure"
    If Err = -2147467259 Then MsgBox "Unknown Domain", , "Login Failure"
Exit Sub
End Sub
'When a field gets focus with all text is marked
Private Sub txtUser_GotFocus()
txtUser.SelStart = 0
txtUser.SelLength = Len(txtUser.Text)
End Sub
'When a field gets focus with all text is marked
Private Sub txtPass_GotFocus()
txtPass.SelStart = 0
txtPass.SelLength = Len(txtPass.Text)
End Sub
'When a field gets focus with all text is marked
Private Sub txtDomain_GotFocus()
txtDomain.SelStart = 0
txtDomain.SelLength = Len(txtDomain.Text)
End Sub

Det er fra en form skal den laves til automatisk så skal den lige justeres lidt....

Hvad med det her:

Dim objFileSystem, objInputFile
        Dim strInputFile, inputData, strData
        Dim objLocator, objWMI

        Const OPEN_FILE_FOR_READING = 1

        objLocator = CreateObject("WbemScripting.SWbemLocator")
        objWMI = objLocator.ConnectServer("PCNAVN", "root\cimv2", "BRUGER", "PASSWORD")
        objWMI.Security_.ImpersonationLevel = 3 'Impersonate


        objFileSystem = CreateObject("Scripting.fileSystemObject")
        objInputFile = objFileSystem.OpenTextFile("\\server\c$\windows\actsetup.log", OPEN_FILE_FOR_READING)


        inputData = Split(objInputFile.ReadAll, vbNewLine)

        ' hver linie skrives som output på skærm
        For Each strData In inputData
            MsgBox(strData)
        Next

        objInputFile.Close()
        objFileSystem = Nothing


Det har jeg lige bakset sammen

Hvis det funker smidder du da selv lige et svar og tager dine points igen :)

Det virker fint... Det var jo mere hvis der var ander der kunne bruge det.