Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,027

HOME > Community Zone > Forum > อยากเขียน VBScript ดึงค่าต่าง ๆ ครับ รบกวนด้วยครับ เนื่องจากไม่มีความว่ารู้เลย แต่อาศัยเข้าใจอะไรง่าย



 

อยากเขียน VBScript ดึงค่าต่าง ๆ ครับ รบกวนด้วยครับ เนื่องจากไม่มีความว่ารู้เลย แต่อาศัยเข้าใจอะไรง่าย

 



Topic : 023948



โพสกระทู้ ( 2 )
บทความ ( 0 )



สถานะออฟไลน์




รบกวนด้วยครับ เนื่องจากไม่มีความว่ารู้เลย แต่อาศัยเข้าใจอะไรง่ายครับ

ตอนนี้ต้องการจะเขียนเป็น VBscript เพื่อดึงค่าจากในเครื่องของเรา เช่น CPU Speed, Computername , etc. ประมาณนี้ครับ ไม่ทราบว่าใครพอจะแนะนำ Web หรือทราบบ้างว่า object ของ hardware มันชื่อว่าอะไรบ้าง

เช่น Computername =objComputer.Name ประมาณนี้อ่ะคับ

รบกวนผู้รู้ด้วยคับ จะเอามาประยุกต์ใช้กะงานที่ทำอยู่ครับ



Tag : - - - -







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2009-01-14 11:59:44 By : DukDig View : 5898 Reply : 3
 

 

No. 1



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

ผมไปเจอที่เป็น VBScript ใช้กับ ASP น่ะครับ ไม่รู้ว่าจะใช้ได้หรือเปล่าครับ

Code (ASP)
<%
Set pc = CreateObject("Wscript.Network")
response.write pc.ComputerName
Set pc = nothing
response.write " (currently connected as "
response.write ucase(Request.ServerVariables("SERVER_NAME"))
response.write " on "
response.write Request.ServerVariables("LOCAL_ADDR") & ")"
%>



Code (ASP)
<%
Set Loc = createobject("WBEMScripting.SWBEMLocator")
Set nms = Loc.ConnectServer()
WQL = "SELECT CSName FROM Win32_OperatingSystem"
Set cs = nms.ExecQuery(WQL, "WQL", 48)
For Each pc In cs
Response.Write pc.CSName
Next
set cs = nothing: set nms = nothing: set loc = nothing
%>



Code (ASP)
<%
set conn = CreateObject("ADODB.Connection")
conn.open "<connectionString>"
set rs = conn.execute("SELECT @@SERVERNAME")
response.write rs(0)
rs.close: set rs = nothing
conn.close: set conn = nothing
%>



Ref : Click Here






Date : 2009-01-14 14:51:49 By : webmaster
 


 

No. 2



โพสกระทู้ ( 2 )
บทความ ( 0 )



สถานะออฟไลน์


ขอบคุณสำหรับคำแนะนำนะครับ คุณ MR.WIN ^_^

ที่ผมทำได้ก็ประมาณนี้นะครับ ลอง Copy แล้วไป save เป็น .vbs นะครับ แล้วลอง Run ดู ผลที่ได้จะไปอยู่ใน Drive D:/OK.csv นะครับ

คือ ผมอยากทราบว่า มี Website ไหนแนะนำข้อมูลประมาณนี้บ้างครับ ว่า ถ้าจะดึงค่านี้ ต้อง Select Object นี้ อะไรประมาณนั้นอ่ะครับ รบกวนผู้รู้ด้วยครับ

Code (VB.NET)
dim cOperation,cService,cComputerName,cSystemmodel,cTotalPhysical,cProcessor

dim objfso,objtextfile
set objfso=CreateObject("Scripting.FileSystemObject")
set objtextfile=objfso.OpenTextFile("D:\OK.csv",8,True)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
cOperation = objOperatingSystem.Caption & " " & objOperatingSystem.Version
cService = objOperatingSystem.ServicePackMajorVersion & "." & objOperatingSystem.ServicePackMinorVersion
Next
Set colSettings = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colSettings
cComputerName = objComputer.Name
cSystemmodel = objComputer.Model
cTotalphysical = objComputer.TotalPhysicalMemory
Next
Set colSettings = objWMIService.ExecQuery _
("Select * from Win32_Processor")
For Each objProcessor in colSettings
cProcessor = objProcessor.Name
Next
Set colAdapters = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each objAdapter in colAdapters
cNetworkAdapter = objAdapter.Description
cMACAddress = objAdapter.MACAddress
If Not IsNull(objAdapter.IPAddress) Then
For i = 0 To UBound(objAdapter.IPAddress)
cIPAddress = objAdapter.IPAddress(i)
Next
End If
Next
objtextfile.writeline(cOperation & "," & cService & "," & cComputerName & "," & cSystemmodel & _
"," & cTotalPhysical & "," & cProcessor & "," & cNetworkAdapter & "," & cMACAddress & _
"," & cIPAddress )

Date : 2009-01-15 17:31:18 By : lekbutbig
 

 

No. 3

Guest


http://msdn.microsoft.com/en-us/library/aa394084(VS.85).aspx
Date : 2009-04-27 10:45:01 By : superballsj
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : อยากเขียน VBScript ดึงค่าต่าง ๆ ครับ รบกวนด้วยครับ เนื่องจากไม่มีความว่ารู้เลย แต่อาศัยเข้าใจอะไรง่าย
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 04
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่