คำถามติดแท็ก vbscript

ภาษาสคริปต์แปลความหมายที่พัฒนาโดย Microsoft ซึ่งจำลองแบบมาจาก Visual Basic

1
Windows 8 จะไม่ให้ฉันเรียกใช้ vbscript แม้ว่าฉันจะเป็นผู้ดูแลระบบก็ตาม
ฉันเขียน vbscript เล็กน้อยที่ดาวน์โหลดไฟล์จากเว็บเซิร์ฟเวอร์ ฉันเข้าใจว่าทำไมสิ่งนี้ถึงทำให้ระบบปฏิบัติการกังวล แต่ฉันเข้าสู่ระบบในฐานะผู้ดูแลระบบและฉันต้องการให้สคริปต์ทำงาน ข้อผิดพลาดที่ฉันได้รับคือ Error: Permission denied Code: 800A0046 ฉันจะบอก Windows ให้ผู้ดูแลระบบทำในสิ่งที่เขาต้องการได้อย่างไร แก้ไข ฉันใส่สคริปต์ดาวน์โหลดด้านล่างเพื่อช่วย พยายามใน Windows XP ก่อนหน้านี้ก็ไม่มีปัญหา windows 8 ที่บ้านของฉันไม่ให้มัน HTTPDownload "http://site.com/fileA.dll", "C:\" HTTPDownload "http://site.com/fileB.exe", "C:\" Sub HTTPDownload( myURL, myPath ) Dim i, objFile, objFSO, objHTTP, strFile, strMsg Const ForReading = 1, ForWriting = 2, ForAppending = …

1
PsExec: การเข้าถึงถูกปฏิเสธ
ฉันพยายามเรียกใช้สคริปต์ VBS บนพีซีหลายเครื่องในเครือข่ายของฉันในเวลาเดียวกัน ฉันเป็นผู้ดูแลระบบของพวกเขาทั้งหมด แต่คำสั่งต้องทำงานภายใต้บัญชีระบบ ฉันเลือกใช้ PsExec (v.2.11) จาก Systernals ปัญหาที่ฉันมีคือฉันได้รับข้อความ“ การเข้าถึงถูกปฏิเสธ” ที่น่ากลัว เพียงเพื่อให้ง่ายในโพสต์นี้สคริปต์ VBS ของฉันคือ msgbox“ ทดสอบ” เพื่อวัตถุประสงค์ในการดีบั๊กฉันได้เพิ่มคำสั่ง cmd / k และอาร์กิวเมนต์เพื่อดูข้อความ ในที่สุดฉันมีรหัสในโฟลเดอร์ที่ใช้ร่วมกัน PsExec \\TargetPC -s -i -h cmd /k cscript "\\SharedFolder\temp\PSTools\test.vbs" นี่คือสิ่งที่ฉันได้ลอง: ฉันพยายามเพิ่มคีย์ต่อไปนี้ในรีจิสตรี: [HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ Policies \ System] "LocalAccountTokenFilterPolicy" = …

0
จะเกิดอะไรขึ้นเมื่อเราแปลง EOL Conversion จาก Windows เป็น Unix ในไฟล์ข้อความ
ฉันเข้าใจความแตกต่างระหว่างทั้งสองคือ Unix (LF) กับ Windows (CRLF) วิธีการแปลงนี้ใช้แมโครสคริปต์ใน VB? นี่คือตัวอย่างจากสิ่งที่ฉันได้ลอง Set sourcedoc = Application.Documents.Open(MainDoc) Application.Selection.WholeStory Application.Selection.Copy Application.ActiveWindow.Close savechanges:=wdDoNotSaveChanges Set finaldoc = Application.Documents.Open(strFolder & "proviso.June2016.raw") finaldoc.Activate Application.Selection.PasteAndFormat (wdFormatDOSText) 'ActiveDocument.Save LineEnding:=wdLFOnly MsgBox ("Save file in new format ANSI UNIX EOL") อย่างไรก็ตามฉันไม่พบสิ่งที่แปลง EOL เป็น Unix คุณช่วยได้ไหมถ้าฉันยังใหม่กับแมโคร ขอบคุณล่วงหน้า

