WinCC 7.4-8.1中用VBS读取一个无符号32位整数中的某一位会失效，为啥经历了这么多版本的迭代更新，这个BUG还没解决！！！！

'位左移

 Function SHL(nSource , n ) 

    SHL = nSource * 2 ^ n

End Function

'位右移

 Function SHR(nSource , n ) 

    SHR = nSource / 2 ^ n

End Function

'获得指定的位

 Function GetBits(nSource , n )  

    GetBits = nSource And 2 ^ n

End Function

'设置指定的位

 Function SetBits(nSource , n ) 

    SetBits = nSource Or 2 ^ n

End Function

'清除指定的位

 Function ResetBits(nSource , n ) 

    ResetBits = nSource And Not 2 ^ n

End Function