Vraag : in vbscript - hoe kan ik als een dossier in een verre controleren server bestaat die een gebruikersbenaming en een wachtwoord om vereist het programma te openen?

in vbscript - hoe kan ik als een dossier in een verre controleren server bestaat die een gebruikersbenaming en een wachtwoord om vereist het programma te openen?

Antwoord : in vbscript - hoe kan ik als een dossier in een verre controleren server bestaat die een gebruikersbenaming en een wachtwoord om vereist het programma te openen?

probeer dit.

Er zijn twee manuscripten. Sparen beiden op de zelfde omslag, met de gespecificeerde namen

Het manuscript zal het bevel van venstersrunas gebruiken om het tweede manuscript met verschillende geloofsbrieven uit te voeren. Verwijder /savecred als u niet het wachtwoord door runas wilt worden bewaard.

Voor het eerste manuscript, concretiseer srtUser en srtDomain vaiables met info van de gebruiker die toegang tot de server/de omslag heeft.

Op het tweede manuscript concretiseer strFilePath met de weg voor het dossier u wilt controleren die bestaan.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

'HET MANUSCRIPT VBS RUNAS BEWAART HET ALS RUNAS_REMOTE_FILE_CHECK.VBS

strUser = „USER_NAME“
strDomain = „DOMAIN_NAME“
strCurPath = CreateObject („Scripting.FileSystemObject“) .GetAbsolutePathName (“. „)
strRunAs = " runas /savecred /user: „& strDomain &“ \ „& strUser&““ & Chr (34) & „cscript.exe \ „& Chr (34) & strCurPath &“ \ REMOTE_FILE_CHECK.VBS " & Chr (34)

Vastgestelde WshShell = CreateObject („WScript.Shell“)
strRunPath = strRunAs
WshShell.Run (strRunPath)

'========================================================================================================

'MANUSCRIPT VBS - BEWAAR HET ALS REMOTE_FILE_CHECK.VBS

strFilePath = „WEG VOOR HET DOSSIER“

Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
Als objFSO.FileExists (strFilePath) Dan
    Wscript.Echo „Dossier er bestaat.“
Anders
    Wscript.Echo het „Dossier bestaat niet.“
Beëindig als
Andere oplossingen  
 
programming4us programming4us