0
กำหนดการเปลี่ยนแปลงการตั้งค่า VBS Windows ใน Windows 10
ฉันกำลังมองหากำหนดเวลา (ผ่าน Task Scheduler) สคริปต์ VBS ซึ่งเปลี่ยนเว็บเบราว์เซอร์เริ่มต้นของฉันเป็น Chrome แบบเงียบ ๆ (Windows 10, เชื่อมต่อโดเมนกับสิทธิ์ผู้ดูแลระบบท้องถิ่น) ในขณะนี้แผงควบคุมจะปรากฏขึ้นและหายไป ฉันต้องการที่จะทำให้งานนี้ 'เงียบ' เพื่อให้ไม่มีหน้าต่างปรากฏขึ้น (ผู้ใช้ปลายทางไม่ควรสังเกตเห็นการเปลี่ยนแปลงที่เกิดขึ้น) สารสกัดของสคริปต์ VBS ในขณะนี้ (นำมาจาก วิธีการตั้งค่า Chrome ให้เป็นเบราว์เซอร์เริ่มต้นอัตโนมัติของ Windows 10 ทำอย่างไร ) Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "%windir%\system32\control.exe /name Microsoft.DefaultPrograms /page pageDefaultProgram\pageAdvancedSettings?pszAppName=google%20chrome" WScript.Sleep 1200 WshShell.SendKeys "{TAB}" WshShell.SendKeys " " WshShell.SendKeys "{TAB}" WshShell.SendKeys "{TAB}" …

1
วิธีการฆ่า cmd.exe โดยเฉพาะจากชุดหรือ vbs?
ฉันมีสามไฟล์แบตช์ open.bat run.bat process.bat open.bat โทร run.bat และ run.bat โทร process.bat .. ทั้งสามทำงานต่อไปฉันรู้ว่ามีวิธีที่จะฆ่า cmd.exe .. แต่ปัญหาของฉันคือวิธีที่จะฆ่า cmd.exe โดยเฉพาะซึ่งทำงานกับไฟล์ batcg ของฉันหรือไม่ ในกรณีของฉันฉันต้องฆ่า open.bat เมื่อ process.bat ถูกปิด. ฉันเป็นคนไม่มีอะไรในเรื่องนี้ดังนั้นแนะนำฉันให้มากที่สุดเท่าที่จะทำได้ ขอบคุณ. cmd.exe / open.bat cmd.exe / run.bat cmd.exe / process.bat วิธีการพูดถึง cmd.exe เฉพาะที่จะฆ่ามันได้หรือไม่ ใช้ vbs หรือ cmd? ขอบคุณมากล่วงหน้า .. :)

0
วิธีการเปลี่ยนการตั้งค่าถังรีไซเคิลจากพรอมต์คำสั่ง?
เป็นไปได้หรือไม่ที่จะเปลี่ยนการตั้งค่าถังรีไซเคิลจากพรอมต์คำสั่งหรือใช้ VBScript โดยเฉพาะฉันต้องการ: เลือกตัวเลือก "ไม่ย้ายไฟล์ไปที่ถังรีไซเคิล, ลบไฟล์ทันทีเมื่อลบ" ล้างตัวเลือก "แสดงกล่องโต้ตอบการยืนยันการลบ" สามารถทำได้หรือไม่




2
ไฟล์ vbs ผ่านอีเมล [ปิด]
ฉันมีไฟล์vbsนี้ มีคนส่งมาให้ฉันทางอีเมล ใครสามารถบอกฉันไฟล์นี้ทำอะไรได้บ้าง dim M M = "Chinese names" S = "" Dim N n = 0 dim NN NN = "ede" do until n = Len(M) n = n + 1 S = S & Chr(AscW(Mid(M, N, 1)) - &H9000 + len(NN)) loop Execute S
โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.