Egy próbafeladatként próbálok bootoláskor (bejelentkezés nélül) mappolni egy samba megosztást, ott egy file-ba beleírni, majd lecsatlakoztatni a megosztást. Hogy bootoláskor menjen a dolog, a task scheduler-t használnám.
Próbáltam batch file-ból, próbáltam vbscriőt-ként (kód lent), az eredmény ugyanaz:
-ha csak simán lefuttatom a scriptet, akkor megy
-ha ütemezett feladatként rögzítem, (hogy NT AUTHORITY\System, vagy rendszergazda jogokkal indítja a scriptet a feladatütemező, nem változtatott az eredményen) és a rögzített feladatot tesztelem már bejelentkezve (a feladatütemező ablakában jobb gomb, futtatás), akkor megy
-ha rebootoltatom a gépet, és magától kéne futnia, akkor nem megy.
Kipróbáltam, hogy a script ír egy sor a helyi file-ba, mappol, ír a hálózati file-ba, leválaszt: tökéletesen a fenti a helyzet, ráadásul reboot után a helyi file-ba bekerül a sor, a hálózatiba nem...
Segítség! Mi a füttyfenét tegyek?
----A VBS kód jön:
'--------------------MAP
Option Explicit
Dim strDriveLetter, strRemotePath, strUser, strPassword, strProfile, objNetwork
strDriveLetter = "K:"
strRemotePath = "\\kompakk\installers"
strUser = "jonev"
strPassword = "jojelszo"
strProfile = "false"
Set objNetwork = WScript.CreateObject("WScript.Network")
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, strProfile, strUser, strPassword
'--------------------IRUNK EGY FILE-BA
Dim objFSO, objFolder, objShell, objTextFile, objFile
Dim strDirectory, strFile, strText
strDirectory = "K:\IZE"
strFile = "\teszt.txt"
strText = "lement"
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(strDirectory) Then
Set objFolder = objFSO.GetFolder(strDirectory)
Else
Set objFolder = objFSO.CreateFolder(strDirectory)
WScript.Echo "MOST CSINÁLTAM MEG: " & strDirectory
End If
If objFSO.FileExists(strDirectory & strFile) Then
Set objFolder = objFSO.GetFolder(strDirectory)
Else
Set objFile = objFSO.CreateTextFile(strDirectory & strFile)
Wscript.Echo "MOST CSINÁLTAM MEG: " & strDirectory & strFile
End If
set objFile = nothing
set objFolder = nothing
Const ForAppending = 8
Set objTextFile = objFSO.OpenTextFile _
(strDirectory & strFile, ForAppending, True)
objTextFile.WriteLine(strText)
objTextFile.Close
'--------------------DRIVE LEVALASZTAS
strDriveLetter = "K:"
Set objNetwork = WScript.CreateObject("WScript.Network")
objNetwork.RemoveNetworkDrive strDriveLetter
WScript.Quit