Solved

Assistance getting a vbscript to run as a local administrator.

Posted on 2008-10-20
2
440 Views
Last Modified: 2008-11-05
Hello. I created a script that installs Bluetooth software, moves files and folders. It also creates several registry keys.

I was hoping to get some assistance with running it as a local administrator. I am deploying the package through SMS and it request the local administrator password to complete the script.

Is it possible to run the entire script as a local administrator?
Option Explicit
 

'Set Variables

Dim strComputer

Dim oReg

Dim strKeyPath

Dim strApp

Dim strAppValue

Dim strDate

Dim strDateValue

Dim strInstalled

Dim strInstalledValue

Dim strVersion

Dim strVersionValue

Dim Install

Dim WshShell

Dim objFSO

Dim objFolder

Dim colItems

Dim objItem

Dim objShell
 

'Installation of Bluetooth software

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set WshShell = WScript.CreateObject("WScript.Shell")

Install = WshShell.Run ("Msiexec.exe /i  BtSwInst.msi /qb! REBOOT=ReallySuppress SECURITY=TosBtUtlver2.ini /l* C:\windows\logs\Bluetooth_6.01.03D_P5.log", 1, TRUE)
 

'Move folders

Set objFSO = CreateObject("Scripting.FileSystemObject")

objFSO.MoveFolder "c:\Documents and Settings\All Users\Start Menu\Programs\Bluetooth" , "c:\Documents and Settings\All Users\Start Menu\Utilities\Bluetooth"

objFSO.MoveFile "c:\Documents and Settings\All Users\Start Menu\Programs\Startup\Bluetooth Manager.lnk" , "c:\Documents and Settings\All Users\Start Menu\Utilities\Bluetooth\Bluetooth Manager.lnk"
 

'Disable device driver

Set objShell = CreateObject("WScript.Shell")

objShell.Run "update.Bat", 0, True
 

'Write Registry Keys

const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."
 

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ 

strComputer & "\root\default:StdRegProv")
 

strKeyPath = "SOFTWARE\Apps\CCP\Bluetooth_6.01.03D_P5"

oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
 

strKeyPath = "SOFTWARE\Apps\CCP\Bluetooth_6.01.03D_P5"

strApp = "AppName"

strAppValue = "Bluetooth_Software"

oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strApp,strAppValue
 

strKeyPath = "SOFTWARE\Apps\CCP\Bluetooth_6.01.03D_P5"

strDate = "InstallDate"

strDateValue = Date & " - " & Time

oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strDate,strDateValue
 

strKeyPath = "SOFTWARE\Apps\CCP\Bluetooth_6.01.03D_P5"

strInstalled = "InstallBy"

strInstalledValue = "SMS"

oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strInstalled,strInstalledValue
 

strKeyPath = "SOFTWARE\Apps\CCP\Bluetooth_6.01.03D_P5"

strVersion = "Version"

strVersionValue = "6.01.03D"

oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strVersion,strVersionValue

Open in new window

0
Comment
Question by:Lorrec
2 Comments
 
LVL 7

Accepted Solution

by:
Hubasan earned 500 total points
ID: 22760864
One of the main articles in the VB Scripting section of this site explains how to run any VB Script as local admin. Here is the link:

http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_22502969.html
0
 

Author Comment

by:Lorrec
ID: 22886848
Thanks
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

Suggested Solutions

Title # Comments Views Activity
Excel split cell to Rows 9 64
excel:  cumulative data 13 48
Macro to create Bar charts 4 61
Messed up my code 6 21
Introduction During my participation as a VBScript contributor at Experts Exchange, one of the most common questions I come across is this: "I have a script that runs against only one computer. How can I make it run against a list of computers in …
This article is the result of a quest to better understand Task Scheduler 2.0 and all the newer objects available in vbscript in this version over  the limited options we had scripting in Task Scheduler 1.0.  As I started my journey of knowledge I f…
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…
When you create an app prototype with Adobe XD, you can insert system screens -- sharing or Control Center, for example -- with just a few clicks. This video shows you how. You can take the full course on Experts Exchange at http://bit.ly/XDcourse.

744 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now