Contextual Guidance at the moment of need helps your employees adopt to new software or processes instantly. Boost knowledge retention and employee engagement step-by-step with one easy solution.
Dim strComputer = "ComputerConnectingto" Dim strSMSServer = "SCCMServer" Dim strSMSSiteCode = "SITECODE" Dim strUserName = "username" Dim strPassword = "password" Dim TSystem Try Dim lLocator = CreateObject("WbemScripting.SWbemLocator") Dim gService = lLocator.ConnectServer(strSMSServer, "root\sms\site_" & strSMSSiteCode, strUserName, strPassword) TSystem = gService.ExecQuery("SELECT * from SMS_R_System where NetbiosName = '" & strComputer & "'") Catch ex As Exception MsgBox("Could not connect to SCCM Server - ErrorDescription:" & Err.Description) End End Try
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.