Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

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

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

เริ่มหัวข้อใหม่

DukDig

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

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

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

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

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

Tag : - - - -

Date : 2009-01-14 11:59:44

By : DukDig

View : 6026

Reply : 3

No. 1

TC Admin

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

ผมไปเจอที่เป็น 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

DukDig

โพสกระทู้ ( 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 ดึงค่าต่าง ๆ ครับ รบกวนด้วยครับ เนื่องจากไม่มีความว่ารู้เลย แต่อาศัยเข้าใจอะไรง่าย

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก