Hata; ServerShare = "\\ServerNAME\UserLogins$\" burada servername ve userlogin$ belirlemen gerekiyor...

Iyi gunler arkadaslar, Asagidaki kodu kullanicinin ayni anda farkli makinalara giris yapmasini engellemek icin internette buldum. Butun bilgisayarlara windows server 2008 arayiciligiyla yerlestirdim. Kullanici oturumu actiktan sonra script calisiyor ama Path not found hatasi veriyor - Line 61. 61. satira baktigimizda 'Create Text Files Set objFile = objFSO. CreateTextFile Problem burada biryerde Eger yardimci olabilirseniz cok sevinirim. Kod: 'Set Objects Set oShell = CreateObject Set objFSO = CreateObject SET WshShell = createObject Const intForReading = 1 Const intForWriting = 2 Const intForAppending = 8 ServerShare = "\\ServerNAME\UserLogins$\" 'Requires Users Full Read/Write Access OldSession = "" CurrentWorkstation = "" 'Get Username & Workstation UserID=oShell. ExpandEnvironmentStrings WorkstationID=oShell. ExpandEnvironmentStrings 'Check Whether Workstation Has Old Login Session and clear If objFSO. FileExists Then Set objFile = objFSO. OpenTextFile Oldsession = objFile. ReadLine objFile. Close If objFSO. FileExists Then objFSO. DeleteFile End if End if 'Check If Users Logged In If objFSO. FileExists then Set objFile = objFSO. OpenTextFile CurrentWorkstation = objFile. ReadLine objFile. Close 'Report Failed Login To LoginsDenied. log If objFSO. FileExists then SET ObjFile = objFSO. OpenTextFile ObjFile. Writeline else Set objFile = objFSO. CreateTextFile ObjFile. Writeline End If ObjFile. Close 'Shutdown Process' shutdown = "shutdown /l" WshShell. Popup _ "You are already logged onto: " & CurrentWorkstation & "." & vbcrlf & _ "If this is not you please contact the network office." & vbcrlf & vbcrlf & _ "This event has be logged to track possible account misuse." & vbcrlf & vbcrlf & _ "You will now be logged off",20,"Multiple User Login Detected: " & UserID,16 WshShell. Run SET WshShell = Nothing Else 'Create Text Files Set objFile = objFSO. CreateTextFile ObjFile. Write ObjFile. Close Set objFile = objFSO. CreateTextFile ObjFile. Write ObjFile. Close 'Report Accepted Login To LoginsAllowed. log If objFSO. FileExists then SET ObjFile = objFSO. OpenTextFile(ServerShare & "LoginsAllowed. log", 8, True) ObjFile. Writeline else Set objFile = objFSO. CreateTextFile ObjFile. Writeline End If ObjFile. Close End If