Photo Gallery
Member List
Search
Calendars
FAQ
Ticket List
Log Out
Forums
Register
Login
My Profile
Inbox
Address Book
My Subscription
My Forums
Script Request - PC Info
Logged in as: Guest
arrSession:exec spGetSession 2,2,62670
Active Users: There are
0
members and
0
guests.
Users viewing this topic: none
Printable Version
All Forums
>>
[Scripting]
>>
WSH & Client Side VBScript
>> Script Request - PC Info
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!
Page:
[1]
Login
Message
<< Older Topic
Newer Topic >>
Script Request - PC Info -
7/24/2008 12:47:37 AM
Godson
Posts: 1
Score: 0
Joined: 7/24/2008
Status:
offline
I need a script that get Computername, computer model and the username...
Just a simple script to run on each machine and output the results on a text file - Can you kindly help/
Post #: 1
RE: Script Request - PC Info -
7/29/2008 5:08:47 AM
mcds99
Posts: 434
Score: 4
Joined: 2/28/2006
Status:
offline
Can you kindly try.
_____________________________
Sam
Keep it Simple Make it Fun KiSMiF
(in reply to
Godson
)
Post #: 2
RE: Script Request - PC Info -
7/29/2008 10:14:16 PM
djredmar
Posts: 61
Score: 0
Joined: 12/11/2006
From: Europe, The Netherlands
Status:
offline
i have an code sample i created for work a while ago,
You need to redirect strtext to an textfile...
' Create WMI Object to extract informaiton from strMonitor = inputbox(" host / ip? : ") strText = "" If strMonitor <> "" Then Set objWMIService = GetObject("winmgmts:\\" & strMonitor & "\root\cimv2") ' Query Computer System for Computer Name, Make, Model, Domain and Logged On User Set colItems = objWMIService.ExecQuery("Select Manufacturer, Model, Name, Domain, UserName from Win32_ComputerSystem",,48) For Each objItem in colItems strText = strText & "Merk : " & objItem.Manufacturer & VbCr strText = strText & "Type : " & objItem.Model & VbCr strText = strText & "Hostname: " & objItem.Name & VbCr strText = strText & "Domein : " & objItem.Domain & VbCr Next ' Query BIOS for Computer Serial Number and BIOS Version Set colItems = objWMIService.ExecQuery("Select SerialNumber, SMBIOSBIOSVersion, SMBIOSMajorVersion, SMBIOSMinorVersion from Win32_BIOS",,48) For Each objItem in colItems strText = strText & "SerieNummer : " & objItem.SerialNumber& VbCr Next Wscript.Echo strText End If
this is frmo the miscrosoft scripting guy:
strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystem") For Each objItem in colItems Wscript.Echo objItem.UserName Next
< Message edited by
djredmar
--
7/29/2008 10:16:22 PM
>
_____________________________
blah?
(in reply to
Godson
)
Post #: 3
If you found our site useful please link to us
<a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>
.
All Forums
>>
[Scripting]
>>
WSH & Client Side VBScript
>> Script Request - PC Info
Page:
[1]
Jump to:
Select a Forum
All Forums
----------------------
[Welcome]
- - Forum Rules
- - Test Posting Messages
- - New Member Area/Introduction
[Scripting]
- - WSH & Client Side VBScript
- - WSH & Client Side VBScript Tutorial
- - Post a VBScript
- - Windows PowerShell
- - ASP
- - ASP.NET
- - Windows Script Components
[General Forum]
- - Other Programming/Scripting Languages
- - Suggestions & Feedback
- - Off-Topic Lounge
New Messages
No New Messages
Hot Topic w/ New Messages
Hot Topic w/o New Messages
Locked w/ New Messages
Locked w/o New Messages
Post New Thread
Reply to Message
Post New Poll
Submit Vote
Delete My Own Post
Delete My Own Thread
Rate Posts
Forum Software ©
ASPPlayground.NET
Advanced Edition
2.5.5 ANSI
All Forums >> [Scripting] >> WSH & Client Side VBScript >> Script Request - PC Info 
Printable Version
Script Request - PC Info - 
New Messages
No New Messages
Hot Topic w/ New Messages
Hot Topic w/o New Messages
Locked w/ New Messages
Locked w/o New Messages
Post New Thread